--- loncom/xml/londefdef.pm 2000/10/12 13:51:50 1.5 +++ loncom/xml/londefdef.pm 2000/10/30 20:34:25 1.7 @@ -17,6 +17,10 @@ sub BEGIN { 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 'web') { my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); $inside ='\\documentstyle{article}'.$inside; @@ -25,7 +29,7 @@ sub BEGIN { # &Apache::lonxml::debug($currentstring); } elsif ($target eq 'tex') { - $currentstring = "\$"; + $currentstring = ""; } return $currentstring; } @@ -34,7 +38,8 @@ sub BEGIN { my $currentstring = ''; if ($target eq 'web') { } elsif ($target eq 'tex') { - $currentstring = "\$"; + $currentstring = ""; + } elsif ($target eq 'meta') { } return $currentstring; } @@ -828,6 +833,15 @@ sub BEGIN { } return $currentstring; } + sub end_hr { + my ($target,$token) = @_; + my $currentstring = ''; + if ($target eq 'web') { + $currentstring .= $token->[2]; + } elsif ($target eq 'tex') { + } + return $currentstring; + } #----------------------------------------------------------------------------- tag sub start_a { my ($target,$token) = @_;