--- loncom/homework/structuretags.pm 2005/11/03 17:55:12 1.312 +++ loncom/homework/structuretags.pm 2005/11/03 21:29:57 1.313 @@ -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.313 2005/11/03 21:29:57 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; }