version 1.48, 2001/12/07 23:59:08
|
version 1.51, 2002/02/12 07:23:31
|
Line 30 package Apache::caparesponse;
|
Line 30 package Apache::caparesponse;
|
use strict; |
use strict; |
use capa; |
use capa; |
|
|
sub BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse','stringresponse','formularesponse')); |
&Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse','stringresponse','formularesponse')); |
} |
} |
|
|
Line 82 sub start_numericalresponse {
|
Line 82 sub start_numericalresponse {
|
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token)); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |
if ($token->[1] eq 'numericalresponse') { |
if ($token->[1] eq 'numericalresponse') { |
$result.=&Apache::edit::text_arg('Unit:','unit',$token,5); |
$result.=&Apache::edit::text_arg('Unit:','unit',$token,5); |
$result.=&Apache::edit::text_arg('Format:','format',$token,4); |
$result.=&Apache::edit::text_arg('Format:','format',$token,4); |
} elsif ($token->[1] eq 'stringresponse') { |
} elsif ($token->[1] eq 'stringresponse') { |
$result.=&Apache::edit::select_arg('Type:','type', |
$result.=&Apache::edit::select_arg('Type:','type', |
['cs','ci','mc'],$token) |
['cs','ci','mc'],$token); |
} elsif ($token->[1] eq 'formularesponse') { |
} elsif ($token->[1] eq 'formularesponse') { |
$result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
$result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
} |
} |
$result.='</td></tr><tr><td colspan="3">'; |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag; |
my $constructtag; |
if ($token->[1] eq 'numericalresponse') { |
if ($token->[1] eq 'numericalresponse') { |
Line 191 sub end_numericalresponse {
|
Line 191 sub end_numericalresponse {
|
$result.='</td></tr>'.&Apache::edit::end_table; |
$result.='</td></tr>'.&Apache::edit::end_table; |
} elsif ($target eq 'answer') { |
} elsif ($target eq 'answer') { |
|
|
|
&Apache::response::setup_params($$tagstack[-1]); |
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); |
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); |
Line 207 sub end_numericalresponse {
|
Line 208 sub end_numericalresponse {
|
$fmt=$formats[0]; |
$fmt=$formats[0]; |
} |
} |
} |
} |
if ($fmt) { $ans = sprintf('%.'.$fmt,$ans); } |
my ($high,$low); |
|
if ($Apache::inputtags::params{'tol'}) { |
|
($high,$low)=&get_tolrange($ans,$Apache::inputtags::params{'tol'}); |
|
} |
|
if ($fmt) { |
|
$ans = sprintf('%.'.$fmt,$ans); |
|
if ($high) { |
|
$high = sprintf('%.'.$fmt,$high); $low = sprintf('%.'.$fmt,$low); |
|
} |
|
} |
|
if ($high) { $ans.=' ['.$low.','.$high.'] '; } |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
} |
} |
if ($unit) { |
if ($unit) { |
$result.=&Apache::response::answer_part($$tagstack[-1], |
$result.=&Apache::response::answer_part($$tagstack[-1],"<b>$unit</b>"); |
'<b>'.$unit.'</b>'); |
|
} |
} |
if ($type || $token->[1] eq 'stringresponse') { |
if ($type || $token->[1] eq 'stringresponse') { |
my $string='Case Insensitive'; |
my $string='Case Insensitive'; |
Line 238 sub end_numericalresponse {
|
Line 248 sub end_numericalresponse {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub get_tolrange { |
|
my ($ans,$tol)=@_; |
|
my ($high,$low); |
|
if ($tol =~ /%$/) { |
|
chop($tol); |
|
my $change=$ans*($tol/100.0); |
|
$high=$ans+$change; |
|
$low=$ans-$change; |
|
} else { |
|
$high=$ans+$tol; |
|
$low=$ans-$tol; |
|
} |
|
return ($high,$low); |
|
} |
|
|
sub start_stringresponse { |
sub start_stringresponse { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |