--- loncom/homework/inputtags.pm	2003/06/24 19:18:01	1.107
+++ loncom/homework/inputtags.pm	2003/08/01 18:04:10	1.111
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.107 2003/06/24 19:18:01 albertel Exp $
+# $Id: inputtags.pm,v 1.111 2003/08/01 18:04:10 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -343,13 +343,23 @@ sub decideoutput {
 	  } else {
 	      $message = "<b>You are correct.</b>";
 	  }
-	  $message.=' Your receipt is '.&Apache::lonnet::receipt;
+          unless ($ENV{'course.'.
+			   $ENV{'request.course.id'}.
+			   '.disable_receipt_display'} eq 'yes') { 
+	      $message.=(($target eq 'web')?'<br />':' ').
+		  'Your receipt is '.&Apache::lonnet::receipt().
+       (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
+	  }
       }
       $bgcolor=$possiblecolors{'correct'};
       $button=0;
       $previousmsg='';
   } elsif ($solved =~ /^excused/) {
-      $message = "<b>You are excused from the problem.</b>";
+      if ($target eq 'tex') {
+	  $message = ' \textbf{You are excused from the problem.} ';
+      } else {
+	  $message = "<b>You are excused from the problem.</b>";
+      }
       $bgcolor=$possiblecolors{'charged_try'};
       $button=0;
       $previousmsg='';
@@ -359,8 +369,14 @@ sub decideoutput {
 	  $bgcolor=$possiblecolors{'charged_try'};
 	  $button=1;
       } else {
-	  $message = "<b>You are correct.</b> Your receipt is ".
-	   &Apache::lonnet::receipt;
+	  $message = "<b>You are correct.</b>";
+          unless ($ENV{'course.'.
+			   $ENV{'request.course.id'}.
+			   '.disable_receipt_display'} eq 'yes') { 
+	      $message.=(($target eq 'web')?'<br />':' ').
+		  'Your receipt is '.&Apache::lonnet::receipt().
+       (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
+	  }
 	  $bgcolor=$possiblecolors{'correct'};
 	  $button=0;
 	  $previousmsg='';