--- loncom/interface/lonannounce.pm 2006/07/03 15:30:52 1.59
+++ loncom/interface/lonannounce.pm 2006/10/10 01:52:45 1.61
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.59 2006/07/03 15:30:52 www Exp $
+# $Id: lonannounce.pm,v 1.61 2006/10/10 01:52:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -80,8 +80,13 @@ sub readcalendar {
$returnhash{$courseid.'@'.$item}=$thiscal{$item};
}
}
- my $can_see_hidden = $env{'request.role.adv'};
- my $navmap;# = Apache::lonnavmaps::navmap->new();
+ my $can_see_hidden = ($env{'request.role.adv'} &&
+ ($courseid eq $env{'request.course.id'}));
+
+ my $navmap;
+ if ($courseid eq $env{'request.course.id'}) {
+ $navmap = Apache::lonnavmaps::navmap->new();
+ }
my %resourcedata=
&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
foreach my $thiskey (sort keys %resourcedata) {
@@ -490,9 +495,9 @@ SERVERANNOUNCE
# list servers
foreach my $host (sort(keys(%Apache::lonnet::hostname))) {
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
- $r->print ('
'.
+ $r->print ('