loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

-version 1.261, 2020/12/04 22:19:19
+version 1.262, 2020/12/05 05:01:18
  Line 1066  sub make_numerical_bubbles {
      }
      for ($ind=0;$ind<$number_of_bubbles;$ind++) {
  	my $exponent = $power-$powers[$#powers-$ind];
+ 	$bubble_values[$ind] = $answerfactor*($factor**$exponent);
+ 	# If bubble is for correct answer (i.e., exponent = 0), and value
+ 	# of $answerfactor * factor**$exponent is an integer with more than
+ 	# 15 digits, assign $answerfactor itself as bubble value.
+ 	# This prevents a "use fewer digits" issue on 64bit servers
+ 	# when correct answer is >= 1e+16, and when correct bubble is A.
  	if ($exponent == 0) {
- 	    $bubble_values[$ind] = $answerfactor;
+ 	    if ($bubble_values[$ind] =~ /^-?(\d+)$/) {
- 	} else {
+ 		if (length($1) > 15) {
- 	    $bubble_values[$ind] = $answerfactor*($factor**$exponent);
+ 		    $bubble_values[$ind] = $answerfactor;
+ 		}
+ 	    }
  	}
  	$bubble_display[$ind] = &format_number($bubble_values[$ind],
  					       $format,$target,$safeeval);
      }