loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.62, 2002/12/02 17:06:08	version 1.63, 2003/01/07 22:13:07
Line 278 sub whichfoils {	Line 278 sub whichfoils {
#pick a true statement	#pick a true statement
my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1));	my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1));
&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue");	&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue");
my $numinserted;
my (@toplist, @bottomlist);	my (@toplist, @bottomlist);
my $topcount=0;	my $topcount=0;
# assign everyone to either toplist/bottomlist or whichfalse	# assign everyone to either toplist/bottomlist or whichfalse
# which false is randomized, toplist bottomlist are in order	# which false is randomized, toplist bottomlist are in order
while ((($numinserted) < $max-1) && ($#falselist > -1)) {	while ((($#whichfalse) < $max-2) && ($#falselist > -1)) {
&Apache::lonxml::debug("Have $#whichfalse max is $max");	&Apache::lonxml::debug("Have $#whichfalse max is $max");
my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1));	my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1));
&Apache::lonxml::debug("From $#falselist elms, picking $afalse");	&Apache::lonxml::debug("From $#falselist elms, picking $afalse");