loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.120 and 1.121

-version 1.120, 2003/02/28 21:06:42
+version 1.121, 2003/03/18 07:26:49
  Line 54  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'));
  }
  Line 357  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 '') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.120
changed lines
	Added in v.1.121