#!/usr/bin/perl # Copyright 2001-2021 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. my %lex = ( 'Edit' => 'Edit', 'Transfers' => 'Transfers', 'Main' => 'Main', 'Last Name' => 'Last Name', 'First Name' => 'First Name', 'Middle Name' => 'Middle Name', 'Birthdate' => 'Birthdate', 'Update Record' => 'Update Record', 'Another' => 'Another', 'Record' => 'Record', 'Updated' => 'Updated', 'Contact' => 'Contact', 'Error' => 'Error', 'Student Number' => 'Student Number', 'Date' => 'Date', 'Type' => 'Type', 'Entry Type' => 'Entry Type', 'Exit Type' => 'Exit Type', 'Province' => 'Province', 'Country' => 'Country', 'Description' => 'Description', 'Identity Number' => 'Identity Number', 'School Enrollments' => 'School Enrollments', ); my $self = 'transferEd.pl'; use CGI; use DBI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # pull in global enrol/withdraw descriptors eval require "$globdir/global.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } # Load audit write function eval require "../../lib/libaudit.pl"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Print Page Head my $title = qq{$lex{Edit} $lex{Transfers}/$lex{'School Enrollments'}}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { # calendar popup. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( $arr{page} ) { delete $arr{page}; updateRecord(); } my $sth = $dbh->prepare("select * from transfer where id = ?"); $sth->execute( $arr{id} ); if ($DBI::errstr) {print $DBI::errstr; die $DBI::errstr;} my $ref = $sth->fetchrow_hashref; print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; # Change Type if ( $arr{advanced} ) { print qq{\n\n}; } else { print qq{\n}; print qq{\n}; } my $type = $ref->{type}; # Entry Type if ( $type ne 'withdraw' or $arr{advanced} ) { print qq{\n\n}; } # Exit Type if ( $type eq 'withdraw' or $arr{advanced} ) { print qq{\n\n}; } print qq{\n}; print qq{\n}; print qq{\n\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

Record ID	$ref->{id}
$lex{'Student Number'}	$ref->{studnum}
$lex{'Last Name'}	}; print qq{
$lex{'First Name'}	}; print qq{
$lex{'Middle Name'}	}; print qq{
$lex{Birthdate}	}; print qq{\n}; print qq{
$lex{'Identity Number'}/Provnum	}; print qq{
Enrol/Withdraw $lex{Date}	}; print qq{\n}; print qq{\n}; print qq{
$lex{Type}	}; print qq{
$lex{Type}	$ref->{type}
$lex{'Entry Type'}	}; print qq{
$lex{'Exit Type'}	}; print qq{
$lex{Province}	}; print qq{ 2 characters
$lex{Country}	}; print qq{
$lex{Description}	$ref->{description}\n}; print qq{

\n}; print qq{\n}; print qq{\n}; #--------------- sub updateRecord { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $id = $arr{id}; delete $arr{id}; # Read original record. my $sth1 = $dbh->prepare("select * from transfer where id = ?"); $sth1->execute( $id ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $tref = $sth1->fetchrow_hashref; # Add Audit record. my %audit; $audit{userid} = $ENV{REMOTE_USER}; $audit{ipaddr} = $ENV{REMOTE_ADDR}; $audit{scriptname} = $self; $audit{tablename} = 'transfer'; $audit{tableid} = $id; $audit{startval} = $tref; $audit{endval} = \%arr; addAudit( \%audit, $dbh ); my $sth; foreach my $key ( sort keys %arr ) { $sth = $dbh->prepare("update transfer set $key = ? where id = ?"); $sth->execute( $arr{$key}, $id ); } if ( not $DBI::errstr ) { print qq{

$lex{Record} $lex{Updated}

\n}; } else { print qq{

$lex{Error}: $DBI::errstr
\n}; print qq{$lex{Contact}: $adminname $adminemail ]

\n}; } print qq{

[ $lex{Edit} $lex{Another} $lex{Record} | }; print qq{$lex{Main} ]

\n}; print qq{\n}; exit; }

$title

$lex{Record} $lex{Updated}

$lex{Error}: $DBI::errstr\n}; print qq{$lex{Contact}: $adminname $adminemail ]

$lex{Error}: $DBI::errstr
\n}; print qq{$lex{Contact}: $adminname $adminemail ]