--- loncom/homework/chemresponse.pm 2005/07/01 19:48:46 1.61
+++ loncom/homework/chemresponse.pm 2008/02/01 22:05:45 1.76
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# chemical equation style response
#
-# $Id: chemresponse.pm,v 1.61 2005/07/01 19:48:46 albertel Exp $
+# $Id: chemresponse.pm,v 1.76 2008/02/01 22:05:45 raeburn 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'));
@@ -87,10 +90,7 @@ JMESECTION
'';
}
- my $body=<
-
-Molecule Editor
+ my $js = <
function submitSmiles() {
jmeFile = document.applets.JME.jmeFile();
@@ -107,8 +107,18 @@ 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 $body=<