version 1.34, 2001/08/04 20:01:36
|
version 1.40, 2001/08/07 12:24:53
|
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 46 sub meta_parameter_write {
|
Line 49 sub meta_parameter_write {
|
my ($name,$type,$default,$display)=@_; |
my ($name,$type,$default,$display)=@_; |
return '<parameter part="'.$Apache::inputtags::part. |
return '<parameter part="'.$Apache::inputtags::part. |
'" name="'.$name. |
'" name="'.$name. |
'" type="'.$type. |
'" type="'.$type.'"'. |
'" default="'.$default. |
($default?' default="'.$default.'"':''). |
'" display="'.$display. |
($display?' display="'.$display.' [Part: '.$Apache::inputtags::part.']"':'') |
' [Part: '.$Apache::inputtags::part.']"></parameter>' |
.'></parameter>' |
."\n"; |
."\n"; |
} |
} |
|
|
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', |
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 { |