[LON-CAPA-cvs] cvs: loncom /homework/caparesponse caparesponse.pm

[raeburn]

raeburn		Mon Jan 21 06:04:07 2013 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  - Bug 6577.
    - Reverse rev. 1.253. (Undesirable side effects for formularesponse and
      numericalresponse with units).
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.253 loncom/homework/caparesponse/caparesponse.pm:1.254
--- loncom/homework/caparesponse/caparesponse.pm:1.253	Fri Dec 14 11:17:09 2012
+++ loncom/homework/caparesponse/caparesponse.pm	Mon Jan 21 06:04:07 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: 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 @@
     }
 
     my (@final_awards, at final_msgs, at 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 @@
 	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 @@
 		    $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') {