loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.126, 2004/02/05 18:41:06	version 1.127, 2004/02/05 21:04:24
Line 443 sub make_numerical_bubbles {	Line 443 sub make_numerical_bubbles {
&Math::Random::random_set_seed(@oldseed);	&Math::Random::random_set_seed(@oldseed);
return @bubble_values;	return @bubble_values;
}	}
#FIXME what to do when not enough incorrects specified?	if (defined($$incorrect[0]) &&
	scalar(@$incorrect)+1 < $number_of_bubbles) {
	&Apache::lonxml::warning("Not enough incorrect answers were specified in the incorrect array, ignoring the specified incorrect answers and instead generating them.");
	}
}	}
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors	my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors
my @powers = (1..$number_of_bubbles);	my @powers = (1..$number_of_bubbles);