--- loncom/xml/londefdef.pm 2003/07/31 21:00:55 1.157 +++ loncom/xml/londefdef.pm 2003/08/27 15:00:43 1.158.4.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.157 2003/07/31 21:00:55 sakharuk Exp $ +# $Id: londefdef.pm,v 1.158.4.3 2003/08/27 15:00:43 albertel Exp $ # # # Copyright Michigan State University Board of Trustees @@ -394,7 +394,7 @@ sub start_meta { } sub end_meta { - my ($target,$token,$tagstack,$parstack,$parser) = @_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; my $currentstring = ''; if ($target eq 'web') { my $args=''; @@ -403,8 +403,11 @@ sub end_meta { $currentstring = $token->[4]; } } elsif ($target eq 'tex') { - $currentstring=&Apache::lonxml::endredirection(); - $currentstring=''; + my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval); + my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval); + if ((not defined $content) && (not defined $name)) { + &Apache::lonxml::endredirection(); + } } return $currentstring; } @@ -1084,7 +1087,7 @@ sub start_p { $currentstring .= $token->[4]; } elsif ($target eq 'tex') { my $signal=1; - foreach my $tag (@$tagstack) {if ($tag eq 'b') {$signal=0;}} + foreach my $tag (@$tagstack) {if (lc($tag) eq 'b') {$signal=0;}} if ($signal) {$currentstring .= '\par ';} } return $currentstring; @@ -1407,7 +1410,7 @@ sub start_a { } sub end_a { - my ($target,$token,$tagstack,$parstack,$safeeval) = @_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; my $currentstring = ''; if ($target eq 'web') { $currentstring .= $token->[2]; @@ -1417,7 +1420,7 @@ sub end_a { #--