version 1.60, 2006/09/02 20:47:11
|
version 1.62, 2006/11/29 07:46:39
|
Line 80 sub readcalendar {
|
Line 80 sub readcalendar {
|
$returnhash{$courseid.'@'.$item}=$thiscal{$item}; |
$returnhash{$courseid.'@'.$item}=$thiscal{$item}; |
} |
} |
} |
} |
my $can_see_hidden = $env{'request.role.adv'}; |
my $can_see_hidden = ($env{'request.role.adv'} && |
my $navmap;# = Apache::lonnavmaps::navmap->new(); |
($courseid eq $env{'request.course.id'})); |
|
|
|
my $navmap; |
|
if ($courseid eq $env{'request.course.id'}) { |
|
$navmap = Apache::lonnavmaps::navmap->new(); |
|
} |
my %resourcedata= |
my %resourcedata= |
&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum); |
&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum); |
foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
Line 353 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; |