--- loncom/homework/caparesponse/caparesponse.pm	2002/11/25 21:36:42	1.73
+++ loncom/homework/caparesponse/caparesponse.pm	2002/12/02 17:06:09	1.75
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.73 2002/11/25 21:36:42 albertel Exp $
+# $Id: caparesponse.pm,v 1.75 2002/12/02 17:06:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -122,6 +122,9 @@ sub start_numericalresponse {
 sub end_numericalresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result = '';
+  if (!$Apache::lonxml::default_homework_loaded) {
+      &Apache::lonxml::default_homework_load($safeeval);
+  }
   if ( $target eq 'grade' ) {
     if ( defined $ENV{'form.submitted'}) {
       &Apache::response::setup_params($$tagstack[-1]);
@@ -130,9 +133,6 @@ sub end_numericalresponse {
       my $id = $Apache::inputtags::response['-1'];
       my $response = $ENV{'form.HWVAL'.$id};
       if ( $response =~ /[^\s]/) {
-	if (!$Apache::lonxml::default_homework_loaded) {
-	    &Apache::lonxml::default_homework_load($safeeval);
-	}
 	my %previous = &Apache::response::check_for_previous($response,$partid,$id);
 	$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
 	&Apache::lonxml::debug("submitted a $response<br>\n");
@@ -175,7 +175,7 @@ sub end_numericalresponse {
 	if ($target eq 'web') {
 	  $result="<br />The correct answer is ";
         } 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++) {
 	   my $answer=$answers[$i];
@@ -193,15 +193,18 @@ sub end_numericalresponse {
 	     &Apache::lonxml::debug("no format answer :$answer:");
 	     $formatted="$answer,";
 	   }
-	   if ($target eq 'tex') {$formatted=&Apache::lonxml::latex_special_symbols($formatted);}
-	     $result.=$formatted;
-           }
+	   if ($target eq 'tex') {
+	       $formatted='';
+	       #$formatted=&Apache::lonxml::latex_special_symbols($formatted);
+	   }
+	   $result.=$formatted;
+       }
 	   chop $result;
 	   if ($target eq 'web') {
 	     $result.=" $unit.<br />";
 	   } elsif ($target eq 'tex') {
-	     $result.=&Apache::lonxml::latex_special_symbols($unit);
-	     $result.="}. \\vskip 0 mm ";
+	     #$result.=&Apache::lonxml::latex_special_symbols($unit);
+	     #$result.="}. \\vskip 0 mm ";
 	   }
        }
       if ($Apache::lonhomework::type eq 'exam') {