|
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); |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework