loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.148, 2011/05/27 18:40:37	version 1.148.2.1, 2011/09/16 23:14:28
Line 555 sub whichfoils {	Line 555 sub whichfoils {
$dosplice=0;	$dosplice=0;
} else {	} else {
if ($topcount>0 \|\| $bottomcount>0) {	if ($topcount>0 \|\| $bottomcount>0) {
$answer = int(&Math::Random::random_uniform() * ($#whichfalse+1))	my $inc = 1;
+ $topcount;	if (($bottomcount > 0) && ($Apache::lonhomework::type ne 'exam')) {
	$inc = 2;
	}
	$answer=int(&Math::Random::random_uniform() * ($#whichfalse+$inc))
	+ $topcount;

}	}
}	}
&Apache::lonxml::debug("Answer now wants $answer");	&Apache::lonxml::debug("Answer now wants $answer");