--- loncom/homework/chemresponse.pm 2003/07/01 21:04:48 1.10 +++ loncom/homework/chemresponse.pm 2003/07/01 21:10:43 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.10 2003/07/01 21:04:48 albertel Exp $ +# $Id: chemresponse.pm,v 1.11 2003/07/01 21:10:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -228,16 +228,16 @@ sub end_organicstructure { } sub edit_reaction_button { - my ($id,$field,$molecule)=@_; + my ($id,$field,$reaction)=@_; my $id_es=&Apache::lonnet::escape($id); my $field_es=&Apache::lonnet::escape($field); - my $molecule_es=&Apache::lonnet::escape($molecule); + my $reaction_es=&Apache::lonnet::escape($reaction); my $result=< function create_reaction_window_${id}_${field} () { editor=window.open('','','width=500,height=270,scrollbars=no,resizable=yes'); editor.document.open('text/html','replace'); - editor.document.writeln(' LON-CAPA Reaction Editor '); + editor.document.writeln(' LON-CAPA Reaction Editor '); } @@ -251,7 +251,10 @@ sub start_reactionresponse { my $id = &Apache::response::start_response($parstack,$safeeval); if ($target eq 'meta') { } elsif ($target eq 'web') { - $result.=&edit_reaction_button($id,"HWVAL_$id"); + my $partid = $Apache::inputtags::part; + my $id = $Apache::inputtags::response['-1']; + my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"}; + $result.=&edit_reaction_button($id,"HWVAL_$id",$reaction); } elsif ($target eq "edit") { $result .=&Apache::edit::tag_start($target,$token); my $answer=&Apache::lonxml::get_param('answer',$parstack,