loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

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