--- loncom/homework/inputtags.pm	2003/06/24 19:18:01	1.107
+++ loncom/homework/inputtags.pm	2003/07/15 21:12:01	1.108
@@ -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.108 2003/07/15 21:12:01 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -343,7 +343,11 @@ 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.='<br />Your receipt is '.&Apache::lonnet::receipt;
+	  }
       }
       $bgcolor=$possiblecolors{'correct'};
       $button=0;
@@ -359,8 +363,12 @@ 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.='<br />Your receipt is '.&Apache::lonnet::receipt;
+	  }
 	  $bgcolor=$possiblecolors{'correct'};
 	  $button=0;
 	  $previousmsg='';