--- loncom/xml/londefdef.pm	2003/03/18 15:32:15	1.122
+++ loncom/xml/londefdef.pm	2003/03/19 16:50:14	1.123
@@ -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.123 2003/03/19 16:50:14 www Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -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='<rule>'.$eff.':'.$realm.':'.$cont.'</rule>';
+	$currentstring='<rule>'.$eff.':'.$realm.':'.$role.'</rule>';
     }
     return $currentstring;
 }