--- loncom/homework/chemresponse.pm 2006/03/09 00:48:47 1.63 +++ loncom/homework/chemresponse.pm 2014/02/13 18:13:22 1.93 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.63 2006/03/09 00:48:47 albertel Exp $ +# $Id: chemresponse.pm,v 1.93 2014/02/13 18:13:22 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,9 @@ use strict; use Apache::lonxml; use Apache::lonnet; use Apache::lonlocal; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + BEGIN { &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse','chem')); @@ -84,13 +87,10 @@ JMESECTION my $insert_answer; if ($shown_text eq '') { $insert_answer= - ''; + ''; } - my $body=< - -Molecule Editor + my $js = < function submitSmiles() { jmeFile = document.applets.JME.jmeFile(); @@ -107,15 +107,30 @@ function openHelpWindow() { } function substituent(r) {document.applets.JME.setSubstituent(r);} - - +CHEMJS + + my $start_page = + &Apache::loncommon::start_page('Molecule Editor',undef, + {'only_body' => 1, + 'js_ready' => 1, + 'bgcolor' => '#FFFFFF',}); + my $end_page = + &Apache::loncommon::end_page({'js_ready' => 1,}); + my $java_not_enabled=&Apache::lonhtmlcommon::java_not_enabled(); + my %lt = &Apache::lonlocal::texthash( + 'seltext' => 'Select substituent...', + 'close' => 'Close', + 'help' => 'Help', + ); + my $body=< - + - Select substituent + $lt{'seltext'} -C(=O)OH -C(=O)OMe -OC(=O)Me @@ -133,7 +148,7 @@ function substituent(r) {document.applet -You have to enable Java and JavaScript on your machine. +$java_not_enabled $molecule @@ -141,36 +156,51 @@ $molecule $insert_answer - + - + - -