--- loncom/xml/londefdef.pm	2003/02/28 21:06:42	1.120
+++ loncom/xml/londefdef.pm	2003/03/18 07:26:49	1.121
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.120 2003/02/28 21:06:42 albertel Exp $
+# $Id: londefdef.pm,v 1.121 2003/03/18 07:26:49 www Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -54,7 +54,7 @@ use Apache::lonmeta();
 
 BEGIN {
 
-    &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr'));
+    &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr'));
 
 }
 
@@ -357,6 +357,46 @@ sub start_html {
 	my ($target,$token,$tagstack,$parstack,$parser) = @_;
 	my $currentstring = '';
 	if ($target eq 'web') {
+	  my $args='';
+	  if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+	  if ($args ne '') {
+	    $currentstring = $token->[4];
+	  }
+	} 
+	return $currentstring;
+      }
+# accessrule
+      sub start_accessrule {
+	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+            my $currentstring = '';
+            my $eff=&Apache::lonxml::get_param
+		('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;
+            if ($target eq 'web') {
+	      my $args='';
+	      if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+	      if ($args eq '') {
+		&Apache::lonxml::get_all_text("/accessrule",$parser);
+	      } else {
+		$currentstring = $token->[4];
+	      }
+	    }
+            if ($target eq 'meta') {
+               $currentstring='<rule>'.
+                              $eff.':'.$realm.':'.$cont.         
+			      '</rule>';
+	    }
+	   return $currentstring;
+	}
+      sub end_accessrule {
+	my ($target,$token,$tagstack,$parstack,$parser) = @_;
+	my $currentstring = '';
+	if ($target eq 'web') {
 	  my $args='';
 	  if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
 	  if ($args ne '') {