#!/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. # This is still the klunky old stuff not based on meta or templates, yet. my %lex = ('View' => 'View', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Staff' => 'Staff', 'Preregistration' => 'Preregistration', 'Name' => 'Name', 'Position' => 'Position', 'UserID' => 'UserID', 'Password' => 'Password', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'E-mail' => 'E-mail', 'Phone' => 'Phone', 'Address' => 'Address', 'Att' => 'Att', 'Emergency' => 'Emergency', 'Error' => 'Error', 'Edit' => 'Edit', '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, $multitable ); if ( $arr{tbl} ){ # view prereg_staff table $table = 'prereg_staff'; $multitable = 'prereg_staff_multi'; $tableview = qq{$lex{Preregistration} $lex{Staff}}; } else { $table = 'staff'; $multitable = 'staff_multi'; $tableview = $lex{Staff}; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Get Sorting Info into %sort hash. my $sort = 'name'; if ( $arr{sort} ) { # one of name,grade, homeroom,position $sort = $arr{sort}; } delete $arr{sort}; my %sort; # get name first. my $sth = $dbh->prepare("select userid, lastname, firstname from $table"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }; while ( my ($userid,$lastname,$firstname) = $sth->fetchrow ){ $name{$userid} = qq{$lastname,$firstname}; # get multitable value for this user my @multi; # sorting values from multi table. if ( $sort ne 'name' ) { my $sth1 = $dbh->prepare("select field_value from $multitable where userid = ? and field_name = ? order by field_value"); $sth1->execute($userid, $sort); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }; while ( my $fvalue = $sth1->fetchrow ) { push @multi, $fvalue; } } my $multistring = join('',@multi); if ( $sort eq 'grade' and $multistring eq 'K' or $multistring eq 'PK' ) { # prepend a zero. $multistring = '0'.$multistring; } if ( $sort eq 'homeroom' and $multistring eq 'K' or $multistring eq 'PK' ) { # prepend a zero. $multistring = '0'.$multistring; } # print "Multistring:$multistring - @multi
\n"; $sort{"$multistring$lastname$firstname"} = $userid; } #foreach my $key ( sort {$a <=> $b} keys %sort ) { # print qq{K:$key VAL:$sort{$key}
\n}; #} my $title = qq{$lex{View} $lex{Staff} }; print qq{$doctype\n$title}; print qq{}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{ $lex{Eoy} |\n}; print qq{ $lex{Withdrawn} $lex{Staff} ]\n}; # Optional sorts print qq{
Sort by
\n}; # Grade Sort print qq{
\n}; print qq{\n}; print qq{
\n}; # Homeroom Sort print qq{
\n}; print qq{\n}; print qq{
\n}; # Position Sort print qq{
\n}; print qq{\n}; print qq{
\n}; #print qq{SORT:$sort
\n}; print qq{

$schoolname - $tableview

\n}; # Table Layout print qq{\n}; my $count; # Query Setup my $sth1 = $dbh->prepare("select field_value from $multitable where userid = ? and field_name = ?"); my $sth = $dbh->prepare("select * from $table where userid = ?"); foreach my $key ( sort keys %sort ) { my $userid = $sort{$key}; $sth->execute($userid); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }; my $ref = $sth->fetchrow_hashref; my %r = %$ref; # my $userid = $r{userid}; if ( $count % 12 == 0 ) { print qq{}; print qq{\n}; print qq{}; print qq{\n}; } $count++; print qq{\n\n}; # Lookup positions and print. my $first = 1; $sth1->execute( $userid, 'position' ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n";} print qq{\n}; # Emergency print qq{\n}; # Userid / Password print qq{\n}; #
$r{password}\n}; # Homeroom Lookup $first = 1; $sth1->execute( $userid, 'homeroom' ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n";} print qq{\n}; print qq{}; print qq{}; print qq{\n}; } print qq{
$lex{Name}/$lex{'E-mail'}$lex{Position}$lex{Emergency}$lex{UserID}$lex{Homeroom}}; print qq{$lex{Grade}$lex{Phone}$lex{Address}$lex{Att}
}; # Edit print qq{
\n}; print qq{\n}; if ( $r{tbl} ) { print qq{\n}; } print qq{
\n}; # Name Column print qq{ $r{lastname},\n}; print qq{$r{sal} $r{firstname} $r{middlename}}; if ( $r{emailwork} ) { print qq{
$r{emailwork} W\n}; } if ( $r{emailpersonal} ) { print qq{
$r{emailpersonal} P\n}; } print qq{		}; while ( my $position = $sth1->fetchrow ) { if ( not $first ) { print '
'; } else { $first = 0; } print $position; } print qq{		$r{emergency_contact_name}
\n}; print qq{$r{emergency_contact_phone}		$r{userid}}; while ( my $homeroom = $sth1->fetchrow ) { if ( not $first ) { print '
'; } else { $first = 0; } print $homeroom; } print qq{		}; $first = 1; $sth1->execute( $userid, 'grade' ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n";} while ( my $grade = $sth1->fetchrow ) { if ( not $first ) { print '
'; } else { $first = 0; } print $grade; } print qq{		$r{home_phone}H
$r{cell_phone}C		$r{street} $r{city}
$r{prov} $r{pcode}		$r{doatt}
\n}; # WITHDRAWN Staff print qq{\n}; print qq{

Withdrawn Staff

\n}; my $sth1 = $dbh->prepare("select * from staff_transfer where userid = ?"); my $sth = $dbh->prepare("select * from staffwd order by lastname, firstname");$ sth->execute; if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }; # Table Layout print qq{\n}; my $count; while ( my $ref = $sth->fetchrow_hashref ){ my %r = %$ref; my $userid = $r{userid}; if ( $count % 12 == 0 ) { print qq{}; print qq{\n}; print qq{}; print qq{\n}; } $count++; print qq{\n\n}; # Emergency print qq{\n}; # Userid / Password print qq{\n}; #
$r{password}\n}; print qq{}; print qq{}; print qq{\n}; # Lookup Transfers $sth1->execute( $userid); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n";} my $first = 1; print qq{\n}; } print qq{
$lex{Name}/$lex{'E-mail'}$lex{Emergency}$lex{UserID}$lex{Phone}$lex{Address}$lex{Att}Transfers
}; # Name Column print qq{ $r{lastname},\n}; print qq{$r{sal} $r{firstname} $r{middlename}}; print qq{
$r{email}		$r{emergency_contact_name}
\n}; print qq{$r{emergency_contact_phone}		$r{userid}H:$r{home_phone}
C:$r{cell_phone}		$r{street} $r{city}
$r{prov} $r{pcode}		$r{doatt}}; while ( my $ref = $sth1->fetchrow_hashref ) { my %r = %$ref; if ( not $first ) { print '
'; } else { $first = 0; } print qq{$r{type} - $r{date} - $r{description}\n}; } print qq{
\n}; # End of showing withdrawn. print qq{\n};