|
version 1.332, 2006/03/11 00:08:48
|
version 1.333, 2006/03/13 20:26:51
|
|
Line 5003 sub scantron_get_correction {
|
Line 5003 sub scantron_get_correction {
|
| #the previous one or the current one |
#the previous one or the current one |
| |
|
| $r->print("<p><b>An error was detected ($error)</b>"); |
$r->print("<p><b>An error was detected ($error)</b>"); |
| if ( defined($$scan_record{'scantron.PaperID'}) ) { |
if ( $$scan_record{'scantron.PaperID'} =~ /\S/) { |
| $r->print(" for PaperID <tt>". |
$r->print(" for PaperID <tt>". |
| $$scan_record{'scantron.PaperID'}."</tt> \n"); |
$$scan_record{'scantron.PaperID'}."</tt> \n"); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework