version 1.222, 2007/04/16 23:15:48
|
version 1.224, 2007/05/21 22:57:17
|
Line 629 sub decideoutput {
|
Line 629 sub decideoutput {
|
} |
} |
$added_computer_text=1; |
$added_computer_text=1; |
my ($symb) = &Apache::lonnet::whichuser(); |
my ($symb) = &Apache::lonnet::whichuser(); |
if ((!$env{'course.'. |
if (($symb ne '') |
$env{'request.course.id'}. |
&& |
'.disable_receipt_display'} eq 'yes')&& |
($env{'course.'.$env{'request.course.id'}. |
$symb) { |
'.disable_receipt_display'} ne 'yes')) { |
$message.=(($target eq 'web')?'<br />':' '). |
$message.=(($target eq 'web')?'<br />':' '). |
&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part). |
&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part). |
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); |
} |
} |
|
&Apache::lonnet::logthis(" er \n$symb\n$message\n".$env{'course.'. |
|
$env{'request.course.id'}. |
|
'.disable_receipt_display'}); |
} |
} |
$button=0; |
$button=0; |
$previousmsg=''; |
$previousmsg=''; |
Line 1106 sub get_grade_messages {
|
Line 1109 sub get_grade_messages {
|
} |
} |
|
|
sub gradestatus { |
sub gradestatus { |
my ($id,$target) = @_; |
my ($id,$target,$no_previous) = @_; |
my $showbutton = 1; |
my $showbutton = 1; |
my $message = ''; |
my $message = ''; |
my $latemessage = ''; |
my $latemessage = ''; |
Line 1145 sub gradestatus {
|
Line 1148 sub gradestatus {
|
if ($target eq 'tex') { |
if ($target eq 'tex') { |
return $button.' \vskip 0 mm '.$output.' '; |
return $button.' \vskip 0 mm '.$output.' '; |
} else { |
} else { |
return '<table><tr><td>'.$button.'</td>'.$output.'<td>'.&previous_tries($id,$target).'</td></tr></table>'; |
$output = |
|
'<table><tr><td>'.$button.'</td>'.$output; |
|
if (!$no_previous) { |
|
$output.='<td>'.&previous_tries($id,$target).'</td>'; |
|
} |
|
$output.= '</tr></table>'; |
|
return $output; |
} |
} |
} |
} |
} |
} |
Line 1190 sub previous_tries {
|
Line 1199 sub previous_tries {
|
|
|
|
|
$output.='<tr class="'.$class.'">'; |
$output.='<tr class="'.$class.'">'; |
$output.='<td align ="center">'.$count.'</td>'; |
$output.='<td align="center">'.$count.'</td>'; |
$output.=$message; |
$output.=$message; |
|
|
foreach my $resid (@Apache::inputtags::response) { |
foreach my $resid (@Apache::inputtags::response) { |