--- loncom/homework/chemresponse.pm	2003/06/30 20:58:52	1.8
+++ loncom/homework/chemresponse.pm	2003/06/30 21:59:03	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.8 2003/06/30 20:58:52 albertel Exp $
+# $Id: chemresponse.pm,v 1.9 2003/06/30 21:59:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -227,19 +227,27 @@ sub end_organicstructure {
     return $result;
 }
 
+sub edit_reaction_button {
+    my ($id,$field,$molecule)=@_;
+    my $result=<<EDITREACTION;
+<input type='button' value='Edit Reaction' onClick="javascript:editor=window.open('/res/adm/reactionresponse/reaction_window.html','','width=500,height=270,scrollbars=no,resizable=yes'); document.cookie='problem=$id; field=$field; molecule=$molecule';" />
+EDITREACTION
+    return $result;
+}
+
 sub start_reactionresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;
     my $id = &Apache::response::start_response($parstack,$safeeval);
     if ($target eq 'web') {
-	$result.=<<EDITREACTION;
-<input type='button' value='Edit Reaction' onClick="javascript:editor=window.open('/res/adm/reactionresponse/reaction_window.html','','width=500,height=270,scrollbars=no,resizable=yes'); document.cookie='problem=$id';" />
-EDITREACTION
-
-#	$result.=&reaction_javascript();
-#	$result.='<iframe name="REACTION_'.$id.'" width="200" height="100" src="/adm/jme/reaction_viewer.html"></iframe>';
-#	$result.='<input type="button" value="Check" onClick = "javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<center><br />\'+to_html(document.lonhomework.HWVAL_'.$id.'.value)+\'</center><input type=&quot;button&quot; value=&quot;  Close  &quot; onClick = &quot;parent.window.close()&quot; />\');newWindow.document.close()" />'
+	$result.=&edit_reaction_button($id,"HWVAL_$id");
     } elsif ($target eq "edit") {
+	$result .=&Apache::edit::tag_start($target,$token);
+	$result .=&Apache::edit::text_arg('Answer:','answer',$token,40);
+	my $answer=&Apache::lonxml::get_param('answer',$parstack,
+						$safeeval);
+	$result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer);
+	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     }
     return $result;
 }