version 1.67, 2002/10/17 17:13:44
|
version 1.75, 2002/12/02 17:06:09
|
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 112 sub start_numericalresponse {
|
Line 113 sub start_numericalresponse {
|
} |
} |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('numericalresponse'); |
$result=&Apache::response::meta_package_write('numericalresponse'); |
|
} elsif ($target eq 'answer' || $target eq 'grade') { |
|
&Apache::response::reset_params(); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 119 sub start_numericalresponse {
|
Line 122 sub start_numericalresponse {
|
sub end_numericalresponse { |
sub end_numericalresponse { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
|
if (!$Apache::lonxml::default_homework_loaded) { |
|
&Apache::lonxml::default_homework_load($safeeval); |
|
} |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
&Apache::response::setup_params($$tagstack[-1]); |
&Apache::response::setup_params($$tagstack[-1]); |
Line 157 sub end_numericalresponse {
|
Line 163 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 170 sub end_numericalresponse {
|
Line 175 sub end_numericalresponse {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$result="<br />The correct answer is "; |
$result="<br />The correct answer is "; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$result='\vskip 0 mm The correct answer is \\texttt{'; |
#$result='\vskip 0 mm The correct answer is \\texttt{'; |
} |
} |
for (my $i=0; $i <= $#answers; $i++) { |
for (my $i=0; $i <= $#answers; $i++) { |
my $answer=$answers[$i]; |
my $answer=$answers[$i]; |
Line 188 sub end_numericalresponse {
|
Line 193 sub end_numericalresponse {
|
&Apache::lonxml::debug("no format answer :$answer:"); |
&Apache::lonxml::debug("no format answer :$answer:"); |
$formatted="$answer,"; |
$formatted="$answer,"; |
} |
} |
if ($target eq 'tex') {$formatted=&Apache::lonxml::latex_special_symbols($formatted);} |
if ($target eq 'tex') { |
$result.=$formatted; |
$formatted=''; |
} |
#$formatted=&Apache::lonxml::latex_special_symbols($formatted); |
|
} |
|
$result.=$formatted; |
|
} |
chop $result; |
chop $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result.=" $unit.<br />"; |
$result.=" $unit.<br />"; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$result.=&Apache::lonxml::latex_special_symbols($unit); |
#$result.=&Apache::lonxml::latex_special_symbols($unit); |
$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); |
Line 223 sub end_numericalresponse {
|
Line 231 sub end_numericalresponse {
|
my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', |
my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', |
'Q','R','S','T','U','V','W','X','Y','Z'); |
'Q','R','S','T','U','V','W','X','Y','Z'); |
if ($target eq 'web') { |
if ($target eq 'web') { |
|
my $id=$Apache::inputtags::response[-1]; |
$result.= '<table border="1"><tr>'; |
$result.= '<table border="1"><tr>'; |
for ($ind=0;$ind<$number_of_bubbles;$ind++) { |
for ($ind=0;$ind<$number_of_bubbles;$ind++) { |
my $ans; |
my $ans; |
Line 241 sub end_numericalresponse {
|
Line 250 sub end_numericalresponse {
|
} |
} |
$ans = sprintf('%.'.$format,$bubbles_values[$ind]); |
$ans = sprintf('%.'.$format,$bubbles_values[$ind]); |
} |
} |
$result.='<td>'.$alphabet[$ind].': '.$ans.'</td>'; |
$result.='<td><input type="radio" name="HWVAL'.$id.'" value="'.$ans.'"><b>'.$alphabet[$ind].'</b>: '.$ans.'</td>'; |
} |
} |
$result.='</tr></table>'; |
$result.='</tr></table>'; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
Line 354 sub end_numericalresponse {
|
Line 363 sub end_numericalresponse {
|
} |
} |
} |
} |
if ($target eq 'answer') { |
if ($target eq 'answer') { |
if ($high) { $ans.=' ['.$low.','.$high.'] '; } |
if ($high) { $ans.=' ['.$low.','.$high.']'; } |
if ($sighigh) { $ans.= "Sig <i>$siglow - $sighigh</i>"; } |
if ($sighigh) { $ans.= " Sig <i>$siglow - $sighigh</i>"; } |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, |
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, |