loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.111, 2004/12/07 23:23:34	version 1.112, 2004/12/23 22:53:41
Line 130 sub setrandomnumber {	Line 130 sub setrandomnumber {
$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]);	$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]);
}	}
} else {	} else {
$rndmod=(&Apache::lonnet::numval3($Apache::inputtags::part) << 10);	my $shift=(4*scalar(@Apache::inputtags::responselist))%30;
	$rndmod=(&Apache::lonnet::numval3($Apache::inputtags::part) << (($shift+15)%30));
if (defined($Apache::inputtags::response[-1])) {	if (defined($Apache::inputtags::response[-1])) {
my $shift=(4*scalar(@Apache::inputtags::response))%20;
$rndmod+=(&Apache::lonnet::numval3($Apache::inputtags::response[-1]) << $shift );	$rndmod+=(&Apache::lonnet::numval3($Apache::inputtags::response[-1]) << $shift );
}	}
}	}