#! /usr/bin/perl # Copyright 2001-2025 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Continue' => 'Continue', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'Select by' => 'Select by', 'Error' => 'Error', 'Sort by' => 'Sort by', 'Name' => 'Name', 'Common Math Assessment' => 'Common Math Assessment', 'Report' => 'Report', 'OR' => 'OR', 'No Selection' => 'No Selection', 'School Year' => 'School Year', 'Show Withdrawn' => 'Show Withdrawn', ); my $self = 'viewHidden.pl'; 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; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $wday++; $mon++; my $currsdate = "$year-$mon-$mday"; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; #my $currjd = julian_day( split('-', $currsdate) ); my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = "View Hidden Students"; print qq{$doctype\n$title\n}; print qq{\n}; # Some Javascript here for resizing... print "\n"; print qq{$chartype\n\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showStudentRecord(); } #---------------- sub showStartPage { # Display Students in the student_temp table. #---------------- my $sth = $dbh->prepare("select * from student_temp order by lastname, firstname"); my $first = 1; $sth->execute(); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { %r = %$ref; if ( $first ) { print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } print qq{}; print qq{}; print qq{}; print qq{}; print qq{\n}; $first = 0; } print qq{
Temporary Student Table
StudentGradeBirthdateTabPop
$r{lastname}, $r{firstname} ($r{studnum})$r{grade}$r{birthdate}\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
}; print qq{Popup
\n}; if ( $first ) { # no records print qq{

No Records Found

\n}; } print qq{\n}; exit; } #-------------------- sub showStudentRecord { #-------------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed: studnum # 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_temp'; $sth = $dbh->prepare("select * from $table where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } 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}; if ( $first ){ # no records found print qq{
$lex{'No Records Found'}
\n}; } else { print qq{\n}; } print qq{\n}; exit; }