--- loncom/homework/structuretags.pm 2005/11/03 17:55:12 1.312 +++ loncom/homework/structuretags.pm 2005/11/03 22:10:23 1.314 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.312 2005/11/03 17:55:12 albertel Exp $ +# $Id: structuretags.pm,v 1.314 2005/11/03 22:10:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -245,9 +245,11 @@ sub option { sub problem_web_to_edit_header { my ($rndseed)=@_; - my $result.=' - - + my $result.=''; + if (!$Apache::lonhomework::parsing_a_task) { + $result .= ''; + } + $result .= ' @@ -259,7 +261,8 @@ sub problem_web_to_edit_header { $result.= ' />'.&mt(' Show All Foils'). &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area','Testing Problems'). '
'; - $result.=" + if (!$Apache::lonhomework::parsing_a_task) { + $result.="
Problem Status:
"; - my $numtoanalyze=$env{'form.numtoanalyze'}; - if (!$numtoanalyze) { $numtoanalyze=20; } - $result.= ' for + my $numtoanalyze=$env{'form.numtoanalyze'}; + if (!$numtoanalyze) { $numtoanalyze=20; } + $result.= ' for '.&mt('versions of this problem'). '.'.&Apache::loncommon::help_open_topic("Analyze_Problem", '',undef,undef,300). '
'; + } return $result; } @@ -801,7 +805,7 @@ sub end_problem { $result.=&Apache::response::meta_response_order(); } elsif ($target eq 'edit') { &Apache::lonxml::debug("in end_problem with $target, edit"); - $result = &problem_edit_footer(); + $result .= &problem_edit_footer(); } if ($env{'request.state'} eq 'construct' && $target eq 'web') {