\n};
print qq{| };
# Today
print qq{\n};
# Yesterday
print qq{\n};
print qq{ |
\n};
# Divider
print qq{
|
\n};
print qq{| \n};
print qq{ |
\n};
print qq{| $lex{Start}/$lex{Single} $lex{Date} | \n};
print qq{\n};
print qq{ |
\n};
print qq{| $lex{End} $lex{Date} | \n};
print qq{\n};
print qq{ $lex{'Blank=Single Date'} |
\n};
# Divider
print qq{
|
\n};
print qq{| \n};
print qq{ |
\n};
print qq{ | Last,First/Last/Initials/Studnum |
\n};
print qq{\n};
print qq{
\n};
print qq{\n};
exit;
}
#-------------
sub showReport {
#-------------
# foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; }
my ($sth, $student );
if ( $arr{student} ) {
$student = $arr{student};
if ($student =~ /\d+/) { # we have a student number
push @studnum, $student; # only a single value
} else { # we have some text.
($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ($lastname and $firstname){ # both entered.
my $ln = $dbh->quote( $lastname );
my $fn = $dbh->quote( $firstname );
$sth = $dbh->prepare("select studnum from $studenttable
where lastname = $ln and firstname = $fn ");
} elsif ($lastname and not $firstname){ # only lastname (no comma)
if (length($lastname) == 2){ # search by initials: fi, li.
my $fi = $dbh->quote( substr($lastname,0,1).'%' );
my $li = $dbh->quote( substr($lastname,1,1).'%' );
$sth = $dbh->prepare("select studnum from $studenttable
where lastname $sql{like} $li and firstname $sql{like} $fi");
} else {
$ln = $dbh->quote( $lastname );
$sth = $dbh->prepare("select studnum from $studenttable
where lastname = $ln order by firstname");
}
}
}
if ( $sth ) { # sth should be set above in one of 3 places
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
while ( my $studnum = $sth->fetchrow) {
push @studnum, $studnum;
}
}
if ( not @studnum ) { # no records
print qq{$lex{Attendance} $lex{'Not Found'}
\n};
print qq{