#!/usr/bin/perl # Copyright 2001-2012 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. # based on staffview.pl This is still the klunky old stuff not based on meta or templates, yet. use DBI; use CGI; my %lex = ('View' => 'View', 'Waiting List' => 'Waiting List', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Name' => 'Name', 'Date' => 'Date', 'Wait Number' => 'Wait Number', 'Description' => 'Description', 'Delete' => 'Delete', 'Reorder' => 'Reorder', 'Enrol' => 'Enrol', 'Count' => 'Count', 'No Student(s) Found' => 'No Student(s) Found', 'Error' => 'Error', 'Pre-Registration' => 'Pre-Registration', ); # Read config variables 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); $dbh->{mysql_enable_utf8} = 1; # Page Header my $title = "$lex{View} $lex{'Waiting List'}"; print "$doctype\n$title\n"; print "\n"; print "$chartype\n\n"; print "[ $lex{Main} |\n"; print "$lex{Eoy} | "; print "$lex{Reorder} $lex{'Waiting List'} |\n"; print "$lex{Enrol} $lex{'Waiting List'} ]\n"; print "

$title

\n"; # Get Waiting List my $sth = $dbh->prepare("select * from prereg_waitlist order by waitnumber"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr";} print "\n"; print "\n"; print "\n"; my $sth1 = $dbh->prepare("select studid, lastname, firstname from prereg where studnum = ?"); my %waitlist; my $count; while ( my ($id, $studnum, $enroldate, $waitnumber, $desc) = $sth->fetchrow ) { $waitlist{$studnum} = 1; # hash to keep track of waiting list kids $sth1->execute($studnum); my ($studid, $lastname, $firstname) = $sth1->fetchrow; print "\n"; print ""; print ""; print ""; print "\n"; print "\n"; $count++; } if (not $count) { print "\n"; } else { print "\n"; } print "

". $lex{Name}. '	'. $lex{Date}.'	'; print $lex{'Wait Number'}. "	". $lex{Description}. '	'. $lex{Delete}. "
$lastname, \n"; print "$firstname ($studnum)	$enroldate	$waitnumber	$desc	". $lex{Delete}. "
$lex{'No Student(s) Found'}
$lex{Count}: $count

\n"; # now print out rest of kids that are preregistered.... print "

\n"; print "\n"; $sth = $dbh->prepare("select lastname, firstname, studnum from prereg order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} $count = 0; while (my ($lastname, $firstname, $studnum) = $sth->fetchrow) { if ($waitlist{$studnum}) { next; } print "\n"; $count++; } print "

$lex{'Pre-Registration'}
$lastname, $firstname	$studnum

\n"; if (not $count) { print ''.$lex{'No Student(s) Found'}. "
\n"; } else { print ''. $lex{Count}. ": $count\n"; } print "\n";