[LON-CAPA-cvs] cvs: loncom /homework inputtags.pm

[albertel]

albertel		Thu Sep  9 05:52:58 2004 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - BUG#3306, correct answer's aren'tshown on printout
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.149 loncom/homework/inputtags.pm:1.150
--- loncom/homework/inputtags.pm:1.149	Tue Aug  3 11:32:31 2004
+++ loncom/homework/inputtags.pm	Thu Sep  9 05:52:58 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.149 2004/08/03 15:32:31 albertel Exp $
+# $Id: inputtags.pm,v 1.150 2004/09/09 09:52:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -347,8 +347,8 @@
 		$message = '\textbf{'.&mt('You are correct.').'}';
 	    } else {
 		$message = "<b>".&mt('You are correct.')."</b>";
+		$message.=" ".&mt("Computer's answer now shown above.");
 	    }
-	    $message.=" ".&mt("Computer's answer now shown above.");
 	    $added_computer_text=1;
 	    unless ($ENV{'course.'.
 			     $ENV{'request.course.id'}.
@@ -380,8 +380,8 @@
 		$message = '\textbf{'.&mt('You are correct.').'}';
 	    } else {
 		$message = "<b>".&mt('You are correct.')."</b>";
+		$message.=" ".&mt("Computer's answer now shown above.");
 	    }
-	    $message.=" ".&mt("Computer's answer now shown above.");
 	    $added_computer_text=1;
 	    unless ($ENV{'course.'.
 			     $ENV{'request.course.id'}.
@@ -491,7 +491,7 @@
 	$button=1;
     }
     if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' && 
-	!$added_computer_text) {
+	!$added_computer_text && $target ne 'tex') {
 	$message.=" ".&mt("Computer's answer now shown above.");
 	$added_computer_text=1;
     }