--- 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*)$/) {