#!/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.
my %lex = ('Edit/Delete' => 'Edit/Delete',
'Staff' => 'Staff',
'Preregistration' => 'Preregistration',
'Main' => 'Main',
'Eoy' => 'Eoy',
'Staff Member' => 'Staff Member',
'User Id' => 'User Id',
'Room' => 'Room',
'Subject Count' => 'Subject Count',
'Edit' => 'Edit',
'Delete' => 'Delete',
'Error' => 'Error',
'Edit/Delete' => 'Edit/Delete',
);
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 %arr = $q->Vars;
# Select table to view; staff or prereg_staff;
my ($table, $tableview);
if ( $arr{tbl} ){ # view prereg_staff table
$table = 'prereg_staff';
$tableview = ''. $lex{Preregistration}. q{ }. $lex{Staff}. '';
} else {
$table = 'staff';
$tableview = $lex{Staff};
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Print Page Header
print "$doctype\n". $lex{'Edit/Delete'}. q{ }. $lex{Staff}. "
$chartype\n\n";
print "[ ". $lex{Main}. " |\n";
print " ". $lex{Eoy}. " ]\n";
print "
". $lex{'Edit/Delete'}. " $tableview
\n";
# select values from staff/prereg_staff table.
$sth = $dbh->prepare("select id, lastname, firstname, userid, homeroom
from $table order by lastname, firstname");
$sth->execute;
if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
print "
\n";
print "
". $lex{'Staff Member'}. "
". $lex{'User Id'};
print "
". $lex{'Room'}. "
". $lex{'Subject Count'}. "
";
print $lex{Edit}. "
";
print $lex{Delete}. "
\n";
my $sth1 = $dbh->prepare("select count(*) from subject
where teacher like ?");
while (my ($id, $lastname, $firstname, $userid, $homeroom) = $sth->fetchrow) {
$sth1->execute("%$userid%");
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
print "