loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.35, 2001/08/05 16:26:28	version 1.36, 2001/08/06 18:33:58
Line 35 sub setrandomnumber {	Line 35 sub setrandomnumber {
&Apache::lonxml::debug("randseed $rndseed");	&Apache::lonxml::debug("randseed $rndseed");
# $rndseed=unpack("%32i",$rndseed);	# $rndseed=unpack("%32i",$rndseed);
$rndseed=$rndseed	$rndseed=$rndseed
+(&Apache::lonnet::numval($Apache::inputtags::part) << 10)	+(&Apache::lonnet::numval($Apache::inputtags::part) << 10);
	if (defined($Apache::inputtags::response['-1'])) {
	$rndseed=$rndseed
+&Apache::lonnet::numval($Apache::inputtags::response['-1']);	+&Apache::lonnet::numval($Apache::inputtags::response['-1']);
	}
srand($rndseed);	srand($rndseed);
&Apache::lonxml::debug("randseed $rndseed");	&Apache::lonxml::debug("randseed $rndseed");
return '';	return '';