--- loncom/homework/chemresponse.pm 2006/03/09 01:12:05 1.64 +++ loncom/homework/chemresponse.pm 2006/04/13 18:57:51 1.65 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.64 2006/03/09 01:12:05 albertel Exp $ +# $Id: chemresponse.pm,v 1.65 2006/04/13 18:57:51 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -87,10 +87,7 @@ JMESECTION ''; } - my $body=< - -Molecule Editor + my $js = < function submitSmiles() { jmeFile = document.applets.JME.jmeFile(); @@ -107,8 +104,17 @@ function openHelpWindow() { } function substituent(r) {document.applets.JME.setSubstituent(r);} - - +CHEMJS + + my $start_page = + &Apache::loncommon::start_page('Molecule Editor',$js, + {'only_body' => 1, + 'bgcolor' => '#FFFFFF',}); + my $end_page = + &Apache::loncommon::end_page(); + + my $body=<
@@ -146,9 +152,9 @@ $insert_answer - - +$end_page CHEMPAGE + $body=&HTML::Entities::encode($body,'<>&"'); $body=~s/\n/ /g; my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); @@ -399,13 +405,23 @@ sub edit_reaction_button { my $field_es=&Apache::lonnet::escape($field); my $reaction_es=&Apache::lonnet::escape($reaction); my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); + my $start_page = + &Apache::loncommon::start_page('LON-CAPA Reaction Editor',undef, + {'frameset' => 1, + 'js_ready' => 1, + 'add_entries' => { + 'rows' => "30%", + 'border' => "0",}},); + my $end_page = + &Apache::loncommon::end_page({'frameset' => 1, + 'js_ready' => 1}); my $result=< //