--- loncom/homework/structuretags.pm 2007/10/17 00:22:51 1.405 +++ loncom/homework/structuretags.pm 2007/10/30 00:17:09 1.407 @@ -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.407 2007/10/30 00:17:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -305,11 +305,13 @@ sub problem_edit_header { -
'.
+
+ '.
&Apache::loncommon::help_open_menu('Problem Editing Help','Problem_Editor_XML_Index',5,'Authoring',undef,undef,undef,'Problem Editing Help')
- .' |
';
}
@@ -332,34 +334,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.="
- ';
return $result;
}
+
".&mt("Problem Status:")."
-
-
+
+
".&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.='
+
+ + |