Return to londefdef.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.119, 2003/02/20 17:07:14 | version 1.121, 2003/03/18 07:26:49 |
---|---|
Line 54 use Apache::lonmeta(); | Line 54 use Apache::lonmeta(); |
BEGIN { | 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 123 sub start_tthoption { | Line 123 sub start_tthoption { |
&tth::tthoptions($inside); | &tth::tthoptions($inside); |
} | } |
} | } |
return $result; | |
} | } |
sub end_tthoption { | sub end_tthoption { |
Line 356 sub start_html { | Line 357 sub start_html { |
my ($target,$token,$tagstack,$parstack,$parser) = @_; | my ($target,$token,$tagstack,$parstack,$parser) = @_; |
my $currentstring = ''; | my $currentstring = ''; |
if ($target eq 'web') { | 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=''; | my $args=''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } | if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ($args ne '') { | if ($args ne '') { |