--- loncom/homework/structuretags.pm 2002/09/03 01:19:13 1.110 +++ loncom/homework/structuretags.pm 2002/09/05 03:30:27 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.110 2002/09/03 01:19:13 albertel Exp $ +# $Id: structuretags.pm,v 1.112 2002/09/05 03:30:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -393,8 +393,8 @@ sub end_problem { $result.= $gradestatus; } if ( - (($target eq 'web' || $target eq 'tex') && ($ENV{'request.state'} ne 'construct')) || - ($target eq 'answer') + (($target eq 'web') && ($ENV{'request.state'} ne 'construct')) || + ($target eq 'answer') || ($target eq 'tex') ) { if ($status eq 'CAN_ANSWER') { if ($target ne 'tex') { @@ -546,7 +546,8 @@ sub end_while { sub start_randomlist { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result; - if ($target eq 'answer' || $target eq 'grade' || $target eq 'web') { + if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' || + $target eq 'tex') { my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]); my $b_parser= HTML::TokeParser->new(\$body); my $b_tok;