--- loncom/homework/chemresponse.pm 2005/05/26 21:26:25 1.56 +++ 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.56 2005/05/26 21:26:25 albertel Exp $ +# $Id: chemresponse.pm,v 1.65 2006/04/13 18:57:51 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -81,10 +81,13 @@ JMESECTION } if ($molecule) { $molecule=''; } - my $body=< - -Molecule Editor + my $insert_answer; + if ($shown_text eq '') { + $insert_answer= + ''; + } + + my $js = < function submitSmiles() { jmeFile = document.applets.JME.jmeFile(); @@ -99,27 +102,59 @@ function submitSmiles() { function openHelpWindow() { window.open("/adm/jme/jme_help.html","","scrollbars=yes,resizable=yes,width=500,height=600"); } +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=< - + + + + + + Select substituent + -C(=O)OH + -C(=O)OMe + -OC(=O)Me + -CMe3 + -CF3 + -CCl3 + -NO2 + -SO2-NH2 + -NH-SO2-Me + -NMe2 + -C#N + -C#C-Me + -C#CH + + + + You have to enable Java and JavaScript on your machine. $molecule JME Editor courtesy of Peter Ertl, Novartis - - - +$insert_answer + + - + - -