\n};
print qq{[ $lex{Main} ]\n};
if ( getcwd() !~ /tcgi/ ) { # we are in cgi
print qq{[ SSP ]\n};
}
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showReport();
}
#----------
sub fmtDate {
#----------
my ( $year, $mon, $day ) = split '-', shift;
return "$year-$s_month[$mon]-$day";
}
#----------------
sub showStartPage {
#----------------
# Get grades and homerooms
my (@homerooms, @grades );
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;
# 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;
=head
# Distinct Seasons
my (@seasons, %seasons);
$sth = $dbh->prepare("select distinct season from read_test where season is not NULL");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my %seasons;
while ( my $season = $sth->fetchrow ) {
my ($y,$s) = split('-',$season);
if ( $s eq 'Fall' ) { $season = "$y-ZZZ"; } # fix sorting order.
$seasons{$season} = 1; # Spring, Summer or Fall
}
@seasons = sort {$b cmp $a} keys %seasons; # with 'aaa' rather than 'Spring'.
@revseasons = sort {$a cmp $b} keys %seasons; # with 'aaa' rather than 'Spring'.
=cut
# Form Start - Student Group
print qq{\n};
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#-------------
sub showReport {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Passed: startdate, enddate, season, grade or homeroom, onlylatest(always).
# Previously I was using starting and ending season without any date ranges.
# Load the reading library containing the scoreToGrade / showReadingLevel
eval require "../../lib/libreading.pl";
if ( $@ ) {
print $lex{Error}. " $self: $@ \n";
die $lex{Error}. "$self: $@\n";
}
my $startdate = $arr{startdate};
my $enddate = $arr{enddate};
delete $arr{startdate};
delete $arr{enddate};
if ( $arr{season} ) { # override start and end dates. Only use those dates below (no season)
# Passed "Year-Season" values; convert into dates
my ($yr,$ss) = split('-', $arr{season} );
# print "YR:$yr SS:$ss \n";
# The seasondates lookup is text based 'Fall', etc.
$startdate = $seasondates{$ss}{start};
$startdate = qq{$yr-$startdate};
$enddate = $seasondates{$ss}{end};
$enddate = qq{$yr-$enddate};
}
delete $arr{season};
# remove season.
# Substitute in the Month with text value for display below.
my $sdate = fmtDate( $startdate );
my $edate = fmtDate( $enddate );
my $studtable = 'student';
if ( $arr{showwithdrawn} ) {
$studtable = 'studentall';
};
# Get students in this grade or homeroom
my ($select,$selectvalue); # value of homeroom or grade
print qq{
};
if ( $arr{grade} ) {
print qq{$lex{Grade} $arr{grade}};
$selectvalue = $dbh->quote($arr{grade});
$select = "where grade = $selectvalue";
} elsif ( $arr{homeroom} ) {
print qq{$lex{Homeroom} $arr{homeroom}};
$selectvalue = $dbh->quote( $arr{homeroom} );
$select = "where homeroom = $selectvalue";
} else {
print qq{All Students\n};
}
# Get Teacher Name if a homeroom
if ( $arr{homeroom} ) {
my $sth = $dbh->prepare("select lastname, firstname from staff as s, staff_multi as sm
where sm.userid = s.userid and field_name = 'homeroom' and field_value = ?");
$sth->execute( $arr{homeroom} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ( $lastname, $firstname ) = $sth->fetchrow;
print qq{ – $firstname $lastname};
}
print qq{
\n}; # finish description line
# Display Dates;
print qq{
\n};
# Get students in this homeroom or grade.
my (%sort, %studname );
my $sth = $dbh->prepare("select studnum, lastname, firstname, grade from $studtable $select");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($studnum,$lname,$fname,$grade ) = $sth->fetchrow ) {
$sort{"$lname$fname$studnum"} = $studnum;
$studname{$studnum} = qq{$lname, $fname (Gr $grade)};
}
# Find any student tests
my $sth = $dbh->prepare("select * from read_test where studnum = ? and
to_days(tdate) >= to_days('$startdate') and
to_days(tdate) <= to_days('$enddate') ");
# Loop over all student tests.
my $first = 1;
my (%readDra, %notests);
foreach my $key ( sort keys %sort ) {
my $studnum = $sort{$key};
$sth->execute($studnum);
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
$first = 0;
if ( not $ref ) { # no tests in this time period
$notests{$studnum} = 1;
next; # student
}
my %r = %$ref; # will also have bktype here... fiction or nonfiction.
# print "SN:$r{studnum} Grade:$r{tgrade} \n";
if ( not $r{dratype} ) { $r{dratype} = 2; }
if ( not defined $r{bktype} ) { # for older tests without a book type
if ( $r{readlevel} eq '16N' or $r{readlevel} eq '28N' or $r{readlevel} eq '38N' ) {
$r{bktype} = 'nonfiction';
} else {
$r{bktype} = 'fiction';
}
}
$readDra{ $r{readlevel} }{ $r{bktype} }{ $r{dratype} }{ $studnum } = 1;
# print "RL:$r{readlevel} BK:$r{bktype} DRA:$r{dratype} SN:$studnum \n";
} # end of loop for single student.
} # end of all students
if ( $first ) { # No tests.
print qq{