version 1.20, 2006/11/09 22:48:50
|
version 1.21, 2006/12/20 22:41:08
|
Line 89 sub handler {
|
Line 89 sub handler {
|
($rulehash{'effect'} eq 'allow')) { |
($rulehash{'effect'} eq 'allow')) { |
$rulehash{'effect'}='deny'; |
$rulehash{'effect'}='deny'; |
} |
} |
$rulehash{'domain'}=~s/\W//g; |
$rulehash{'domain'} = &LONCAPA::clean_domain($rulehash{'domain'}); |
$rulehash{'course'}=~s/\W//g; |
$rulehash{'course'} = &LONCAPA::clean_courseid($rulehash{'course'}); |
$rulehash{'section'}=~s/\W//g; |
$rulehash{'section'}=~s/\W//g; |
unless ($rulehash{'domain'}) { |
unless ($rulehash{'domain'}) { |
$rulehash{'domain'}=$env{'user.domain'}; |
$rulehash{'domain'}=$env{'user.domain'}; |
Line 243 ENDSTARTTABLE
|
Line 243 ENDSTARTTABLE
|
$r->print('</td><td>'); |
$r->print('</td><td>'); |
# ---- realm |
# ---- realm |
my $realm=$token->[2]->{'realm'}; |
my $realm=$token->[2]->{'realm'}; |
$realm=~s/^\W//; |
|
my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm); |
my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm); |
|
$rdom = &LONCAPA::clean_domain($rdom); |
|
$rcourse = &LONCAPA::clean_courseid($rcourse); |
# realm domain |
# realm domain |
if ($constructmode) { |
if ($constructmode) { |
unless ($rdom) { $rdom=$env{'user.domain'}; } |
unless ($rdom) { $rdom=$env{'user.domain'}; } |