--- loncom/homework/caparesponse/caparesponse.pm	2008/04/05 15:39:20	1.224
+++ loncom/homework/caparesponse/caparesponse.pm	2008/05/30 16:04:33	1.225
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.224 2008/04/05 15:39:20 www Exp $
+# $Id: caparesponse.pm,v 1.225 2008/05/30 16:04:33 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -310,6 +310,11 @@ sub start_numericalresponse {
 						    $safeeval);
 	    if ($unit =~ /\S/) { $result.=" (in $unit) "; }
 	}
+        if (($token->[1] eq 'formularesponse') && 
+            ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&
+            (!&Apache::lonxml::get_param_var('samples',$parstack,$safeeval))) {
+            $result.=&edit_formula_button($id,"HWVAL_$id");
+        }
 	if (  &Apache::response::show_answer() ) {
 	    &set_answertext($tag_internal_answer_name,$target,$token,$tagstack,
 			    $parstack,$parser,$safeeval,-1);
@@ -318,6 +323,21 @@ sub start_numericalresponse {
     return $result;
 }
 
+sub edit_formula_button {
+    my ($id,$field)=@_;
+    my $button=&mt('Edit Answer');
+    return(<<ENDFORMULABUTTON);
+<script language="JavaScript">
+function edit_${id}_${field} (textarea) {
+    thenumber = textarea;
+    thedata = document.forms['lonhomework'].elements[textarea].value;
+    newwin = window.open("/adm/dragmath/applet/MaximaPopup.html","","width=565,height=400,resizable");
+}
+</script>
+<input type='button' value='$button' onclick="javascript:edit_${id}_${field}('${field}');void(0);" />
+ENDFORMULABUTTON
+}
+
 sub set_answertext {
     my ($name,$target,$token,$tagstack,$parstack,$parser,$safeeval,
 	$response_level) = @_;