--- loncom/homework/structuretags.pm 2005/12/22 22:06:54 1.328 +++ loncom/homework/structuretags.pm 2006/01/18 20:16:43 1.331 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.328 2005/12/22 22:06:54 albertel Exp $ +# $Id: structuretags.pm,v 1.331 2006/01/18 20:16:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -719,6 +719,7 @@ sub end_problem { if (!$Apache::lonxml::metamode) { $result = &Apache::lonxml::endredirection(); #started in &start_problem + $Apache::lonxml::post_evaluate=0; } if ($target eq 'tex') { @@ -1165,7 +1166,7 @@ sub start_randomlist { my $result; if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' || $target eq 'tex' || $target eq 'analyze') { - my $body= &Apache::lonxml::get_all_text("/randomlist",$parser,$style); + my $body= &Apache::lonxml::get_all_text("/randomlist",$parser); my $b_parser= HTML::LCParser->new(\$body); $b_parser->xml_mode(1); $b_parser->marked_sections(1); @@ -1371,6 +1372,7 @@ sub end_part { my $result; if (!$Apache::lonxml::metamode) { $result = &Apache::lonxml::endredirection(); # started in &start_part + $Apache::lonxml::post_evaluate=0; } if ($target eq 'grade') { if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) && @@ -1584,7 +1586,7 @@ sub start_simpleeditbutton { my $result=''; if (($env{'form.simple_edit_button'} ne 'off') && ($target eq 'web') && - (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) { + (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { my $url=$env{'request.noversionuri'}; $url=~s/\?.*$//; my ($symb) = &Apache::lonxml::whichuser();