|
version 1.64, 2006/12/06 21:52:49
|
version 1.65, 2006/12/20 22:36:17
|
|
Line 90 sub readcalendar {
|
Line 90 sub readcalendar {
|
| $navmap = Apache::lonnavmaps::navmap->new(); |
$navmap = Apache::lonnavmaps::navmap->new(); |
| } |
} |
| my %resourcedata= |
my %resourcedata= |
| &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum); |
&Apache::lonnet::get_courseresdata($coursenum,$coursedom); |
| foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
| if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
| my ($course,$middle,$part,$name)= |
my ($course,$middle,$part,$name)= |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonannounce.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface