--- loncom/homework/chemresponse.pm 2005/01/08 03:54:32 1.43 +++ loncom/homework/chemresponse.pm 2006/08/01 14:04:59 1.70 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.43 2005/01/08 03:54:32 albertel Exp $ +# $Id: chemresponse.pm,v 1.70 2006/08/01 14:04:59 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,9 +30,13 @@ package Apache::chemresponse; 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')); + &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse','chem')); } sub chem_standard_order { @@ -63,7 +67,7 @@ sub chem_standard_order { } sub separate_jme_window { - my ($smile_input,$jme_input,$molecule,$options)=@_; + my ($smile_input,$jme_input,$molecule,$options,$shown_text)=@_; my $smilesection; if (defined($smile_input)) { $smilesection=<'; } - my $body=< - -Molecule Editor - - - +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 $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 - - +JME Editor courtesy of Peter Ertl, Novartis - +$insert_answer + + - + - -