version 1.235, 2007/11/17 02:03:46
|
version 1.237, 2008/01/28 21:42:28
|
Line 636 sub decideoutput {
|
Line 636 sub decideoutput {
|
); |
); |
|
|
my $part = $Apache::inputtags::part; |
my $part = $Apache::inputtags::part; |
my $handgrade = |
my $tohandgrade = &Apache::lonnet::EXT("resource.$part.handgrade"); |
('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade"))); |
my $handgrade = ('yes' eq lc($tohandgrade)); |
|
|
my $computer = ($handgrade)? '' |
my $computer = ($handgrade)? '' |
: " ".&mt("Computer's answer now shown above."); |
: " ".&mt("Computer's answer now shown above."); |
Line 672 sub decideoutput {
|
Line 672 sub decideoutput {
|
if (($symb ne '') |
if (($symb ne '') |
&& |
&& |
($env{'course.'.$env{'request.course.id'}. |
($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')?'<br />':' '). |
$message.=(($target eq 'web')?'<br />':' '). |
&mt('Your receipt is [_1]', |
&mt('Your receipt is [_1]', |
(&Apache::lonnet::receipt($Apache::inputtags::part). |
(&Apache::lonnet::receipt($Apache::inputtags::part). |
Line 844 sub decideoutput {
|
Line 845 sub decideoutput {
|
$message.= $computer; |
$message.= $computer; |
$added_computer_text=1; |
$added_computer_text=1; |
} |
} |
|
if ($Apache::lonhomework::type eq 'practice') { |
|
$message.='<br />'.&mt('Submissions to practice problems are not permanently recorded.'); |
|
} |
|
|
return ($button,$css_class,$message,$previousmsg); |
return ($button,$css_class,$message,$previousmsg); |
} |
} |
|
|