--- loncom/homework/structuretags.pm 2008/05/27 22:25:56 1.421 +++ loncom/homework/structuretags.pm 2008/06/11 13:52:35 1.423 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.421 2008/05/27 22:25:56 www Exp $ +# $Id: structuretags.pm,v 1.423 2008/06/11 13:52:35 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -312,24 +312,28 @@ sub remember_problem_state { '; } -sub problem_edit_header { - return ''. - &Apache::structuretags::remember_problem_state().' -
-
-'.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').' -
+sub problem_edit_buttons { + return '
- + ' onclick="javscript:setmode(this.form,'."'discard'".')" />
-
+
'; +} + +sub problem_edit_header { + return ''. + &Apache::structuretags::remember_problem_state().' +
+
+'.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').' +
'. +&problem_edit_buttons().'
'.&Apache::lonxml::message_location().'
@@ -340,17 +344,8 @@ sub problem_edit_header { sub problem_edit_footer { return '
'. @@ -451,33 +446,15 @@ $show_all $show_all "; } - my %langchoices=('' => ''); - foreach (&Apache::loncommon::languageids()) { - if (&Apache::loncommon::supportedlanguagecode($_)) { - $langchoices{&Apache::loncommon::supportedlanguagecode($_)} - = &Apache::loncommon::plainlanguagedescription($_); - } - } $result.=' '.&mt('Apply style file: ').' &').'" /> '.&mt('Select').' -
- '. - &mt('Language: '). - &Apache::loncommon::select_form($env{'form.languages'},'languages', - %langchoices).' - - '. - &mt('Math Rendering: '). - &Apache::loncommon::select_form($env{'form.texengine'},'texengine', - ('' => '', - 'tth' => 'tth', - 'jsMath' => 'jsMath', - 'mimetex' => 'mimetex')).' - +
+
'. + &Apache::lonxml::renderingoptions().'