loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.109, 2004/11/08 19:20:13	version 1.110, 2004/12/07 16:19:37
Line 124 sub setrandomnumber {	Line 124 sub setrandomnumber {
if (defined($Apache::inputtags::response[-1])) {	if (defined($Apache::inputtags::response[-1])) {
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);	$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
}	}
} else {	} elsif ($rand_alg eq '64bit3') {
$rndmod=(&Apache::lonnet::numval2($Apache::inputtags::part) << 10);	$rndmod=(&Apache::lonnet::numval2($Apache::inputtags::part) << 10);
if (defined($Apache::inputtags::response[-1])) {	if (defined($Apache::inputtags::response[-1])) {
$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]);	$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]);
}	}
	} else {
	$rndmod=(&Apache::lonnet::numval3($Apache::inputtags::part) << 10);
	if (defined($Apache::inputtags::response[-1])) {
	$rndmod+=&Apache::lonnet::numval3($Apache::inputtags::response[-1]);
	}
}	}
if ($rndseed =~/([,:])/) {	if ($rndseed =~/([,:])/) {
my $char=$1;	my $char=$1;