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/^\[(.*)\]\.//; |
} |
} |