\n};
# Get Homerooms
my $sth = $dbh->prepare("select distinct homeroom from student
where homeroom != '' and homeroom is not NULL order by homeroom");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my @homerooms;
# Homeroom teacher for a particular homeroom value
my $sth1 = $dbh->prepare("select userid from staff_multi where field_name = 'homeroom'
and field_value = ?");
# Get grade(s) for particular homeroom
my $sth2 = $dbh->prepare("select distinct grade from student where homeroom = ?");
HOMEROOM:
while ( my $hr = $sth->fetchrow ) {
# Do we have a teacher for this homeroom?
$sth1->execute( $hr );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my $userid = $sth1->fetchrow;
if ( not $userid ) {
print qq{
$lex{Missing} $lex{Teacher} - $lex{Homeroom} $hr
\n};
next HOMEROOM;
}
# Get Grade(s) of homeroom and check that they use 'homeroom' attendance entry method
$sth2->execute( $hr );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $gr = $sth2->fetchrow ) {
if ( $g_AttendanceEntryMethod{$gr} ne 'homeroom' ) {
print qq{
$lex{Error} Homeroom $hr (grade $gr) not marked for homeroom attendance.
\n};
next HOMEROOM;
}
}
push @homerooms, $hr;
} # end of homeroom loop
@homerooms = sort {$a <=> $b} @homerooms;
print qq{
Missing Attendance Entries
\n};
my $first = 1;
my $count = 1;
# Loop Through All homerooms, checking attendance
foreach my $homeroom ( sort {$a <=> $b} @homerooms ) {
# Check that Teacher attendance was done up to this date.
my $res = checkAttEntry( $enddate, $homeroom );
if ( $res ) { $count++; $first = 0; }
if ( $count % 5 == 1 ) { print qq{ \n} };
}
if ( $first ) { print qq{
No Missing Attendance Found
\n}; }
print qq{\n};
exit;
} # end of showReport
#----------------
sub showStartPage { # get End Date for Checking.
#----------------
print qq{\n};
print qq{\n};
print qq{