--- loncom/homework/caparesponse/caparesponse.pm	2004/10/05 20:18:29	1.153
+++ loncom/homework/caparesponse/caparesponse.pm	2004/10/18 20:28:23	1.155
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.153 2004/10/05 20:18:29 albertel Exp $
+# $Id: caparesponse.pm,v 1.155 2004/10/18 20:28:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -298,6 +298,8 @@ sub end_numericalresponse {
 	    $Apache::lonhomework::analyze{"$part_id.type"} = $tag;
 	    my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);
 	    push (@{ $Apache::lonhomework::analyze{"$part_id.incorrect"} }, @incorrect);
+	    &Apache::response::check_if_computed($token,$parstack,
+						 $safeeval,'answer');
 	}
 	if (scalar(@$tagstack)) {
 	    &Apache::response::setup_params($tag,$safeeval);
@@ -325,10 +327,10 @@ sub end_numericalresponse {
 	    if ($fmt && $tag eq 'numericalresponse') {
 		$fmt=~s/e/E/g;
 		$ans = &format_number($ans,$fmt,$target,$safeeval);
-		if ($high) {
-		    $high=&format_number($high,$fmt,$target,$safeeval);
-		    $low =&format_number($low,$fmt,$target,$safeeval);
-		}
+		#if ($high) {
+		#    $high=&format_number($high,$fmt,$target,$safeeval);
+		#    $low =&format_number($low,$fmt,$target,$safeeval);
+		#}
 	    }
 	    if ($target eq 'answer') {
 		if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; }
@@ -654,6 +656,8 @@ sub end_stringresponse {
 	if ($target eq 'analyze') {
 	    push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id");
 	    $Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse';
+	    &Apache::response::check_if_computed($token,$parstack,$safeeval,
+						 'answer');
 	}
 	&Apache::response::setup_params('stringresponse',$safeeval);
 	if ($target eq 'answer') {