--- loncom/homework/inputtags.pm 2007/11/17 02:03:46 1.235
+++ loncom/homework/inputtags.pm 2008/01/28 21:42:28 1.237
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.235 2007/11/17 02:03:46 albertel Exp $
+# $Id: inputtags.pm,v 1.237 2008/01/28 21:42:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -636,8 +636,8 @@ sub decideoutput {
);
my $part = $Apache::inputtags::part;
- my $handgrade =
- ('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade")));
+ my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade");
+ my $handgrade = ('yes' eq lc($tohandgrade));
my $computer = ($handgrade)? ''
: " ".&mt("Computer's answer now shown above.");
@@ -672,7 +672,8 @@ sub decideoutput {
if (($symb ne '')
&&
($env{'course.'.$env{'request.course.id'}.
- '.disable_receipt_display'} ne 'yes')) {
+ '.disable_receipt_display'} ne 'yes') &&
+ ($Apache::lonhomework::type ne 'practice')) {
$message.=(($target eq 'web')?'
':' ').
&mt('Your receipt is [_1]',
(&Apache::lonnet::receipt($Apache::inputtags::part).
@@ -844,6 +845,10 @@ sub decideoutput {
$message.= $computer;
$added_computer_text=1;
}
+ if ($Apache::lonhomework::type eq 'practice') {
+ $message.='
'.&mt('Submissions to practice problems are not permanently recorded.');
+ }
+
return ($button,$css_class,$message,$previousmsg);
}