\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showReport();
}
#-------------
sub showReport {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my @grades;
my $sth = $dbh->prepare("select distinct tgrade from cree_scores
where schoolyear = ?");
$sth->execute( $arr{schoolyear} );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $grade = $sth->fetchrow ) {
push @grades, $grade;
}
@grades = sort {$a <=> $b} @grades;
my ($totprecount, $totpostcount, $totpresum, $totpostsum);
foreach my $grade ( @grades ) {
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( $arr{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{
\n};
foreach my $studnum ( @students ) {
print qq{
$names{$studnum}
\n};
my ($precount, $postcount, $presum, $postsum);
foreach my $scoremonth ( sort {$a <=> $b} keys %scoremonth ) {
my $pretest = $data{$studnum}{$scoremonth}{'pretest'};
my $posttest = $data{$studnum}{$scoremonth}{'posttest'};
if ( $pretest ) {
$precount++;
$presum += $pretest;
$gprecount++;
$gpresum += $pretest;
$totprecount++;
$totpresum += $pretest;
}
if ( $posttest ) {
$postcount++;
$postsum += $posttest;
$gpostcount++;
$gpostsum += $posttest;
$totpostcount++;
$totpostsum += $posttest;
}
# Check for Exceptions
if ( not $pretest ) {
# Get Date of test to match against ssp_exceptions entry
my $tdate = $tdates{$scoremonth}{'pretest'};
my $sth2 = $dbh->prepare("select * from ssp_exceptions
where ssptype = 'cree' and tdate = ? and studnum = ?");
$sth2->execute($tdate, $studnum);
my $ref = $sth2->fetchrow_hashref;
if ( not $ref ) {
$pretest = qq{M};
} else { # display the exception
$pretest = qq{E};
}
}
if ( not $posttest ) {
# Get Date of test to match against ssp_exceptions entry
my $tdate = $tdates{$scoremonth}{'posttest'};
my $sth2 = $dbh->prepare("select * from ssp_exceptions
where ssptype = 'cree' and tdate = ?");
$sth2->execute($tdate);
my $ref = $sth2->fetchrow_hashref;
if ( not $ref ) {
$posttest = qq{M};
} else { # display the exception
$posttest = qq{E};
}
}
print qq{
$pretest/$posttest
};
}
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
# Do total
my ($totpreavg, $totpostavg);
if ( $totprecount ) {
$totpreavg = round($totpresum / $totprecount, 1);
}
if ( $totpostcount ) {
$totpostavg = round($totpostsum / $totpostcount, 1);
}
print qq{
Overall Averages $totpreavg / $totpostavg
\n};
print qq{\n};
exit;
} # end of showReport
#----------------
sub showStartPage {
#----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my (@homerooms, @grades, @schoolyears );
=head
# 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;
=cut
# Get School Years
$sth = $dbh->prepare("select distinct schoolyear from cree_scores");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $yr = $sth->fetchrow ) {
push @schoolyears, $yr;
}
@schoolyears = reverse sort @schoolyears;
print qq{