--- loncom/homework/caparesponse/caparesponse.pm 2003/10/15 19:54:45 1.107.2.2
+++ loncom/homework/caparesponse/caparesponse.pm 2003/10/23 19:36:02 1.107.2.4
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.107.2.2 2003/10/15 19:54:45 albertel Exp $
+# $Id: caparesponse.pm,v 1.107.2.4 2003/10/23 19:36:02 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -114,7 +114,6 @@ sub end_numericalresponse {
if ( $response =~ /[^\s]/) {
my $ad;
my %previous = &Apache::response::check_for_previous($response,$partid,$id);
- $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
&Apache::lonxml::debug("submitted a $response
\n");
&Apache::lonxml::debug($$parstack[-1] . "\n
");
@@ -131,6 +130,7 @@ sub end_numericalresponse {
$response =~ s/\\/\\\\/g;
$response =~ s/\'/\\\'/g;
}
+ $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
&Apache::lonxml::debug("current $response");
my $expression="&caparesponse_check_list('".$response."','".
$$parstack[-1];
@@ -445,6 +445,7 @@ sub format_number {
sub make_numerical_bubbles {
my ($number_of_bubbles,$target,$answer,$format) =@_;
+ my @oldseed=&Math::Random::random_get_seed();
my @bubble_values = ();
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors
my @powers = (1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0); #default values for powers
@@ -459,6 +460,7 @@ sub make_numerical_bubbles {
$format,$target);
}
+ &Math::Random::random_set_seed(@oldseed);
return @bubble_values;
}