\n};
# foreach my $key ( sort keys %arr ) { print "K:$key Val:$arr{$key} \n"; }
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
selectStudent();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
showReport();
}
#----------
sub fmtDate {
#----------
my ( $year, $mon, $day ) = split '-', shift;
return qq{$year-$s_month[$mon]-$day};
}
#----------------
sub showStartPage {
#----------------
# foreach my $key ( sort keys %arr ) { print "K:$key Val:$arr{$key} \n"; }
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
my ($studnum) = @_;
print qq{\n};
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#----------------
sub selectStudent {
#----------------
my $student = $arr{student};
# Setup the Search
if ($student =~ /\d+/) { # we have a student number
$studnum = $student;
$sth = $dbh->prepare("select lastname, firstname, studnum from studentall
where studnum = ?");
$sth->execute( $studnum );
} else { # we have words hopefully with a comma
($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ($lastname and $firstname){ # both entered.
$sth = $dbh->prepare("select lastname, firstname, studnum
from studentall where lastname = ? and firstname = ?
order by lastname, firstname");
$sth->execute( $lastname, $firstname );
} elsif ( $lastname and not $firstname ){ # only lastname (no comma)
if (length($lastname) == 2){ # search by initials: fi, li.
$fi = substr($lastname,0,1);
$li = substr($lastname,1,1);
$fi .= '%';
$li .= '%';
$sth = $dbh->prepare("select lastname,firstname, studnum from studentall
where lastname $sql{like} ? and firstname $sql{like} ?
order by lastname, firstname");
$sth->execute( $li, $fi );
} else {
$sth = $dbh->prepare("select lastname, firstname, studnum
from studentall where lastname = ?
order by lastname, firstname");
$sth->execute( $lastname );
}
} else {
$sth = $dbh->prepare("select lastname, firstname, studnum
from studentall order by lastname, firstname");
}
} # Last Else
if ( $DBI::errstr ) { print $lex{Error}. ": $DBI::errstr"; die $DBI::errstr; }
my $first = 1;
print qq{
\n};
print qq{
$lex{Name}
$lex{Test}
\n};
my $sth1 = $dbh->prepare("select count(*) from read_test
where studnum = ? and to_days( tdate ) >= to_days( '$arr{startdate}' )
and to_days( tdate ) <= to_days( '$arr{enddate}')");
# Loop through each found student.
while ( my ( $lastname, $firstname,$studnum ) = $sth->fetchrow ) {
$sth1->execute( $studnum );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $testcount = $sth1->fetchrow;
print qq{