loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.157, 2003/11/12 21:18:10	version 1.158, 2003/11/12 21:20:54
Line 3876 sub scantron_validate_ID {	Line 3876 sub scantron_validate_ID {
$found{'usernames'}{$username}++;	$found{'usernames'}{$username}++;
} else {	} else {
if ($id =~ /^\s*$/) {	if ($id =~ /^\s*$/) {
my $username=&scan_data($scan_dat	my $username=&scan_data($scan_data,"$i.user");
a,"$i.user");
if (defined($username) && $found{'usernames'}{$username}) {	if (defined($username) && $found{'usernames'}{$username}) {
&scantron_get_correction($r,$i,$scan_record,	&scantron_get_correction($r,$i,$scan_record,
\%scantron_config,	\%scantron_config,
Line 4079 SCANTRONFORM	Line 4078 SCANTRONFORM
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
'Processing first student');	'Processing first student');
my $start=&Time::HiRes::time();	my $start=&Time::HiRes::time();
	my $i=-1;
	my ($uname,$udom);
while ($i<$scanlines->{'count'}) {	while ($i<$scanlines->{'count'}) {
($uname,$udom)=('','');	($uname,$udom)=('','');
$i++;	$i++;