#! /usr/bin/perl
# Copyright 2001-2018 Leslie Richardson
# This file is part of Open Admin for Schools.
# Based on cma Rpt1a from central site.
# Show data from all schools in a single table with overall at the end.
my %lex = ('Main' => 'Main',
'Continue' => 'Continue',
'Homeroom' => 'Homeroom',
'Grade' => 'Grade',
'Select by' => 'Select by',
'Error' => 'Error',
'Sort by' => 'Sort by',
'Name' => 'Name',
'Report' => 'Report',
'OR' => 'OR',
'No Selection' => 'No Selection',
'School Year' => 'School Year',
'Select' => 'Select',
'School' => 'School',
);
my $self = 'ilangRpt2.pl';
my $startgrade = 2;
my $endgrade = 6;
use DBI;
use CGI;
use Cwd;
use Number::Format qw(:all);
eval require "../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 $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;
}
my $title = "Indigenous Languages $lex{Report} 2";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
\n};
my %sort;
foreach my $db ( keys %arr ) {
$sort{"$alldbase{$db}$db"} = $db;
}
my ($gtotprecount, $gtotpostcount, $gtotpresum, $gtotpostsum);
foreach my $key ( sort keys %sort ) {
my $dbase = $sort{$key};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$guser,$gpassword);
# print qq{
$alldbase{$dbase}
\n};
my ($totprecount, $totpostcount, $totpresum, $totpostsum);
foreach my $grade ( $startgrade..$endgrade ) { # defined at top of script.
my ($gprecount, $gpostcount, $gpresum, $gpostsum);
$sth = $dbh->prepare("select lastname, firstname, studnum from student
where grade = ? order by lastname, firstname");
$sth->execute( $grade );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my %data; # holds all data $data{studnum}{month}{prepost} = score;
my @students; # provides order of students
my %scoremonth; # lists the scoremonth values
my %names; # store student names;
my %tdates; # store test dates for scoremonth and pre/post $tdates{scoremonth}{pretest/posttest};
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
my $studnum = $r{studnum};
push @students, $studnum;
$names{$r{studnum}} = "$r{lastname}, $r{firstname}";
# Get this student's data
my $sth1 = $dbh->prepare("select prepost, scoremonth, score, tdate from cree_scores
where schoolyear = ? and studnum = ? order by tdate");
$sth1->execute( $schoolyear, $studnum );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($prepost, $scoremonth, $score, $tdate) = $sth1->fetchrow ) {
$scoremonth{$scoremonth} = 1;
$data{$studnum}{$scoremonth}{$prepost} = $score;
$tdates{$scoremonth}{$prepost} = $tdate;
}
}
if ( not %data ) {
# print qq{
No Data Found - Grade $grade
\n};
next; # grade
}
# print the data structure as a table;
# print qq{
\n};
# print qq{
Pretest / Posttest (Hover on Score Month to see Dates)
\n};
# header section.
# print qq{
Grade $grade
};
my $colcount;
foreach my $scoremonth ( sort {$a <=> $b} keys %scoremonth ) {
my $predate = $tdates{$scoremonth}{'pretest'};
my $postdate = $tdates{$scoremonth}{'posttest'};
# print qq{
$s_month[$scoremonth]
};
$colcount++;
}
# print qq{
Average
\n};
$colcount++; # due to name column
# print qq{
};
}
my ($preavg, $postavg);
if ( $precount ) {
$preavg = round($presum / $precount, 1);
}
if ( $postcount ) {
$postavg = round($postsum / $postcount, 1);
}
if ( $preavg or $postavg ) {
# print qq{
$preavg/$postavg
\n};
} else {
# print qq{
\n};
}
} # end of student loop
# Do Grade Average
my ($gpreavg, $gpostavg);
if ( $gprecount ) {
$gpreavg = round($gpresum / $gprecount, 1);
}
if ( $gpostcount ) {
$gpostavg = round($gpostsum / $gpostcount, 1);
}
# print qq{
Grade $grade Average
\n};
# print qq{
$gpreavg / $gpostavg
\n};
# print qq{
M = Missing Entry; E = Missing Entry, Exception reason added
\n};
# print qq{\n};
} #end of grade loop
# print "PRE:$totprecount $totpresum POST:$totpostcount $totpostsum \n";
# Do total
my ($totpreavg, $totpostavg);
if ( $totprecount ) {
$totpreavg = round($totpresum / $totprecount, 1);
}
if ( $totpostcount ) {
$totpostavg = round($totpostsum / $totpostcount, 1);
}
if ( $totprecount ) {
$gtotprecount += $totprecount;
$gtotpresum += $totpresum;
}
if ( $totpostcount ) {
$gtotpostcount += $totpostcount;
$gtotpostsum += $totpostsum;
}
print qq{
$alldbase{$dbase}
$totpreavg / $totpostavg
\n};
} # end of dbase loop
# Print Overall Average for all schools
my ($gtotpreavg, $gtotpostavg);
if ( $gtotprecount ) {
$gtotpreavg = round($gtotpresum / $gtotprecount, 1);
}
if ( $gtotpostcount ) {
$gtotpostavg = round($gtotpostsum / $gtotpostcount, 1);
}
print qq{
All School Average $gtotpreavg / $gtotpostavg
\n};
print qq{
\n};
print qq{\n};
exit;
} # end of showReport
#----------------
sub showStartPage { # Entry Values for Custom Script
#----------------
my %schoolyears;
print qq{