#!/usr/bin/perl # Copyright 2001-2009 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. # TODO : Get rid of the ugliness and use the latest templates instead! my %lex = ('Main' => 'Main', 'Eoy' => 'Eoy', 'Error' => 'Error', 'View Preregistered Students' => 'View Preregistered Students', 'Name' => 'Name', 'Description' => 'Description', 'Parent 1' => 'Parent 1', 'Parent 2' => 'Parent 2', 'Emer/Rel' => 'Emer/Rel', ); use DBI; use CGI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $mon++; $wday++; $currdate = "$dow[$wday], $month[$mon] $mday, $year"; my $q = new CGI; print $q->header( -charset, $charset ); %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $select; if ( $arr{homeroom} ) { my $homeroom = $dbh->quote( $arr{homeroom} ); $select = "where homeroom = $homeroom "; } my $sortorder = "lastname, firstname"; if ($arr{sortorder} eq "birthdate") { $sortorder = "birthdate"; } my $sth = $dbh->prepare("select * from prereg $select order by $sortorder"); $sth->execute; $rows = $sth->rows; print "$doctype\n". $lex{'View Preregistered Students'}. " $chartype\n\n"; print "". $lex{Main}. " |\n"; print "". $lex{Eoy}. " |\n"; print "

". $lex{'View Preregistered Students'}. "

$currdate

\n"; print "\n"; print "\n"; for ( my $i=1; $i <= $rows; ++$i) { @arr = $sth->fetchrow; print <<"EOF"; EOF } print "

". $lex{Name}. "

". $lex{Description}. "

". $lex{'Parent 1'}; print "

". $lex{'Parent 2'}. "

". $lex{'Emer/Rel'}. "

$arr[2] $arr[3] $arr[1]
Studnum:	$arr[4]
Grade:	$arr[5]
Form:	$arr[6]
Sex:	$arr[7]
Bdate:	$arr[8]
ProvNum:	$arr[57]
House:	$arr[9]
Bus:	$arr[56]
Emerg:	$arr[49] $arr[50] $arr[51]
	$arr[52] $arr[53]
Doctor:	$arr[54] $arr[55]

HealthID:	$arr[10]
Entry:	$arr[11]
Ethnic:	$arr[12]
SPar:	$arr[13]
Internet:	$arr[14]
Youngest:	$arr[15]
Owing:	$arr[16]
Band:	$arr[58]
Band #:	$arr[59]
Medical:	$arr[18]

Par:	$arr[27]
Con:	$arr[28]
Name:	$arr[29]
HPh:	$arr[30]
WPh:	$arr[31]
Cel:	$arr[32]
Fax:	$arr[33]
Adr:	$arr[34]
City:	$arr[35]
Pcode:	$arr[36]
Work:	$arr[37]

Par:	$arr[38]
Con:	$arr[39]
Name:	$arr[40]
HPh:	$arr[41]
WPh:	$arr[42]
Cel:	$arr[43]
Fax:	$arr[44]
Adr:	$arr[45]
City:	$arr[46]
Pcode:	$arr[47]
Work:	$arr[48]

Rel:	$arr[19]
Mom:	$arr[20]
Dad:	$arr[21]
Parish:	$arr[22]
Bap:	$arr[60]
Comm:	$arr[23]
Recon:	$arr[24]
Conf:	$arr[25]
Maiden:	$arr[26]