version 1.34, 2001/08/04 20:01:36
|
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 ''; |
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 { |