version 1.81, 2003/03/03 14:39:41
|
version 1.82, 2003/03/13 16:20:47
|
Line 178 sub end_numericalresponse {
|
Line 178 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') { |
if (defined $unit and $Apache::lonhomework::type eq 'exam') { |
|
$result.=' \textit{(in} \verb|'.$unit.'|\textit{)} '; |
|
} |
|
#$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++) { |
Line 218 sub end_numericalresponse {
|
Line 215 sub end_numericalresponse {
|
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); |
|
if (defined $unit and $Apache::lonhomework::type eq 'exam') { |
|
$result.=' \textit{(in} \verb|'.$unit.'|\textit{)} '; |
|
} |
my $number_of_bubbles = 8; #default values for number of bubbles |
my $number_of_bubbles = 8; #default values for number of bubbles |
my @bubbles_values = (); |
my @bubbles_values = (); |
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors |
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors |