version 1.42, 2006/01/12 23:03:41
|
version 1.46, 2006/03/15 21:55:43
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnavmaps(); |
use Apache::lonrss(); |
use Apache::lonrss(); |
use Apache::lonnet; |
use Apache::lonnet; |
use HTML::Entities(); |
use HTML::Entities(); |
Line 63 $help
|
Line 64 $help
|
<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table> |
<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table> |
<textarea name="msg" rows="4" cols="60">$text</textarea> |
<textarea name="msg" rows="4" cols="60">$text</textarea> |
<br /> |
<br /> |
<!-- <label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label> --> |
<label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label> |
<br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr /> |
<br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr /> |
ENDFORM |
ENDFORM |
} |
} |
Line 79 sub readcalendar {
|
Line 80 sub readcalendar {
|
$returnhash{$courseid.'@'.$item}=$thiscal{$item}; |
$returnhash{$courseid.'@'.$item}=$thiscal{$item}; |
} |
} |
} |
} |
|
|
if ($courseid eq $env{'request.course.id'}) { |
if ($courseid eq $env{'request.course.id'}) { |
|
my $can_see_hidden = $env{'request.role.adv'}; |
|
my $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 101 sub readcalendar {
|
Line 105 sub readcalendar {
|
$middle=~s/\.$//; |
$middle=~s/\.$//; |
my $realm=&mt('All Resources'); |
my $realm=&mt('All Resources'); |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
$realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1); |
my $map_url=$1; |
|
if (!$can_see_hidden && !$navmap) { |
|
next; |
|
} |
|
if (!$can_see_hidden) { |
|
my $res = $navmap->getResourceByUrl($map_url); |
|
if ($res && $res->randomout()) { next; } |
|
} |
|
$realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($map_url); |
} elsif ($middle) { |
} elsif ($middle) { |
|
if (!$can_see_hidden && !$navmap) { |
|
next; |
|
} |
|
if (!$can_see_hidden) { |
|
my $res = $navmap->getBySymb($middle); |
|
if ($res && $res->randomout()) { next; } |
|
} |
$realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle); |
$realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle); |
} |
} |
my $datetype=''; |
my $datetype=''; |