--- loncom/xml/londefdef.pm 2003/03/18 15:32:15 1.122
+++ loncom/xml/londefdef.pm 2003/04/10 14:31:09 1.124
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.122 2003/03/18 15:32:15 albertel Exp $
+# $Id: londefdef.pm,v 1.124 2003/04/10 14:31:09 sakharuk Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -46,7 +46,7 @@ package Apache::londefdef;
use Apache::lonnet();
use strict;
-use Apache::lonxml();
+use Apache::lonxml;
use Apache::File();
use Image::Magick;
use Apache::lonmenu();
@@ -394,10 +394,15 @@ sub start_accessrule {
('effect',$parstack,$safeeval,undef,1);
my $realm=&Apache::lonxml::get_param
('realm',$parstack,$safeeval,undef,1);
- my $cont=&Apache::lonxml::get_param
- ('content',$parstack,$safeeval,undef,1);
- $cont=~s/\s+//g;
- $cont=~s/\W/\;/g;
+ my $role=&Apache::lonxml::get_param
+ ('role',$parstack,$safeeval,undef,1);
+ $realm=~s/\s+//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') {
my $args='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
@@ -408,7 +413,7 @@ sub start_accessrule {
}
}
if ($target eq 'meta') {
- $currentstring='