--- loncom/homework/structuretags.pm 2008/05/28 01:32:55 1.422 +++ loncom/homework/structuretags.pm 2008/08/13 16:56:15 1.427 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.422 2008/05/28 01:32:55 www Exp $ +# $Id: structuretags.pm,v 1.427 2008/08/13 16:56:15 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -148,6 +148,10 @@ sub page_start { $extra_head .= &homework_js(); + unless ($env{'environment.wysiwygeditor'} eq 'on') { + $extra_head .= &Apache::lonhtmlcommon::dragmath_js(); + } + my %body_args; if (defined($found{'html'})) { $body_args{'skip_phases'}{'head'}=1; @@ -312,24 +316,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 +348,8 @@ sub problem_edit_header { sub problem_edit_footer { return '
'. @@ -1383,7 +1382,11 @@ sub end_languageblock { my $result = &Apache::lonxml::endredirection(); my $which = &Apache::lonxml::get_param('which',$parstack, $safeeval); - $available_texts{$which} = $result; + foreach my $language (split(/\s*\,\s*/,$which)) { + unless ($language=~/\w/) { next; } + $available_texts{$language} = $result; + } + } return ''; } @@ -1875,14 +1878,18 @@ sub end_startouttext { my $text=''; if ($target eq 'edit') { + my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth; $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style); $result.=&Apache::edit::start_table($token)."".&mt('Text Block')." ".&mt('Delete:'). &Apache::edit::deletelist($target,$token) - ." -". - &Apache::edit::insertlist($target,$token). - '' . + .""; + unless ($env{'environment.wysiwygeditor'} eq 'on') { + $result.='' + .&Apache::lonhtmlcommon::dragmath_button($areaid,1) + .''; + } + $result.='' . &Apache::loncommon::helpLatexCheatsheet(). &Apache::edit::end_row(). &Apache::edit::start_spanning_row()."\n".