--- loncom/homework/inputtags.pm 2008/01/14 14:32:14 1.236 +++ 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.236 2008/01/14 14:32:14 raeburn Exp $ +# $Id: inputtags.pm,v 1.237 2008/01/28 21:42:28 www 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); }