--- loncom/homework/inputtags.pm	2003/06/24 19:18:01	1.107
+++ loncom/homework/inputtags.pm	2003/07/17 20:05:59	1.110
@@ -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.110 2003/07/17 20:05:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -343,7 +343,13 @@ 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;
@@ -359,8 +365,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='';