--- loncom/homework/caparesponse/caparesponse.pm 2003/03/13 16:20:47 1.82
+++ loncom/homework/caparesponse/caparesponse.pm 2003/03/13 16:24:13 1.83
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.82 2003/03/13 16:20:47 sakharuk Exp $
+# $Id: caparesponse.pm,v 1.83 2003/03/13 16:24:13 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -215,9 +215,6 @@ sub end_numericalresponse {
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
my (@formats)=&Apache::lonxml::get_param_var('format',$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 @bubbles_values = ();
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors
@@ -265,6 +262,9 @@ sub end_numericalresponse {
$result.= '
Formula have to be entered here!
';
}
} elsif ($target eq 'tex') {
+ if (defined $unit and $Apache::lonhomework::type eq 'exam') {
+ $result.=' \textit{(in} \verb|'.$unit.'|\textit{)} ';
+ }
if ($$tagstack[-1] eq 'numericalresponse') {
my $max_val = 0;
if ($formats[0]=~m/^(\d+)E([^\d]*)(\d*)$/) {