loncom/publisher/lonrights.pm - diff

Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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'}; }