version 1.60, 2006/09/02 20:47:11
|
version 1.61, 2006/10/10 01:52:45
|
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) { |