#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Add Transfer' => 'Add Transfer', 'Main' => 'Main', 'Last Name' => 'Last Name', 'First Name' => 'First Name', 'Middle Name' => 'Middle Name', 'Birthdate' => 'Birthdate', 'YYYY-MM-DD' => 'YYYY-MM-DD', 'Student Number' => 'Student Number', 'Provincial Student Number' => 'Provincial Student Number', 'Date' => 'Date', 'Type' => 'Type', 'Withdraw' => 'Withdraw', 'Enrol' => 'Enrol', 'Description' => 'Description', 'Save' => 'Save', 'Error' => 'Error', 'Contact' => 'Contact', 'Record(s) Stored' => 'Record(s) Stored', 'Add Another' => 'Add Another', ); $self = 'transadd.pl'; use DBI; use CGI; 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"; } $q = new CGI; print $q->header( -charset, $charset ); %arr = $q->Vars; # Setup Database my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); print qq{$doctype\n$lex{'Add Transfer'}\n}; print qq{ $chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$lex{'Add Transfer'}

\n}; if ( $arr{page} ) { delete $arr{page}; writeRecord(); } print qq{
\n}; print qq{Student Number \n}; print qq{
\n\n}; my %r; if ( $arr{studnum} ) { # load record to populate form. my $sth = $dbh->prepare("select * from studentall where studnum = ?"); $sth->execute( $arr{studnum} ); if ( $DBI::errstr ) { print qq{

$lex{Error} $DBI::errstr;

\n}; print qq{\n}; exit; } my $ref = $sth->fetchrow_hashref; %r = %$ref; } 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}; print qq{\n\n}; print qq{\n\n}; print qq{\n}; # Enrol code print qq{\n\n}; # Withdraw (Exit) Code print qq{\n\n}; print qq{\n}; # Blank Line print qq{\n\n}; print qq{\n}; print qq{
$lex{'Last Name'}}; print qq{
$lex{'First Name'}}; print qq{
$lex{'Middle Name'}}; print qq{
$lex{'Birthdate'}}; print qq{}; print qq{ $lex{'YYYY-MM-DD'}
$lex{'Student Number'}}; print qq{
$lex{'Provincial Student Number'}}; print qq{
$lex{Date}}; print qq{ $lex{'YYYY-MM-DD'}
$lex{Type}}; print qq{
}; print qq{Only fill in ONE of the following based on type above
Entry Type - if type is enrol}; print qq{
Exit Type - if type is withdraw}; print qq{
$lex{Description}}; print qq{
\n}; print qq{
\n}; print qq{\n}; #-------------- sub writeRecord { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Error checking if ( $arr{entrytype} and $arr{exittype} ) { print qq{

You cannot have both an entry type AND an exit type!

\n}; print qq{\n}; exit; } elsif ( $arr{entrytype} and $arr{type} eq 'withdraw' ) { print qq{

You cannot have a withdrawal and an entry type!

\n}; print qq{\n}; exit; } elsif ( $arr{exittype} and $arr{type} eq 'enrol' ) { print qq{

You cannot have a withdrawal and an entry type!

\n}; print qq{\n}; exit; } $sth = $dbh->prepare("insert into transfer ( studnum, date, type, description, entrytype, exittype, prov, country, lastname, firstname, middlename, birthdate, provnum ) values ( ?,?,?,?,?,?,?,?,?,?,?,?,? )"); $sth->execute( $arr{studnum}, $arr{date}, $arr{type}, $arr{description}, $arr{entrytype}, $arr{exittype}, $arr{prov}, $arr{country}, $arr{lastname}, $arr{firstname}, $arr{middlename}, $arr{birthdate}, $arr{provnum} ); if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Stored'}

\n}; } else { print qq{

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

\n}; } print qq{

[ $lex{'Add Another'} ]

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