#!/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 = ('Edit' => 'Edit',
'Students' => 'Students',
'Current' => 'Current',
'Withdrawn' => 'Withdrawn',
'Withdrawn Students' => 'Withdrawn Students',
'Preregistered' => 'Preregistered',
'No Student(s) Found' => 'No Student(s) Found',
'Error' => 'Error',
'Main' => 'Main',
);
my $cols = 3; # number of columns to display
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 $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my @students = ();
my %studentname = ();
my @studids = ();
my $sth = $dbh->prepare("select studid, lastname, firstname, studnum
from studentwd order by lastname, firstname");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
while ( my ( $id, $lastname, $firstname, $studnum ) = $sth->fetchrow ){
$studentname{$id} = "$lastname, $firstname ($studnum)";
push @studids, $id;
}
my $records = $#studids + 1;
my $rows = roundup( $records / $cols );
foreach my $col ( 1..$cols ) {
foreach my $row ( 1..$rows ) {
my $id = shift @studids; # get id.
$students[$row][$col] = $id;
}
}
my $title = "$lex{Edit} $lex{Students}";
print qq{$doctype\n$title\n};
print qq{
$chartype\n};
print qq{[ $lex{Main} |\n};
print qq{$lex{Current} $lex{Students} |\n};
print qq{$lex{Withdrawn} $lex{Students} |\n};
print qq{$lex{Preregistered} $lex{Students} ]\n};
print qq{
$title
\n};
print qq{\n};
print qq{
$lex{Current} $lex{Students}
\n};
showStudents('student');
# End of Current Students
# --------- Withdrawn Students -------
print qq{\n};
print qq{
$lex{Withdrawn} $lex{Students}
\n};
showStudents( 'studentwd' );
# End of Withdrawn Students
# -------- Preregistered Students ----------
print qq{\n};
print qq{
$lex{Preregistered} $lex{Students}
\n};
showStudents( 'prereg' );
# End of Preregistered Students
print qq{\n};
#----------
sub roundup { # round up a value.
#----------
my $n = shift;
return(($n == int($n)) ? $n : int($n + 1))
}
#---------------
sub showStudents {
#---------------
my $table = shift;
my $tb;
if ( $table eq 'studentwd' ) { $tb = 'wd'; }
if ( $table eq 'prereg' ) { $tb = 'prereg'; }
my (@students, %studentname, %studentnum, @studids);
my $sth = $dbh->prepare("select studid, lastname, firstname, studnum
from $table order by lastname, firstname");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
while ( my ( $id, $lastname, $firstname, $studnum ) = $sth->fetchrow ){
$studentname{$id} = "$lastname, $firstname";
$studentnum{$id} = $studnum;
push @studids, $id;
}
my $records = $#studids + 1;
my $rows = roundup( $records / $cols );
foreach my $col ( 1..$cols ) {
foreach my $row ( 1..$rows ) {
my $id = shift @studids; # get id.
$students[$row][$col] = $id;
}
}
print qq{
\n};
my $count = 0;
# print qq{
};
# print out data structure
for my $row ( 1 .. $#students ) {
print qq{
};
for my $col ( 1 .. $#{ $students[$row] } ) {
if ( $col == 0 ) { next; }
my $id = $students[$row][$col];
if ( $id and $tb ) {
print qq{