--- loncom/xml/londefdef.pm 2001/02/01 19:10:11 1.20 +++ loncom/xml/londefdef.pm 2001/03/23 22:08:05 1.21 @@ -17,18 +17,16 @@ sub BEGIN { #===================================================================== TAG SUBROUTINES #-- - sub start_output { - my ($target,$token) = @_; - $Apache::lonxml::textredirection = 1; - my $result = ''; - return $result; - } - sub end_output { - my ($target,$token) = @_; - $Apache::lonxml::textredirection = 0; - my $result = ''; - return $result; - } +sub start_output { + my ($target) = @_; + if ($target eq 'meta') { $Apache::lonxml::metamode = 0; } + return ''; +} +sub end_output { + my ($target) = @_; + if ($target eq 'meta') { $Apache::lonxml::metamode = 1; } + return ''; +} #-- tag sub start_m { my ($target,$token,$parstack,$parser) = @_;