-
-
-
-
-
-Set Starting Date
-Set Ending Date
+
Starting date: | $startdateform |
+Ending date: | $enddateform |
-
ENDFORM
}
+# ----------------------------------------------------- Summarize all calendars
+ my %allcal=();
+ foreach (&Apache::loncommon::findallcourses()) {
+ %allcal=(%allcal,&readcalendar($_));
+ }
+
+# ------------------------------- Initialize table and forward backward buttons
my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year);
if ($pm<1) { ($pm,$py)=(12,$year-1); }
if ($fm>12){ ($fm,$fy)=(1,$year+1); }
@@ -235,7 +217,7 @@ ENDFORM
'Previous Month '.
'Next Month'.
'
Sun | Mon | '.
- 'Tue | Wed | Thu | Fri | Sat | ');
+ 'Tue | Wed | Thu | Fri | Sat |
');
my $tk=&Apache::loncommon::maketime(%firstday);
my $outp;
@@ -260,8 +242,9 @@ ENDFORM
$r->print('');
}
# ------------------------------------------------------------------- End table
- if ($allowed) { $r->print(''); }
- $r->print('
'.
+ $r->print('');
+ if ($allowed) { $r->print(''); }
+ $r->print('
'.
'Previous Month '.
'Next Month
'.
'