version 1.235, 2006/12/11 04:10:35
|
version 1.236, 2006/12/11 18:50:40
|
Line 2667 sub secapply {
|
Line 2667 sub secapply {
|
my $defaultflag=shift; |
my $defaultflag=shift; |
$rec=~s/\s+//g; |
$rec=~s/\s+//g; |
$rec=~s/\@/\:/g; |
$rec=~s/\@/\:/g; |
my ($adr,$sections)=($rec=~/^([^\(]+)\(([^\)]+)\)/); |
my ($adr,$sections_or_groups)=($rec=~/^([^\(]+)\(([^\)]+)\)/); |
if ($sections) { |
if ($sections_or_groups) { |
foreach my $sec (split(/\;/,$sections)) { |
foreach my $item (split(/\;/,$sections_or_groups)) { |
if (($sec eq $env{'request.course.sec'}) || |
if (($item eq $env{'request.course.sec'}) || |
($defaultflag && ($sec eq '*'))) { |
($defaultflag && ($item eq '*'))) { |
return $adr; |
return $adr; |
} |
} elsif ($env{'request.course.groups'}) { |
|
my @usersgroups = split(/:/,$env{'request.course.groups'}); |
|
if (grep(/^\Q$item\E$/,@usersgroups)) { |
|
return $adr; |
|
} |
|
} |
} |
} |
} else { |
} else { |
return $rec; |
return $rec; |