loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.34, 2001/08/04 20:01:36	version 1.38, 2001/08/06 20:33:23
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 '';
Line 148 sub start_numericalresponse {	Line 151 sub start_numericalresponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if ($target eq 'meta') {	return &Apache::caparesponse::start_numericalresponse
return &meta_package_write('numericalresponse');	($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
} else {
return &Apache::caparesponse::start_numericalresponse
($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}
}	}

sub start_radiobuttonresponse {	sub start_radiobuttonresponse {