version 1.35, 2001/08/05 16:26:28
|
version 1.39, 2001/08/07 12:14:42
|
Line 3
|
Line 3
|
|
|
# 11/23,11/24,11/28 Gerd Kortemeyer |
# 11/23,11/24,11/28 Gerd Kortemeyer |
# Guy Albertelli |
# Guy Albertelli |
# 08/04 Gerd Kortemeyer |
# 08/04,08/07 Gerd Kortemeyer |
|
|
package Apache::response; |
package Apache::response; |
use strict; |
use strict; |
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 88 sub mandatory_part_meta {
|
Line 91 sub mandatory_part_meta {
|
# 'Available Points'). |
# 'Available Points'). |
# &meta_parameter_write('maxtries','int_pos','', |
# &meta_parameter_write('maxtries','int_pos','', |
# 'Maximum Number of Tries'). |
# 'Maximum Number of Tries'). |
&meta_package_write('part'); |
&meta_package_write('part'). |
&meta_stores_write('solved','string', |
&meta_stores_write('solved','string', |
'Problem Status'). |
'Problem Status'). |
&meta_stores_write('tries','int_zeropos', |
&meta_stores_write('tries','int_zeropos', |