loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2004/08/17 15:38:58	version 1.31, 2004/08/27 21:41:39
Line 79 sub readcalendar {	Line 79 sub readcalendar {
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $section=&mt('All Students');	my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]\./) {	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;	$section=&mt('Group/Section').': '.$1;
$middle=~s/^\[(.*)\]\.//;	$middle=~s/^\[(.*)\]\.//;
}	}