version 1.63, 2002/07/29 20:40:34
|
version 1.65, 2002/10/08 18:04:04
|
Line 33 package Apache::response;
|
Line 33 package Apache::response;
|
use strict; |
use strict; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::response',('responseparam','parameter')); |
&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse')); |
} |
} |
|
|
sub start_response { |
sub start_response { |
Line 91 sub setrandomnumber {
|
Line 91 sub setrandomnumber {
|
$rndseed=$rndseed |
$rndseed=$rndseed |
+&Apache::lonnet::numval($Apache::inputtags::response['-1']); |
+&Apache::lonnet::numval($Apache::inputtags::response['-1']); |
} |
} |
srand($rndseed); |
&Math::Random::random_set_seed_from_phrase($rndseed); |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
return ''; |
return ''; |
} |
} |