--- loncom/homework/caparesponse/caparesponse.pm 2002/04/11 19:48:16 1.52
+++ loncom/homework/caparesponse/caparesponse.pm 2002/09/04 06:55:27 1.57
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.52 2002/04/11 19:48:16 albertel Exp $
+# $Id: caparesponse.pm,v 1.57 2002/09/04 06:55:27 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -156,7 +156,7 @@ sub end_numericalresponse {
$result='';
}
}
- } elsif ($target eq 'web') {
+ } elsif ($target eq 'web' || $target eq 'tex') {
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
my $status = $Apache::inputtags::status['-1'];
if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) {
@@ -166,8 +166,11 @@ sub end_numericalresponse {
$safeeval);
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);
- $result="
The computer got ";
-
+ if ($target eq 'web') {
+ $result="
The computer got ";
+ } elsif ($target eq 'tex') {
+ $result='\vskip 0 mm The computer got \\texttt{';
+ }
for (my $i=0; $i <= $#answers; $i++) {
my $answer=$answers[$i];
my $format;
@@ -176,16 +179,24 @@ sub end_numericalresponse {
} else {
$format=$formats[0];
}
+ my $formatted;
if ((defined($format)) && ($format ne '')) {
&Apache::lonxml::debug("formatting with :$format: answer :$answer:");
- $result.=sprintf('%.'.$format,$answer).',';
+ $formatted=sprintf('%.'.$format,$answer).',';
} else {
&Apache::lonxml::debug("no format answer :$answer:");
- $result.="$answer,";
+ $formatted="$answer,";
}
+ if ($target eq 'tex') {$formatted=&Apache::lonxml::latex_special_symbols($formatted);}
+ $result.=$formatted;
}
chop $result;
- $result.=" $unit.
";
+ if ($target eq 'web') {
+ $result.=" $unit.
";
+ } elsif ($target eq 'tex') {
+ $result.=&Apache::lonxml::latex_special_symbols($unit);
+ $result.="}. \\vskip 0 mm ";
+ }
}
} elsif ($target eq 'edit') {
$result.=''.&Apache::edit::end_table;