--- loncom/xml/londefdef.pm 2000/10/30 20:34:25 1.7 +++ loncom/xml/londefdef.pm 2000/11/01 17:26:14 1.8 @@ -9,18 +9,31 @@ use strict; use Apache::lonxml; sub BEGIN { - &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','applet','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u')); + &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','applet','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output')); } #===================================================================== TAG SUBROUTINES +#-- + sub start_output { + my ($target,$token,$parstack,$parser) = @_; + $Apache::lonxml::textredirection = 1; + my $result = ''; + return $result; + } + sub end_output { + my ($target,$token,$parstack,$parser) = @_; + $Apache::lonxml::textredirection = 0; + my $result = ''; + return $result; + } #-- tag sub start_m { my ($target,$token,$parstack,$parser) = @_; my $currentstring = ''; - if ($target eq 'meta') { - my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); - $currentstring =''; - } +# if ($target eq 'meta') { +# my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); +# $currentstring =''; +# } if ($target eq 'web') { my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); $inside ='\\documentstyle{article}'.$inside;