--- loncom/interface/lonannounce.pm 2004/07/03 20:45:23 1.29
+++ loncom/interface/lonannounce.pm 2004/08/27 21:41:39 1.31
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.29 2004/07/03 20:45:23 albertel Exp $
+# $Id: lonannounce.pm,v 1.31 2004/08/27 21:41:39 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -79,6 +79,13 @@ sub readcalendar {
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]\./) {
+ my $sec=$1;
+ # if we have a section don't show ones that aren't ours
+ if ($ENV{'request.course.sec'} &&
+ $ENV{'request.course.sec'} ne $sec) { next; }
+ # if a student without a section don't show any section ones
+ if (!$ENV{'request.role.adv'} &&
+ !$ENV{'request.course.sec'}) { next; }
$section=&mt('Group/Section').': '.$1;
$middle=~s/^\[(.*)\]\.//;
}
@@ -157,11 +164,11 @@ sub normalcell {
substr($msg,0,20).'...
';
}
}
- return '