version 1.68, 2002/11/06 17:58:27
|
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 198 sub end_numericalresponse {
|
Line 199 sub end_numericalresponse {
|
$result.="}. \\vskip 0 mm "; |
$result.="}. \\vskip 0 mm "; |
} |
} |
} |
} |
|
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); |
Line 308 sub end_numericalresponse {
|
Line 310 sub end_numericalresponse {
|
$result.='\end{enumerate}'; |
$result.='\end{enumerate}'; |
&Apache::lonxml::increment_counter(); |
&Apache::lonxml::increment_counter(); |
} |
} |
|
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.='</td></tr>'.&Apache::edit::end_table; |
$result.='</td></tr>'.&Apache::edit::end_table; |
} elsif ($target eq 'answer' || $target eq 'analyze') { |
} elsif ($target eq 'answer' || $target eq 'analyze') { |