#!/usr/bin/perl # Copyright 2001-2022 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 = ('Reserve Resident Students' => 'Reserve Resident Students', 'Main' => 'Main', 'Native Bands' => 'Native Bands', 'Band Name' => 'Band Name', 'Band Number' => 'Band Number', 'Grade' => 'Grade', 'Student' => 'Student', 'Reserve' => 'Reserve', 'Parents' => 'Parent(s)', 'Error' => 'Error', ); 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; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; # Page Header my $title = $lex{'Reserve Resident Students'}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

$currdate

\n}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); print qq{\n}; print qq{\n}; print qq{\n}; $sth = $dbh->prepare("select distinct band, bandnum from student order by band, bandnum"); # where band is not NULL and band != '' order by band"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ( $bandname,$bandnumber) = $sth->fetchrow){ if ( not $bandname and not $bandnumber ) { next; } print qq{\n}; } print qq{

**Bands** - Both Name and Number
$lex{'Band Name'}	$lex{'Band Number'}
$bandname	$bandnumber

\n}; # my $select = "where reserveres != 'On'"; my $sortby = 'cast(grade as signed integer), lastname, firstname'; $sth = $dbh->prepare("select lastname, firstname, initial, studnum, birthdate, treaty, band, bandnum, name1, name2, grade, reserveres from student order by $sortby"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } $currgrade = -1; $firstflag = 1; while ( my ($lastname, $firstname, $initial, $studnum, $birthdate, $treaty, $band, $bandnum, $name1, $name2, $grade, $reserveres) = $sth->fetchrow ) { $oldgrade = $currgrade; $currgrade = $grade; if ($oldgrade ne $currgrade) { # we have a new grade if (not $firstflag){ print qq{\n}; } else { $firstflag = 0; } print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{\n}; # Student name (1,2,3) Student num (4) and birthdate (8) print qq{\n}; # Treaty number (unique), Band Name, Band number if ( $reserveres == 1 ) { $reserveres = 'Yes'; } elsif ( $reserveres == 0 ) { $reserveres = ''; } print qq{\n}; # Name1 and Name2 fields } # End of Main Loop print qq{

**$lex{Grade} $currgrade**
$lex{Student}	$lex{Reserve}	$lex{Parents}	Reserve Resident
$lastname, $firstname $initial }; print qq{$birthdate ($studnum)	$treaty $band $bandnum	$name1 $name2	$reserveres

\n}; print qq{[ Top ]\n};