version 1.67, 2002/10/17 17:13:44
|
version 1.70, 2002/11/07 19:45:16
|
Line 89 sub start_numericalresponse {
|
Line 89 sub start_numericalresponse {
|
$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','Case Sensitive'],['ci','Case Insensitive'], |
|
['mc','Case Insensitive, Any Order']],$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); |
} |
} |
Line 157 sub end_numericalresponse {
|
Line 158 sub end_numericalresponse {
|
} |
} |
} |
} |
} elsif ($target eq 'web' || $target eq 'tex') { |
} elsif ($target eq 'web' || $target eq 'tex') { |
if ($Apache::lonhomework::type ne 'exam') { |
|
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; |
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; |
my $status = $Apache::inputtags::status['-1']; |
my $status = $Apache::inputtags::status['-1']; |
if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) { |
if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) { |
Line 199 sub end_numericalresponse {
|
Line 199 sub end_numericalresponse {
|
$result.="}. \\vskip 0 mm "; |
$result.="}. \\vskip 0 mm "; |
} |
} |
} |
} |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
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); |