--- loncom/homework/inputtags.pm 2008/01/14 14:32:14 1.236
+++ loncom/homework/inputtags.pm 2008/02/27 18:37:02 1.238
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.236 2008/01/14 14:32:14 raeburn Exp $
+# $Id: inputtags.pm,v 1.238 2008/02/27 18:37:02 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -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);
}
@@ -1251,11 +1256,11 @@ sub previous_tries {
&& $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/
) {
+ my $txt_correct = &mt('Correct');
$message =~ s{(