--- loncom/homework/structuretags.pm 2007/10/17 00:22:51 1.405 +++ loncom/homework/structuretags.pm 2007/10/30 00:09:30 1.406 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.405 2007/10/17 00:22:51 albertel Exp $ +# $Id: structuretags.pm,v 1.406 2007/10/30 00:09:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -332,34 +332,43 @@ sub option { sub problem_web_to_edit_header { my ($rndseed)=@_; - my $result.=''; + my $result .= '
'; + + $result.='
'; + $result.=''; $result .= ''; - $result .= ' - - - - -
'; + + if (!$Apache::lonhomework::parsing_a_task) { + $result .= + '
'. + &mt('Problem Testing'). + &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area'). + '
'; + } else { + $result .= + '
'. + &mt('Task Testing'). + '
'; + } + my $show_all_foils_text = ($Apache::lonhomework::parsing_a_task) ? &mt(' Show All Instances') : &mt(' Show All Foils'); - if (defined($env{'form.showallfoils'})) { $result.='checked="on"'; } - $result.= ' />'.$show_all_foils_text.''. - &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area','Testing Problems'). - '
'; - $result.=&mt('Apply style file: ').' -&').'" /> - '.&mt('Select').' - -
'; + my $show_all= ''; + + + $result .= '
'; if (!$Apache::lonhomework::parsing_a_task) { $result.=" - +
+ ".&mt("Problem Status:")." - - + + ".&mt("Problem Type:")." - - + +$show_all +
+
+ ".&mt("Feedback Mode:")." - - -
"; - 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). - '
'; + +"; + } elsif ($Apache::lonhomework::parsing_a_task) { $result.=" - +
+ ".&mt("Problem Status:")." - - -
"; + +$show_all +"; + } + + $result.=' + + '.&mt('Apply style file: ').' + &').'" /> + '.&mt('Select').' + +
+ + + +
+
+
+ + + '; + + if (!$Apache::lonhomework::parsing_a_task) { + my $numtoanalyze=$env{'form.numtoanalyze'}; + if (!$numtoanalyze) { $numtoanalyze=20; } + $result .= &mt('[_1] for [_2] versions of this problem.', + '', + ''). + &Apache::loncommon::help_open_topic("Analyze_Problem", + '',undef,undef,300); } + + $result.=' +
+
+
'; return $result; }