#!/usr/bin/perl
# Copyright 2001-2021 Leslie Richardson
# This file is part of Open Admin for Schools.
# Read Report - read all reading tests from all schools, calc the
# Equiv Grade and then compare to the actual grade and get a
# delta. Compile into per grade, per school and overall stats.
my %lex = ('Error' => 'Error',
'Main' => 'Main',
'Math' => 'Math',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
'Date' => 'Date',
'Continue' => 'Continue',
'Schools' => 'Schools',
'Database' => 'Database',
'Reading' => 'Reading',
'Report' => 'Report',
'Global' => 'Global',
'Select' => 'Select',
'Split' => 'Split',
'Grade' => 'Grade',
'Current' => 'Current',
'Output' => 'Output',
'Combine failed on input' => 'Combine failed on input',
'Download CSV File' => 'Download CSV File',
'Test' => 'Test',
'Group' => 'Group',
'Division' => 'Division',
'Paper Size' => 'Paper Size',
'Letter' => 'Letter',
'Legal' => 'Legal',
'A4' => 'A4',
'Season' => 'Season',
'Seasons' => 'Seasons',
'Missing' => 'Missing',
'Weight' => 'Weight',
'Tests' => 'Tests',
);
my $self = 'mathRpt1.pl';
my $missing = qq{$lex{Missing}};
my @phases = qw(Emergent Matching Quantifying Partitioning Factoring Operating);
my %phaseval = qw(Emergent 1 Matching 2 Quantifying 3 Partitioning 4 Factoring 5 Operating 6);
# Maps Grades to Grade Divisions I, II, III, IV.
my %divmap = ( 'K' => 1, 1 => 1, 2 => 1, 3 => 1,
4 => 2, 5 => 2, 6 => 2,
7 => 3, 8 => 3, 9 => 3,
10 => 4, 11 => 4, 12 => 4 );
# use GD::Graph::bars;
# use GD::Graph::colour qw(:colours);
use DBI;
use CGI;
use Number::Format qw(:all);
use Time::JulianDay;
use Text::CSV_XS;
use Statistics::Basic qw(:all);
#use strict;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my @time = localtime(time);
my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $currdate = "$year-$month-$time[3]";
my $schyear = $year;
if ( $month < 7 ){ $schyear = $schyear - 1; }
my $prevyear = $schyear - 1;
my $q = CGI->new;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
# Script Heading Descriptor
my $title = qq{$lex{Math} $lex{Report} 1};
# Print Page Heading
print qq{$doctype\n$title\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};
selectMath();
}
#----------------
sub showStartPage {
#----------------
# Get the Test Seasons
my %seasons = ();
my $sth = $dbh->prepare("select distinct tseason from math_fstep
where tseason is not NULL and tseason != ''");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $season = $sth->fetchrow ) {
$seasons{$season} = 1;
}
# Start the Form.
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#-------------
sub selectMath {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
foreach my $season ( sort keys %arr ) {
my %seasondata = ();
print qq{
$schoolname – $season
\n};
my @students = ();
my $sth = $dbh->prepare("select distinct studnum from math_fstep");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
push @students, $studnum;
}
if ( not @students ) {
print qq{
No Student Tests Found
\n};
next;
}
# Now loop through all students printing results; setup queries first
my $sth1 = $dbh->prepare("select tphase, tgrade from math_fstep
where studnum = ? and tseason = ? order by tdate desc");
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $sth2 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my %seasondata = ();
my %colsummary = ();
my @errors;
foreach my $studnum ( @students ) {
# Get Tests
$sth1->execute( $studnum, $season );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $trows = $sth1->rows;
# if $onlylatest, limit to 1 test
# if ( $onlylatest and $trows > 1 ) { $trows = 1; }
if ( $trows > 1 ) { $trows = 1; }
for ( 1 .. $trows ) {
my ( $tphase, $tgrade ) = $sth1->fetchrow;
#if ( $tgrade eq '1 ' ) { # catch wonky grades
# print qq{STUDENT:$studnum };
#}
if ( not $tphase or not $tgrade ) {
$sth2->execute( $studnum );
my ( $lastname, $firstname ) = $sth2->fetchrow;
if ( not $tphase ) { $tphase = $missing; }
my $error = qq{
\n};
push @errors, $error;
next;
}
$seasondata{$tgrade}{$tphase}++;
$overall{$tgrade}{$tphase}++;
$colsummary{$tphase}++;
}
} # end of student loop
# Skip if no tests in this season
if ( not %seasondata ) {
print qq{
No tests in this Season
\n};
next;
}
# Display Season Data
# Now Printing Grade Level Output
print qq{