\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 function.
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 with this date range (all school) subselect for homeroom/grade below
my $sth = $dbh->prepare("select studnum from read_test
where to_days(tdate) >= to_days('$startdate') and
to_days(tdate) <= to_days('$enddate') order by tdate desc");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my %studtest; # students with tests in this date range (all school)
while ( my $studnum = $sth->fetchrow ) {
$studtest{$studnum} = 1;
}
# Display Dates;
print qq{
\n};
# Student Select / Display
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
# Next Description Line
print qq{
};
print qq{** = Prev LLI program, };
print qq{*** = Current LLI program
\n};
# Now get student names, grade/homeroom selection and reading levels
my $sth1 = $dbh->prepare("select * from read_test where studnum = ? and
to_days(tdate) >= to_days('$startdate') and
to_days(tdate) <= to_days('$enddate') order by tdate desc");
my $sth = $dbh->prepare("select lastname, firstname, studnum from $studtable $select
order by lastname, firstname");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my %readDra; # reading level and dra type
my (@students, %sort, %notests); # notests is hash for kids without tests this time period.
while ( my ($lastname, $firstname, $studnum) = $sth->fetchrow ) {
push @students, $studnum;
$sort{"$lastname$firstname$studnum"} = $studnum;
$sth1->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth1->fetchrow_hashref ) {
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.
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";
}
}
# print " \n";
# use Data::Dumper;
# print Dumper %readDra;
foreach my $rl ( sort {$a <=> $b} keys %readDra ) {
foreach my $bktype ( sort keys %{ $readDra{$rl} } ) {
foreach my $dratype ( sort keys %{ $readDra{$rl}{$bktype} } ) {
# print "RL:$rl DRA:$dratype BK:$bktype STUD:". %{$readDra{$rl}{$dratype}}. " \n";
my @temp = keys %{$readDra{$rl}{$bktype}{$dratype}}; # @temp are the students
# print @temp, " \n";
showReadingLevel( $rl, $arr{onlylatest}, \@temp, $startdate, $enddate,
$dratype, $bktype );
}
}
}
print qq{