#!/usr/bin/perl # Copyright 2001-2024 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 = ( 'Student' => 'Student', 'Select' => 'Select', 'Wait#' => 'Wait#', 'Date' => 'Date', 'Description' => 'Description', 'Main' => 'Main', 'Duplicate Student Number' => 'Duplicate Student Number', 'Skipping' => 'Skipping', 'Contact' => 'Contact', 'Error' => 'Error', 'Waiting List' => 'Waiting List', 'Delete' => 'Delete', 'Enrol' => 'Enrol', 'Pre-Registration' => 'Pre-Registration', ); my $self = 'waitxfer.pl'; # Reset to desired value; value for Sask my $entrytype = '18'; # New Enrollment, no previous schooling. use DBI; use CGI; eval require "../../etc/admin.conf"; 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); my $title = "$lex{Enrol} $lex{'Waiting List'}"; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} ]\n}; if ($arr{updateflag}) { delete $arr{updateflag}; doTransfers(); } my $sth = $dbh->prepare("select * from prereg_waitlist order by waitnumber"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth1 = $dbh->prepare("select lastname, firstname from prereg where studnum = ?"); while ( my ( $id, $studnum, $enroldate, $waitnumber, $description) = $sth->fetchrow ) { $sth1->execute($studnum); my ($lastname, $firstname) = $sth1->fetchrow; print qq{\n}; print qq{\n}; print qq{\n}; } # End of loop print qq{
$lex{Student}$lex{'Wait#'}$lex{Date}}; print qq{$lex{Description}$lex{Select}
$lastname $firstname ($studnum)$waitnumber$enroldate$description}; print qq{
}; print qq{\n}; print qq{
\n}; print qq{
\n}; #-------------- sub doTransfers { #-------------- # Get current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; foreach my $key ( keys %arr) { my $sth = $dbh->prepare("select * from prereg where studnum = ?"); $sth->execute( $key ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} @student = $sth->fetchrow; # now get hash of student record $sth->execute( $key ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $ref = $sth->fetchrow_hashref; my %sr = %$ref; # Check for existing student number. $sth = $dbh->prepare("select count(*) from student where studnum = ?"); $sth->execute( $key ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $count = $sth->fetchrow; if ( $count > 0 ){ # We have a duplicate record coming out of prereg. print qq{

$lex{'Duplicate Student Number'}}; print qq{ - $student[2] $student[1]

\n}; print qq{

$lex{Skipping}

\n}; next; } # Prepare student array for record entry $student[0] = $sql{default}; # reset the studid/id foreach my $studfld ( @student ) { if ( $studfld ne $sql{default} ) { $studfld = $dbh->quote( $studfld ); } } my $studentstr = join(', ', @student); $sth = $dbh->prepare("insert into student values ( $studentstr )"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} # Insert Transfer Record; entrytype code defined at top of script $sth2 = $dbh->prepare("insert into transfer ( studnum, date, type, description, entrytype, lastname, firstname, birthdate ) values (?,?,?,?,?,?,?,?)"); $sth2->execute( $key, $currdate, 'enrol', $lex{'Pre-Registration'}, $entrytype, $sr{lastname}, $sr{firstname}, $sr{birthdate}); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Delete records from existng prereg and prereg_waitlist $sth = $dbh->prepare("delete from prereg where studnum = ?"); $sth->execute( $key ); $sth = $dbh->prepare("delete from prereg_waitlist where studnum = ?"); $sth->execute( $key ); if ( $DBI::errstr) { print qq{

$lex{Error} $lex{Delete} $lex{'Waiting List'}
\n}; print qq{$DBI::errstr

\n}; print qq{\n}; exit; } } # end of Loop if (not $DBI::errstr ) { print qq{

$lex{'Waiting List'} => $lex{Student}

\n}; } else { print qq{

$lex{Error}:$DBI::errstr

\n}; } print qq{

[ $lex{Main} ]

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