--- loncom/homework/structuretags.pm 2007/11/20 17:53:22 1.414 +++ loncom/homework/structuretags.pm 2008/01/15 03:09:09 1.416 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.414 2007/11/20 17:53:22 albertel Exp $ +# $Id: structuretags.pm,v 1.416 2008/01/15 03:09:09 raeburn 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').'