--- loncom/homework/inputtags.pm	2003/06/19 21:41:02	1.105
+++ loncom/homework/inputtags.pm	2003/07/15 21:26:23	1.109
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.105 2003/06/19 21:41:02 albertel Exp $
+# $Id: inputtags.pm,v 1.109 2003/07/15 21:26:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,6 +144,7 @@ sub start_textfield {
     } else {
       $result=$token->[4];
     }
+    my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser);
     $result.=&Apache::edit::modifiedfield();
   } elsif ($target eq 'tex') {
       my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
@@ -342,7 +343,12 @@ 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().
+		  &Apache::loncommon::help_open_topic('Receipt');
+	  }
       }
       $bgcolor=$possiblecolors{'correct'};
       $button=0;
@@ -358,8 +364,13 @@ 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().
+		  &Apache::loncommon::help_open_topic('Receipt');
+	  }
 	  $bgcolor=$possiblecolors{'correct'};
 	  $button=0;
 	  $previousmsg='';
@@ -373,7 +384,7 @@ sub decideoutput {
       $bgcolor=$possiblecolors{'not_charged_try'};
       $button = 1;
   } elsif ($award eq 'ERROR') {
-      $message = 'An error occured while trying to grade answer.';
+      $message = 'An error occured while grading your answer.';
       $bgcolor=$possiblecolors{'not_charged_try'};
       $button = 1;
   } elsif ($award eq 'TOO_LONG') {