\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 $schoolyear = $arr{schoolyear};
my ( %stotal, %total, %gtotal);
my @grades;
my $homeroom;
if ( $arr{grade} ) { # just do a single grade;
push @grades, $arr{grade};
} elsif ( $arr{homeroom} ) { # just do that homeroom; find their grades.
$homeroom = $arr{homeroom};
my $sth = $dbh->prepare("select distinct grade from student where homeroom = ? and
grade is not NULL and grade != ''");
$sth->execute( $homeroom );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $gr = $sth->fetchrow ) {
if ( $gr eq 'PK' ) { next; } # skip PK
push @grades, $gr;
}
} else { # do all grades
my $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 ) {
if ( $gr eq 'PK' ) { next; } # skip PK
push @grades, $gr;
}
}
@grades = sort {$a <=> $b} @grades;
# print qq{GR:@grades \n};
# Build Outcomes selection
my %outcomes; # lists outcomes.
my %odesc; # outcomes description.
my $sth = $dbh->prepare("select * from mathca_outcomes");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
my $oid = $r{oid};
my $grade = $r{grade};
# print qq{OID:$oid };
my ($cat, $seq) = split(/\./, $oid);
$cat =~ s/$grade$//; # remove grade
# print qq{Grade:$grade CAT:$cat SEQ:$seq
\n};
$outcomes{$grade}{$cat}{$seq} = $oid;
$odesc{$oid} = $r{odesc};
} # Done building data structure.
my %outcount; # outcomes count for each grade;
foreach my $gr ( sort keys %outcomes ) {
foreach my $cat (sort keys %{ $outcomes{$gr} } ) {
foreach my $seq ( sort keys %{$outcomes{$gr}{$cat} }) {
$outcount{$gr}++;
# print "GR:$gr CAT:$cat SEQ:$seq VAL:$outcomes{$gr}{$cat}{$seq} \n";
}
}
}
# foreach my $gr ( sort keys %outcount ) {
# print qq{
GR:$gr Count:$outcount{$gr}
\n};
# }
# remove later once sure this isn't needed.along with line 217 skipping students
=head
# get the students in the homeroom, split up by grade, possibly
my %students; # students{grade}{studnum} = 1;
if ( $homeroom ) {
my $sth = $dbh->prepare("select studnum,grade from student where homeroom = ?");
$sth->execute( $homeroom );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($studnum,$grade) = $sth->fetchrow ) {
$students{$grade}{$studnum} = 1;
}
} elsif ( $arr{grade} ) {
my $sth = $dbh->prepare("select studnum,grade from student where grade = ?");
$sth->execute( $arr{grade} );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($studnum,$grade) = $sth->fetchrow ) {
$students{$grade}{$studnum} = 1;
}
}
=cut
# Testing Data
# foreach my $key (sort keys %students ) {
# foreach my $key1 (sort keys %{ $students{$key}} ) {
# print qq{K:$key K1:$key1 VAL:$students{$key}{$key1} \n};
# }
# }
my $sth = $dbh->prepare("select * from mathca_scores where schoolyear = ? and tgrade = ?");
foreach my $grade ( @grades ) {
# Now build a structure for this grade
my %strandcount; # $catcount{category} = number in this category.
foreach my $cat ( sort keys %{ $outcomes{$grade} } ) {
foreach my $seq ( sort keys %{ $outcomes{$grade}{$cat} } ) {
if ( $seq > $strandcount{$cat} ) { $strandcount{$cat} = $seq; }
}
}
# Now Select the records for each grade
$sth->execute( $schoolyear, $grade );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
# if ( not $students{$grade}{ $r{studnum} } ) { next; } # skip if not a student of interest
$data{$grade}{ $r{outcome} }{ $r{prepost} }{'sum'} += $r{score};
$data{$grade}{ $r{outcome} }{ $r{prepost} }{'count'}++;
if ( $r{score} >= 3 and $r{prepost} eq 'posttest' ) {
$data{$grade}{ $r{outcome} }{ $r{prepost} }{'pass'}++;
}
} # data for a single grade
print qq{
Grade $grade - Total Outcomes $outcount{$grade}
\n};
my $first = 1;
foreach my $strand ( @strands ) {
if ( $strandcount{$strand} ) { # print IF we have that strand in this grade
foreach my $idx ( 1..$strandcount{$strand} ) {
my $oid = $strand. $grade. q{.}. $idx;
if ( $data{$grade}{$oid} ) { # print a line for this
if ( $first ) {
# Table Heading
print qq{
\n};
}
# Total Line
my ($totalavg, $passpercent);
if ( $total{'count'} ) {
$totalavg = format_number( $total{'sum'} / $total{'count'}, 2,2);
$passpercent = format_number( $total{'pass'} * 100 / $total{'count'}, 2,2);
}
print qq{
Total
$totalavg
$total{'count'}
};
print qq{
$total{'pass'}
$passpercent
\n};
print qq{
\n};
print qq{\n};
exit;
} # end of showReport
#----------------
sub showStartPage { # Entry Values for Custom Script
#----------------
my (@homerooms, @grades, @schoolyears );
# 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 ) {
if ( $gr > 9 ) { next; }
push @grades, $gr;
}
@grades = sort {$a <=> $b} @grades;
# Get School Years
$sth = $dbh->prepare("select distinct schoolyear from mathca_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{