#!/usr/bin/perl # Copyright 2001-2023 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. # Dual Run Script: cgi and tcgi %lex = ('Withdrawn Students' => 'Withdrawn Students', 'Main' => 'Main', 'Top' => 'Top', 'No Records Found' => 'No Records Found', 'All Records' => 'All Records', 'Error' => 'Error', 'Continue' => 'Continue', 'Lastname' => 'Lastname', 'Birthdate' => 'Birthdate', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Sort by' => 'Sort by', 'Select by' => 'Select by', 'View' => 'View', 'Students' => 'Students', 'Select by' => 'Select by', 'OR' => 'OR', 'Show Withdrawn' => 'Show Withdrawn', ); use DBI; use CGI; use Cwd; # Read config variables eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } eval require "../etc/repcard.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $mode; # normal or withdrawn mode my $table = 'student'; if ( $arr{table} eq 'wd' ) { $mode = 'wd'; $table = 'studentwd'; } my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $mon++; $wday++; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; # Get current dir so know what CSS to display; if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } # Display top of page my $title = "$lex{View} $lex{Students}"; print qq{$doctype\n$title\n}; print qq{\n}; if ($mode eq 'wd') { print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; # Show start page if only beginning. if ( not $arr{page} ) { showStartPage(); } else { delete $arr{page}; showReport(); } #------------- sub showReport { #------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed: grade, homeroom, student, showwithdrawn # Read in Template eval open (FH,"<../template/student.tpl"); if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } # Slurp data my $formtext; { local $/; $formtext = ; close FH;} # Create hash for fieldnames from meta. my $sth = $dbh->prepare("select fieldid, fieldname, required from meta where tableid = ?"); $sth->execute( student ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my %fieldnames; while ( my ( $fieldid, $fieldname, $required ) = $sth->fetchrow ) { if ( $required ) { # has any value $fieldname = qq{$fieldname}; } $fieldnames{$fieldid} = $fieldname; } # Now put replacement text back in. $formtext =~ s{\<\*(.*?)\*\>} { exists( $fieldnames{$1} ) ? $fieldnames{$1} : $1 }gsex; my $table = 'student'; if ( $arr{showwithdrawn} ) { $table = 'studentall'; } # Passed: grade, homeroom, or student; my $sth; if ( $arr{grade} ) { $sth = $dbh->prepare("select * from $table where grade = ? order by lastname, firstname"); $sth->execute( $arr{grade} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } elsif ( $arr{homeroom} ) { $sth = $dbh->prepare("select * from $table where homeroom = ? order by lastname, firstname"); $sth->execute( $arr{homeroom} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } elsif ( $arr{student} ) { $sth = $dbh->prepare("select * from studentall where studnum = ?"); $sth->execute( $arr{student} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } else { print qq{

Missing Value

\n}; print qq{\n}; exit; } my $first = 1; while ( my $ref = $sth->fetchrow_hashref ){ my %rec = %$ref; my $text = $formtext; # make a copy to use. # Check for a picture and picture mode (ShowStudentPicture) if ( $r_ShowStudentPicture ) { # put in a table value with a picture link. if ( $rec{pic} ) { my $pictureform = qq{

\n}; $text =~ s/\\<\/a\>/$pictureform/; } } # now put field values back into $text variable... $text =~ s{ \<\@(.*?)\@\> } { exists($rec{$1}) ? $rec{$1} : "$rec{$1}-$1" }gsex; print qq{

}; print $text, qq{\n}; print qq{

\n}; $first = 0; } if ( $first ){ # no records found print qq{

$lex{'No Records Found'}

\n}; } else { print qq{\n}; print qq{[ $lex{'Top'} ]\n}; } print qq{\n}; exit; } #---------------- sub showStartPage { # Entry Values for Custom Script #---------------- my (@homerooms, @grades ); # Get Homerooms my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $hr = $sth->fetchrow ) { push @homerooms, $hr; } @homerooms = sort {$a <=> $b} @homerooms; # Get Grades $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } @grades = sort {$a <=> $b} @grades; # Start Form print qq{\n}; exit; }

$lex{'Select by'} $lex{Grade}
$lex{OR}
$lex{'Select by'} $lex{Homeroom}
$lex{OR}
Local Student Number
$lex{'Show Withdrawn'}