version 1.222, 2007/04/16 23:15:48
|
version 1.223, 2007/04/18 00:32:02
|
Line 1106 sub get_grade_messages {
|
Line 1106 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 1145 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 1196 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) { |