#!/usr/bin/perl # Copyright 2001-2021 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 = ('Withdrawn Students' => 'Withdrawn Students', 'Name' => 'Name', 'Number' => 'Number', 'Grade' => 'Grade', 'Gender' => 'Gender', 'Birthdate' => 'Birthdate', 'Ident' => 'Ident', 'Main' => 'Main', 'Error' => 'Error', 'View' => 'View', 'Last,First/Last/First/Initials', 'Last,First/Last/First/Initials', 'School' => 'School', 'Search' => 'Search', 'Student' => 'Student', ); use DBI; use CGI; my $self = 'globview.pl'; # Read config variables 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; if ( not -e "$globdir/global.conf" ) { print "Cannot read the global.conf file!"; print "\n"; die; } eval require "$globdir/global.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@
\n"; } if ( $oldbase{$dbase} ) { # We are an onion lake school %dbase = %oldbase; } my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $month++; $wday++; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; # HTML Heading my $title = qq{$lex{View} Other Schools $lex{'Withdrawn Students'}}; print qq{$doctype\n$title \n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showSchool(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; showStudent(); } #---------------- sub showStartPage { #---------------- # foreach my $key (sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } print qq{
\n}; print qq{
\n}; print qq{
}; print qq{$lex{'Last,First/Last/First/Initials'}
\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}; print qq{\n}; foreach $database (sort keys %dbase) { #defined in global config file. print qq{\n}; print qq{\n}; } print qq{
SelectSchool
$dbase{$database}
\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #------------- sub showSchool { #------------- # passed school database (if any), otherwise display all; # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach $database ( sort keys %dbase) { #defined in global config file. if ( %arr and not $arr{$database} ) { next; } $dsn = "DBI:$dbtype:dbname=$database"; $dbh = DBI->connect($dsn,$guser,$gpassword); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $select; if ( $arr{grade} ) { my $gr = $dbh->quote( $arr{grade} ); $select = "where grade = $gr"; } $sortorder = "lastname, firstname"; if ($arr{sortorder} eq "birthdate") { $sortorder = "birthdate"; } $sth = $dbh->prepare("select * from studentwd $select order by $sortorder"); $sth->execute; if ($DBI::errstr){print $DBI::errstr; die $DBI::errstr; } print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; print qq{\n}; print qq{\n\n}; } print qq{
$dbase{$database}
$lex{Name}$lex{Number}$lex{Grade}$lex{Gender}$lex{Birthdate}$lex{Ident}
$r{lastname}, $r{firstname} $r{initial}$r{studnum}$r{grade}$r{sex}$r{birthdate}$r{provnum}
\n}; } # End of Database reading Loop. print qq{\n}; } # end of showSchool #-------------- sub showStudent { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $student = $arr{student}; # Get Local database for meta values my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Read in Meta Values my %metaval; my $sth = $dbh->prepare("select fieldid, fieldname from meta where tableid = 'student'"); $sth->execute; if ($DBI::errstr){print $DBI::errstr; die $DBI::errstr;} while ( my ($fid, $fname ) = $sth->fetchrow ) { $metaval{ $fid } = $fname; } # my $fields = 'lastname, firstname, studnum, studid, pic'; my %stud; # hash to store the information. my ( $lastname,$firstname ) = split(',', $student); # Loop through all databases looking for the student; foreach $database ( sort keys %dbase) { #defined in global config file. $dsn = "DBI:$dbtype:dbname=$database"; $dbh = DBI->connect($dsn,$guser,$gpassword); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } if ( $lastname and $firstname ){ # both entered. $sth = $dbh->prepare("select * from studentwd where lastname = ? and firstname = ?"); $sth->execute( $lastname, $firstname ); } elsif ($lastname and not $firstname){ # only lastname (no comma) if ( length($lastname) == 2 ){ # search by initials: fi, li. my $fi = substr($lastname,0,1). '%'; my $li = substr($lastname,1,1). '%'; $sth = $dbh->prepare("select * from studentwd where lastname $sql{like} ? and firstname $sql{like} ?"); $sth->execute( $li, $fi ); } else { # a single value; could be lastname or firstname $sth = $dbh->prepare("select * from studentwd where lastname = ? or firstname = ? order by lastname, firstname"); $sth->execute( $lastname, $lastname ); } } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ){ my %r = %$ref; my $studnum = $r{studnum}; $stud{"$database:$studnum"} = $ref; } } # end of database loop # Read in Template unless (open (FH,"<../../template/globview.tpl")) { print $lex{'Cannot open'}. " template file: $!\n"; die $lex{'Cannot open'}. " template file: $!\n"; } $text; # now a global { local $/; $text = ; close FH;} # Replace meta values. $text =~ s{\<\*(.*?)\*\>} { exists($metaval{$1}) ? $metaval{$1} : $1 }gsex; # start table # Loop through and display all records. foreach my $key ( sort keys %stud ) { my %r = %{ $stud{$key}}; my ($db,$studnum) = split(':', $key); print qq{\n}; print qq{\n}; # if ($pic eq 'Y') { # print qq{\n}; # } prStudentRecord( $stud{$key} ); # passed a ref; print qq{
}; print qq{$dbase{$db} - $r{firstname} $r{lastname}
}; # print qq{}; # print qq{ $firstname $lastname
\n}; } # End of Student Loop if ( not %stud ) { print qq{

No Students Found!

\n}; } print qq{

[ $lex{Main} ]

\n}; displaySearchForm(); print qq{\n}; } # end of showStudent #------------------- sub displaySearchForm { #------------------- print qq{
\n}; print qq{\n}; print qq{
}; print qq{$lex{'Last,First/Last/First/Initials'}
\n}; print qq{\n}; print qq{
\n}; return; } #------------------- sub prStudentRecord { #------------------- my $ref = shift; # print "REF:$ref
\n"; # Read in Field Values my %studval = %$ref; my $formtext = $text; # text defined before function call. # Now put replacement text back in. $formtext =~ s{\<\@(.*?)\@\>} { exists($studval{$1}) ? $studval{$1} : $1 }gsex; print $formtext,"\n"; return; } # End of PrStudentRecord