#!/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 = ('Staff' => 'Staff', 'Preregistration' => 'Preregistration', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Staff Member' => 'Staff Member', 'User Id' => 'User Id', 'Home' => 'Home', 'Room' => 'Room', 'Course' => 'Course', 'Edit' => 'Edit', 'Error' => 'Error', 'Grade' => 'Grade', 'Access' => 'Access', 'Position' => 'Position', 'Count' => 'Count', 'Red' => 'Red', 'Withdraw' => 'Withdraw', 'Delete' => 'Delete', 'Restore' => 'Restore', 'Withdrawn' => 'Withdrawn', ); 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 = qq{$lex{Preregistration}$lex{Staff}}; } else { $table = 'staff'; $tableview = $lex{Staff}; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Print Page Header my $title = "$lex{Edit} / $lex{Withdraw} / $lex{Restore} $tableview"; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{ $lex{Eoy} ]\n}; print qq{

$title

\n}; # select values from staff/prereg_staff table. $sth = $dbh->prepare("select id, lastname, firstname, userid, certification1 from $table order by lastname, firstname"); $sth->execute; if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{}; if ( $table eq 'staff' ) { print qq{\n}; } else { print qq{\n}; } my $sth1 = $dbh->prepare("select count(*) from subject where teacher = ?"); my $sth2 = $dbh->prepare("select field_value from staff_multi where field_name = ? and userid = ?"); while ( my ( $id, $lastname, $firstname, $userid, $certification1 ) = $sth->fetchrow) { # Get subject count $sth1->execute( $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; # Load Homerooms, if any my @homerooms; $sth2->execute( 'homeroom', $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( $hr = $sth2->fetchrow ) { push @homerooms, $hr; } # Load Grades my @grades; $sth2->execute( 'grade', $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( $gr = $sth2->fetchrow ) { push @grades, $gr; } # Load Positions (Jobs) $sth2->execute( 'position', $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $positions; my $first = 1; while ( $pos = $sth2->fetchrow ) { if ( not $first ) { $positions .= ', '; } else { $first = 0; } $positions .= $pos; } # Load Access Controls $sth2->execute( 'access', $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $access; while ( $ac = $sth2->fetchrow ) { $access .= $ac. ' '; } my $errorstyle; # red color if not homeroom teachers; if ( (@grades and not @homerooms ) or ( not @grades and @homerooms )) { #error $errorstyle = qq{style="color:red;font-weight:bold;"}; } print qq{}; print qq{\n}; print qq{\n}; # Edit Button print qq{\n}; if ( $table eq 'staff' ) { # Withdraw Button print qq{\n}; } else { # table is prereg # Delete Button print qq{\n}; } } print qq{

$lex{Red} = $lex{Home} $lex{Room} $lex{Error}
$lex{'Staff Member'}	$lex{'User Id'}	$lex{Position}	Cert#	$lex{Home} $lex{Room}	$lex{Home} $lex{Grade}	$lex{Access}	$lex{Course} $lex{Count}	$lex{Edit}	$lex{Withdraw}
$lex{Withdraw}
$lastname, $firstname	$userid	$positions	$certification1	}; foreach my $hr ( sort {$a <=> $b} @homerooms ) { print qq{$hr }; } print qq{	}; foreach my $gr ( sort {$a <=> $b} @grades ) { print qq{$gr }; } print qq{	$access	$count	\n}; print qq{\n}; if ( $arr{tbl} ) { print qq{\n}; } print qq{	\n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{

\n\n}; # Now show withdrawn staff print qq{

Withdrawn Staff

\n}; print qq{\n}; print qq{}; print qq{\n}; # select values from staff/prereg_staff table. my $sth = $dbh->prepare("select id, lastname, firstname, userid, certification1 from staffwd order by lastname, firstname"); $sth->execute; if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ( $id, $lastname, $firstname, $userid, $certification1 ) = $sth->fetchrow) { print qq{}; print qq{\n}; # Restore/Reinstate Button print qq{\n}; # Perm Delete Button print qq{\n}; } print qq{

$lex{'Staff Member'}	$lex{'User Id'}	Cert#	$lex{Restore}	Delete
$lastname, $firstname	$userid	$certification1	\n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{	\n}; print qq{\n}; print qq{ \n}; print qq{

}; print qq{\n};