};
print qq{\n};
my $nextjd = $mondayjd + 7;
my ($nextyear, $nextmonth, $nextday) = inverse_julian_day($nextjd);
my $nextdate = "$nextyear-$nextmonth-$nextday";
print qq{\n\n};
# Pop Up Calendar Date Selector
print qq{
\n\n};
my $sth = $dbh->prepare("select id, dayfraction from dates where date = ?");
for my $i ( 1..5 ) { # five days of this week.
my ($wkyear, $wkmonth, $wkday) = inverse_julian_day($mondayjd);
my $dow = day_of_week($mondayjd) + 1;
my $tmpdate = qq{$wkyear-$wkmonth-$wkday};
# Check for date being fully closed or not (ie ALL DAy).
# Skip if closed all day.
$sth->execute( $tmpdate );
my ( $id, $dayfrac ) = $sth->fetchrow;
# Logic: Skip for attendance if closed all day.
if ( $dayfrac > 0.99 ) { # ie. only 1.000, closed all day, skip
$mondayjd++;
next;
}
print qq{\n};
$mondayjd++;
}
print qq{ |
\n};
# Get the Classroom Teachers
my $sth1 = $dbh->prepare("select lastname, firstname from staff where userid = ?");
# Get homeroom
my $sth2 = $dbh->prepare("select field_value from staff_multi where field_name = 'homeroom'
and userid = ?");
my $sth = $dbh->prepare("select userid from staff_multi
where field_name = 'position' and field_value = 'Classroom Teacher'");
my (%teacher,%sort,%homeroom);
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $userid = $sth->fetchrow ) {
# Get Name of Teacher
$sth1->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname ) = $sth1->fetchrow;
# Get Homeroom(s) of Teacher
my @rooms;
$sth2->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while (my $hr = $sth2->fetchrow) {
push @rooms, $hr;
}
my $rooms = join(',',@rooms);
$homeroom{$userid} = $rooms;
$teacher{$userid} = qq{