--- loncom/homework/chemresponse.pm	2005/06/27 14:27:25	1.59
+++ loncom/homework/chemresponse.pm	2005/07/01 19:48:46	1.61
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.59 2005/06/27 14:27:25 albertel Exp $
+# $Id: chemresponse.pm,v 1.61 2005/07/01 19:48:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,17 +105,40 @@ 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);}
 </script>
 </head>
 <body bgcolor="#ffffff">
 <center>
-<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390">
+<form>
+  <table width="440"><tr>
+    <td></td>
+    <td align="right">
+      <select onchange="javascript:substituent(options[selectedIndex].text)">
+        <option>Select substituent</option>
+        <option>-C(=O)OH</option>
+        <option>-C(=O)OMe</option>
+        <option>-OC(=O)Me</option>
+        <option>-CMe3</option>
+        <option>-CF3</option>
+        <option>-CCl3</option>
+        <option>-NO2</option>
+        <option>-SO2-NH2</option>
+        <option>-NH-SO2-Me</option>
+        <option>-NMe2</option>
+        <option>-C#N</option>
+        <option>-C#C-Me</option>
+        <option>-C#CH</option>
+      </select>
+    </td></tr>
+  </table>
+<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390" mayscript>
 You have to enable Java and JavaScript on your machine.
 $molecule
 <param name="options" value="$options" />
 </applet><br />
 <font face="arial,helvetica,sans-serif" size="-1"><a href="http://www.molinspiration.com/jme/index.html">JME Editor</a> courtesy of Peter Ertl, Novartis</font>
-<form>
+<br />
 $insert_answer
 <br />
 <input type="button" value="  Close  " onclick = "javascript:window.close()" />
@@ -133,7 +156,7 @@ CHEMPAGE
     my $display=&mt('Draw Molecule');
     if (defined($shown_text)) { $display=&mt($shown_text); }
     my $result=<<CHEMINPUT;
-<input type="button" value="$display" onclick="javascript:editor=window.open($nothing,'jmeedit','width=500,height=500,menubar=yes,scrollbars=no,resizable=yes');editor.$docopen;editor.document.write('$body');editor.document.close();editor.focus()" />
+<input type="button" value="$display" onclick="javascript:editor=window.open($nothing,'jmeedit','width=500,height=500,menubar=no,scrollbars=no,resizable=yes');editor.$docopen;editor.document.write('$body');editor.document.close();editor.focus()" />
 CHEMINPUT
     return $result;
 }
