#!/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. # 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); # Page Header my $title = "$lex{View} $lex{'Waiting List'}"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Eoy} | }; print qq{$lex{Reorder} $lex{'Waiting List'} |\n}; print qq{$lex{Enrol} $lex{'Waiting List'} ]\n}; print qq{

$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 qq{\n}; print qq{}; print qq{\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 qq{\n}; print qq{}; print qq{}; print qq{}; print qq{\n}; print qq{\n}; $count++; } if (not $count) { print qq{\n}; } else { print qq{\n}; } print qq{
$lex{Name}$lex{Date}$lex{'Wait Number'}$lex{Description}$lex{Delete}
$lastname, \n}; print qq{$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 qq{

 

\n}; print qq{\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 qq{\n}; $count++; } print qq{
$lex{'Pre-Registration'}
$lastname, $firstname$studnum
\n}; if (not $count) { print qq{$lex{'No Student(s) Found'}
\n}; } else { print qq{$lex{Count}: $count\n}; } print qq{\n};