\n}; # float first 2 tables together.
print qq{
\n};
print qq{| $lex{'School Year'} | $schoolyear |
\n};
print qq{| $lex{'School Start'} | $schoolstart |
\n};
print qq{| $lex{'School End'} | $schoolend |
\n};
print qq{
\n};
# Print Terms
# Loop through all tracks.
foreach my $trk ( sort keys %g_MTrackTerm ) {
print qq{
\n};
print qq{| $lex{Track} $trk - $g_TrackDisplay{$trk} |
\n};
print qq{| $lex{Grade} };
foreach my $grade ( sort {$a <=> $b} keys %g_MTrackTermType ) {
if ( $g_MTrackTermType{$grade} eq $trk ) { print qq{$grade } }
}
print qq{ |
\n};
# Print Terms in this Track
my $totaldays;
print qq{ | $lex{Start} | $lex{End} | };
print qq{$lex{Open} | $lex{Closed} |
|---|
\n};
foreach my $trm ( sort keys %{ $g_MTrackTerm{$trk} } ) {
print qq{| $lex{Term} $trm ($g_TermDisplay{$trk}{$trm}) | };
print qq{$g_MTrackTerm{$trk}{$trm}{start} | };
print qq{$g_MTrackTerm{$trk}{$trm}{end} | \n};
my $val = calcTermDays($g_MTrackTerm{$trk}{$trm}{start},
$g_MTrackTerm{$trk}{$trm}{end}, \%jdclosed );
my ($open,$closed) = split(':', $val);
$totaldays += $open;
print qq{$open | $closed |
\n};
}
print qq{| $lex{Total} | };
print qq{$totaldays | |
\n};
print qq{
\n};
}
# Print the Stored Dates (in Dates Table)
print qq{
\n};
print qq{$lex{Dates} $lex{Closed}\n};
print qq{| $lex{Date} | $lex{Day} | $lex{Type} | \n};
print qq{$lex{Description} | $lex{Cycle}
$lex{Day} | };
print qq{$lex{Fraction}
Closed | Periods
Closed |
|---|
\n};
my $sth = $dbh->prepare("select * from dates order by date");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my $sth1 = $dbh->prepare("select grades, period from dates_periods
where date = ? order by grades, period");
while ( my ( $id, $date, $type, $desc1, $desc2, $dayincycle, $dayfraction ) = $sth->fetchrow ) {
my ($year, $month, $day ) = split('-', $date);
my $newdate = $year .'-'. $s_month[$month]. q{-}. $day;
my $jd = julian_day( split( '-', $date ) );
my $dow = day_of_week($jd);
# add periods closed for this date
my %periods;
$sth1->execute($date);
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($grades,$period) = $sth1->fetchrow ) {
push @{ $periods{$grades} }, $period;
}
if ( not $dayincycle ) {
$dayincycle = $lex{No};
} else {
$dayincycle = $lex{Yes};
}
if ($dayfraction eq '1.000' ) {
$dayfraction = 'All Day';
} else {
$dayfraction = 'Partial';
}
print qq{| $newdate | $dowstd[$dow] | $type | $desc1 | \n};
print qq{$dayincycle | $dayfraction | };
print qq{};
foreach my $gr ( sort keys %periods ) {
my $per = join(',', @{ $periods{$gr} });
print qq{$gr $per
\n};
}
print qq{ |
\n};
}
print qq{
\n};
print qq{
\n};
# now print each of the calendar months in a table.
my @tmp = split('-', $schoolstart);
my $startyear = $tmp[0];
my $count;
foreach my $mo ( $tmp[1]..12 ) {
showMonthCalendar( $startyear, $mo);
$count++;
if ( $count % 2 == 0 ) { print qq{\n
\n}; }
}
print qq{
\n};
my $nextyear = $startyear + 1;
foreach my $mo ( 1..6 ) {
showMonthCalendar( $nextyear, $mo);
if ( $mo % 2 == 0 ) { print qq{\n
\n}; }
}
print qq{\n};
#---------------
sub calcTermDays {
#---------------
# passed a start date and an end date for a term, and a ref to a
# hash storing the closure dates in julian day format, it will
# return a count of the days open in the month.
# outline: convert start/end dates to jd. Loop over all days. Use modulus function to ident weekend days.
my ($startdate, $enddate, $closeref ) = @_;
my %jdclosed = %$closeref;
=head
print qq{JDClosed
\n";
foreach my $key ( sort keys %jdclosed ) {
print qq{K:$key V:$jdclosed{$key}
\n";
}
print qq{End JDClosed
\n";
=cut
my $startjd = julian_day(split('-',$startdate));
my $endjd = julian_day(split('-',$enddate));
my %modclosed; # modulus for days closed
foreach my $inc ( 0..6 ) {
my $testjd = $startjd + $inc;
my $dow = day_of_week($testjd);
if ( $dowclosed{$dow} ) { # $testjd is a closed dow
my $mod = $testjd % 7;
$modclosed{$mod} = 1;
}
}
# foreach my $d ( sort keys %modclosed ) {
# print qq{Closed Mod: $d
\n";
# }
my ($daysopen, $daysclosed);
foreach my $jd ( $startjd..$endjd ) {
my $dow = day_of_week( $jd );
my $mod = $jd % 7;
if ( $modclosed{$mod} ) { # closed for weekend
next;
}
# check if a day closed
my $cl = $jdclosed{ $jd };
if ( $cl ) { # this gives us the fraction closed
$daysclosed += $cl;
# only add on the fraction of day open
$daysopen += (1 - $cl );
} else {
$daysopen += 1;
}
}
# print qq{ST:$startdate END:$enddate Count:$daycount
\n";
return "$daysopen:$daysclosed";
}
#--------------------
sub showMonthCalendar {
#--------------------
# passed year-month value
my ($yr,$mo) = @_;
if ( length $mo == 1 ) { $mo = '0'. $mo; }
# print "Y:$yr M:$mo
\n";
# Find dow for first of the month
my $startdate = "$yr-$mo-01";
my $startjd = julian_day( split('-', $startdate) );
my $startdow = day_of_week($startjd);
# Find last day of the month (eomday)
my $nextmonth = $mo + 1;
my $tempyear = $yr;
if ( $nextmonth == 1 ) { $tempyear++; }
my $eomjd = julian_day($tempyear,$nextmonth,'1');
my @temp = inverse_julian_day( $eomjd - 1 );
my $eomday = $temp[2];
# Set number of rows in the calendar
my $rowcount = 5; # 5 rows in the calendar.
my $totalcells = $eomday + $startdow; # total cells required in calendar.
if ( $totalcells > 36 ) { $rowcount = 6; } # to accomodate all the dates in the month.
# Add Style settings for calendar
print qq{\n};
# Get the days closed (>0.999) in the month.
my %dayclosed;
my $sth = $dbh->prepare("select * from dates where month(date) = ? and year(date) = ?");
$sth->execute( $mo, $yr );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my $date = $ref->{date};
if ( exists $dayclosed{$date} ) { # Error;
print qq{
Error: Duplicate Date Record: $date
\n};
}
$dayclosed{$date} = $ref;
}
# Calendar Table
print qq{
\n};
print qq{};
print qq{$month[$mo], $yr - Hover to see fraction closed\n};
# Days of the Week Header
print qq{};
foreach my $da (0..6) { # day 1 (Sunday) and 7 (Saturday) not used, of course.
print qq{| $dow[$da + 1] | };
}
print qq{
\n};
my ($calday, $caldate); # set and updated through the month.
foreach my $row (1..$rowcount) {
print qq{};
foreach my $col (0..6) {
# Set the starting calendar day
if ($row == 1 and $col == $startdow ) {
# print qq{Row:$row COL:$col StartDOW:$startdow
\n};
$calday = 1;
}
my $tempday = $calday;
if ( length $tempday == 1 ) { $tempday = '0'. $tempday; }
if ( $calday ) { $caldate = qq{$yr-$mo-$tempday}; }
# print "CALDATE:$caldate
\n";
if ( $col == 0 or $col == 6 ) { # a weekend or closed
print qq{};
print qq{$calday | \n};
} else { # a week day
print qq{$calday
};
if ( $dayclosed{$caldate} ) {
my %r = %{ $dayclosed{$caldate}};
print qq{};
print qq{$r{type} - $r{desc1}\n};
}
print qq{ | \n};
}
if ($calday) { $calday++; }
if ( $calday > $eomday ) { $calday = ''; $caldate = ''; }
}
print qq{
\n};
}
print qq{
};
}