version 1.122, 2003/03/18 15:32:15
|
version 1.123, 2003/03/19 16:50:14
|
Line 394 sub start_accessrule {
|
Line 394 sub start_accessrule {
|
('effect',$parstack,$safeeval,undef,1); |
('effect',$parstack,$safeeval,undef,1); |
my $realm=&Apache::lonxml::get_param |
my $realm=&Apache::lonxml::get_param |
('realm',$parstack,$safeeval,undef,1); |
('realm',$parstack,$safeeval,undef,1); |
my $cont=&Apache::lonxml::get_param |
my $role=&Apache::lonxml::get_param |
('content',$parstack,$safeeval,undef,1); |
('role',$parstack,$safeeval,undef,1); |
$cont=~s/\s+//g; |
$realm=~s/\s+//g; |
$cont=~s/\W/\;/g; |
$realm=~s/\//\_/g; |
|
$realm=~s/^\_//; |
|
$realm=~s/\W/\;/g; |
|
$role=~s/\s+//g; |
|
$role=~s/\//\_/g; |
|
$role=~s/\W/\;/g; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $args=''; |
my $args=''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
Line 408 sub start_accessrule {
|
Line 413 sub start_accessrule {
|
} |
} |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$currentstring='<rule>'.$eff.':'.$realm.':'.$cont.'</rule>'; |
$currentstring='<rule>'.$eff.':'.$realm.':'.$role.'</rule>'; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |