version 1.61, 2006/10/10 01:52:45
|
version 1.62, 2006/11/29 07:46:39
|
Line 358 ENDDIA
|
Line 358 ENDDIA
|
# ----------------------------------------------------- Summarize all calendars |
# ----------------------------------------------------- Summarize all calendars |
sub get_all_calendars { |
sub get_all_calendars { |
my %allcal=(); |
my %allcal=(); |
foreach my $course (sort(&Apache::loncommon::findallcourses())) { |
my %courses = &Apache::loncommon::findallcourses(); |
|
foreach my $course (sort(keys(%courses))) { |
%allcal=(%allcal,&readcalendar($course)); |
%allcal=(%allcal,&readcalendar($course)); |
} |
} |
return %allcal; |
return %allcal; |