version 1.32, 2001/08/03 22:12:07
|
version 1.34, 2001/08/04 20:01:36
|
Line 2
|
Line 2
|
# various response type definitons response definition |
# various response type definitons response definition |
|
|
# 11/23,11/24,11/28 Gerd Kortemeyer |
# 11/23,11/24,11/28 Gerd Kortemeyer |
|
# Guy Albertelli |
|
# 08/04 Gerd Kortemeyer |
|
|
package Apache::response; |
package Apache::response; |
use strict; |
use strict; |
Line 51 sub meta_parameter_write {
|
Line 53 sub meta_parameter_write {
|
."\n"; |
."\n"; |
} |
} |
|
|
|
sub meta_package_write { |
|
my $name=shift; |
|
return '<parameter part="'.$Apache::inputtags::part. |
|
'" package="'.$name.'"></parameter>' |
|
."\n"; |
|
} |
|
|
sub meta_stores_write { |
sub meta_stores_write { |
my ($name,$type,$display)=@_; |
my ($name,$type,$display)=@_; |
return '<stores part="'.$Apache::inputtags::part. |
return '<stores part="'.$Apache::inputtags::part. |
Line 69 sub mandatory_part_meta {
|
Line 78 sub mandatory_part_meta {
|
# of each part |
# of each part |
# |
# |
return |
return |
&meta_parameter_write('opendate','date_start','', |
# &meta_parameter_write('opendate','date_start','', |
'Opening Date'). |
# 'Opening Date'). |
&meta_parameter_write('duedate','date_end','', |
# &meta_parameter_write('duedate','date_end','', |
'Due Date'). |
# 'Due Date'). |
&meta_parameter_write('answerdate','date_start','', |
# &meta_parameter_write('answerdate','date_start','', |
'Show Answer Date'). |
# 'Show Answer Date'). |
&meta_parameter_write('weight','int_zeropos','', |
# &meta_parameter_write('weight','int_zeropos','', |
'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_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 139 sub start_numericalresponse {
|
Line 148 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)=@_; |
return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
if ($target eq 'meta') { |
|
return &meta_package_write('numericalresponse'); |
|
} else { |
|
return &Apache::caparesponse::start_numericalresponse |
|
($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
|
} |
} |
} |
|
|
sub start_radiobuttonresponse { |
sub start_radiobuttonresponse { |