--- loncom/homework/structuretags.pm 2008/01/14 14:32:14 1.415 +++ loncom/homework/structuretags.pm 2008/01/28 21:42:28 1.417 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.415 2008/01/14 14:32:14 raeburn Exp $ +# $Id: structuretags.pm,v 1.417 2008/01/28 21:42:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -94,6 +94,7 @@ sub end_tex { sub homework_js { return &Apache::loncommon::resize_textarea_js(). + &setmode_javascript(). <<'JS'; JS } +sub setmode_javascript { + return <<"ENDSCRIPT"; + +ENDSCRIPT +} + sub page_start { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name, $extra_head)=@_; @@ -307,14 +320,15 @@ sub problem_edit_header { '.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
- - - + + +
- - + +

'.&Apache::lonxml::message_location().' @@ -328,13 +342,14 @@ sub problem_edit_footer { @@ -461,8 +476,9 @@ $show_all if (!$numtoanalyze) { $numtoanalyze=20; } $result .= ''. &mt('[_1] for [_2] versions.', - '', - ' + '). &Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300). ''; @@ -472,9 +488,11 @@ $show_all $result.='
'; - $result.=''; - $result .= ''; - $result .= ''; + $result.=''; + $result .= ''; + $result .= ''; $result.='
'.&Apache::lonxml::message_location().' @@ -844,6 +862,10 @@ sub start_problem { $form_tag_start.= ' />'.&mt(' Show All Foils'). ''; } + if ($Apache::lonhomework::type eq 'practice') { + $form_tag_start.='

'.&mt('Practice Problem').'

'. + ''.&mt('Submissions are not permanently recorded').''; + } $form_tag_start.='
'; }