version 1.234, 2007/11/01 20:56:51
|
version 1.236, 2008/01/14 14:32:14
|
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 667 sub decideoutput {
|
Line 667 sub decideoutput {
|
$message.= $computer; |
$message.= $computer; |
} |
} |
$added_computer_text=1; |
$added_computer_text=1; |
my ($symb) = &Apache::lonnet::whichuser(); |
if ($awarded > 0) { |
if (($symb ne '') |
my ($symb) = &Apache::lonnet::whichuser(); |
&& |
if (($symb ne '') |
($env{'course.'.$env{'request.course.id'}. |
&& |
'.disable_receipt_display'} ne 'yes')) { |
($env{'course.'.$env{'request.course.id'}. |
$message.=(($target eq 'web')?'<br />':' '). |
'.disable_receipt_display'} ne 'yes')) { |
&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part). |
$message.=(($target eq 'web')?'<br />':' '). |
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
&mt('Your receipt is [_1]', |
|
(&Apache::lonnet::receipt($Apache::inputtags::part). |
|
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''))); |
|
} |
} |
} |
} |
} |
$button=0; |
$button=0; |
Line 701 sub decideoutput {
|
Line 704 sub decideoutput {
|
$message.= $computer; |
$message.= $computer; |
} |
} |
$added_computer_text=1; |
$added_computer_text=1; |
unless ($env{'course.'. |
if ($awarded > 0 |
|
&& $env{'course.'. |
$env{'request.course.id'}. |
$env{'request.course.id'}. |
'.disable_receipt_display'} eq 'yes') { |
'.disable_receipt_display'} ne 'yes') { |
$message.=(($target eq 'web')?'<br />':' '). |
$message.=(($target eq 'web')?'<br />':' '). |
'Your receipt is '.&Apache::lonnet::receipt($Apache::inputtags::part). |
&mt('Your receipt is [_1]', |
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
(&Apache::lonnet::receipt($Apache::inputtags::part). |
|
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''))); |
} |
} |
$css_class=$possible_class{'correct'}; |
$css_class=$possible_class{'correct'}; |
$button=0; |
$button=0; |