#!/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 = ('Main' => 'Main', 'Error' => 'Error', 'View' => 'View', 'Math' => 'Math', 'Name' => 'Name', 'Date' => 'Date', 'Author' => 'Author', 'Scores' => 'Scores', 'Score' => 'Score', 'Age' => 'Age', 'Grade' => 'Grade', 'No Records Found' => 'No Records Found', 'Continue' => 'Continue', 'Select' => 'Select', 'Students' => 'Students', 'Check' => 'Check', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'Blank=All' => 'Blank=All', 'Edit' => 'Edit', 'Tests' => 'Tests', 'Delete' => 'Delete', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'Equivalent' => 'Equivalent', 'Next Page' => 'Next Page', 'No Blanks Allowed' => 'No Blanks Allowed', 'Student' => 'Student', 'Period' => 'Period', 'Date' => 'Date', ); use DBI; use CGI; my $self = 'mathTestView.pl'; my $editscript = 'mathTestEdit.pl'; my $deletescript = 'mathTestDelete.pl'; eval require "../../etc/admin.conf"; if ( $@ ) { print qq{$lex{Error}: $self: $@
\n}; die qq{$lex{Error}: $self: $@\n}; } eval require "./fsim.conf"; if ( $@ ) { print qq{$lex{Error}: $self: $@
\n}; die qq{$lex{Error}: $self: $@\n}; } my $q = new CGI; print $q->header; my %arr = $q->Vars; my @tim = localtime(time); my $year = $tim[5] + 1900; my $month = $tim[4] + 1; my $day = $tim[3]; if ( length( $month) == 1 ) { $month = '0'. $month; } if ( length( $day) == 1 ) { $day = '0'. $day; } my $currdate = "$year-$month-$day"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{View} $lex{Math} $lex{Scores}}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { # calendar popup. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\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}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; showTests(); } #---------------- sub showStartPage { #---------------- # Find Tests by Student Group print qq{\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #---------------- sub selectStudents { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $groupvalue = $arr{groupvalue}; delete $arr{groupvalue}; my $chk; if ( $arr{chk} ) { $chk = 'CHECKED'; } delete $arr{chk}; # Check for any Blanks foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { print qq{

$lex{'No Blanks Allowed'}

\n}; print qq{\n}; exit; } } my $select; if ( $groupvalue ) { # we're picking a group if ( $arr{groupname} eq 'grade' ) { $select = 'where grade = ?'; } else { $select = 'where homeroom = ?'; } } my $sth = $dbh->prepare("select lastname, firstname, studnum from student $select order by lastname, firstname"); if ( $select ) { $sth->execute( $groupvalue ); } else { $sth->execute; } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # Form Header print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth1 = $dbh->prepare("select count(*) from math_fstep where studnum = ?"); print qq{\n}; while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) { $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; print qq{\n}; print qq{\n}; } print qq{}; print qq{\n}; print qq{

$lex{Student}	$lex{Tests}
}; print qq{
}; if ( $count ) { print qq{}; } print qq{ $lastname, $firstname ($studnum)	$count

\n}; exit; } # end of selectStudents #------------ sub showTests { #------------ # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $startdate = $arr{startdate}; my $enddate = $arr{enddate}; delete $arr{startdate}; delete $arr{enddate}; # Searching by Student Number my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); # sort by name. my %sort = (); foreach my $studnum ( keys %arr ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; $sort{"$lastname$firstname$studnum"} = $studnum; } my $first = 1; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; # Get Student Name $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # Display Existing Tests (if any) my $sth = $dbh->prepare("select * from math_fstep where studnum = ? and to_days( tdate ) >= to_days( '$startdate' ) and to_days( tdate ) <= to_days( '$enddate') order by tdate, id"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { $first = 0; my ($yr,$mo) = split(/:/, $ref->{tage}); my $age = $yr. 'y'. $mo. 'm'; my $score = $ref->{tphase}; my $val = $score_AgeRange{ $score }; my ($min, $max) = split( /-/, $score_AgeRange{$score} ); my $color; if ( $yr < $min ) { $color = 'blue'; } if ( $yr > $max ) { $color = 'red'; } print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # $min $max removed print qq{\n}; print qq{\n}; print qq{\n}; # Edit Button print qq{\n}; # Delete Button print qq{\n}; print qq{\n\n}; } # end of student loop. if ( $first ) { print qq{

}; print qq{$lex{'No Records Found'}

\n}; } } # end of student number loop print qq{\n}; exit; }

$lex{Name}	$lex{Age}	$lex{Grade}	$lex{Score}	$lex{Period}	$lex{Date}	$lex{Author}
$lastname, $firstname	$age	$ref->{tgrade}	$ref->{tphase}	$ref->{tseason}	$ref->{tdate}	$ref->{tauthor}	\n}; print qq{\n}; print qq{\n}; print qq{	\n}; print qq{\n}; print qq{\n}; print qq{

$lex{Select} $lex{Students}\n}; print qq{	\n}; print qq{ $lex{'Blank=All'}
$lex{Check} $lex{'Next Page'}	\n}; print qq{
$lex{'Start Date'}	}; print qq{\n}; print qq{
$lex{'End Date'}	}; print qq{
	\n