--- loncom/homework/caparesponse/caparesponse.pm	2012/12/14 11:17:09	1.253
+++ loncom/homework/caparesponse/caparesponse.pm	2013/01/21 06:04:07	1.254
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-#  caparesponse.pm,v 1.249.8.2 2012/02/04 20:40:15 foxr 
+# $Id: caparesponse.pm,v 1.254 2013/01/21 06:04:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -446,7 +446,6 @@ sub check_submission {
     }
 
     my (@final_awards,@final_msgs,@names);
-    # $Apache::lonxml::debug = 1;	# DEBUG
     foreach my $name (keys(%answer)) {
 	&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));
 	
@@ -465,7 +464,6 @@ sub check_submission {
 	push(@final_msgs,$msg);
 	push(@names,$name);
     }
-    # $Apache::lonxml::debug = 0;	# DEBUG
     my ($ad, $msg, $name) = &Apache::inputtags::finalizeawards(\@final_awards,
 							       \@final_msgs,
 							       \@names,1);
@@ -785,19 +783,6 @@ sub end_numericalresponse {
 		    $ans.=" $cleanunit";
 		}
 	    }
-	    #
-	    # The computer's response must be cast in a form that 
-	    # ensures it has sufficient significant figures.
-	    # the only way to do this is to sprintf it into scientific notation
-	    # due to the ambiguity of trailing zeros.
-	    # See Bug 6577
-	    #
-	    my ($sigMax, $sigmin) = &get_sigrange($Apache::inputtags::params{'sig'});
-	    my $sigfigs = $sigMax-1;
-
-	    for (my $i = 0; $i < scalar @$response; $i++) {
-		$response->[$i] = sprintf('%.' . $sigfigs . 'e', $response->[$i]);
-	    }
 	    my ($ad,$msg)=&check_submission($response,$partid,$id,$tag,
 					    $parstack,$safeeval);
 	    if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') {