--- loncom/homework/grades.pm 2003/11/12 21:18:10 1.157 +++ loncom/homework/grades.pm 2003/11/12 21:20:54 1.158 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.157 2003/11/12 21:18:10 albertel Exp $ +# $Id: grades.pm,v 1.158 2003/11/12 21:20:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3876,8 +3876,7 @@ sub scantron_validate_ID { $found{'usernames'}{$username}++; } else { if ($id =~ /^\s*$/) { - my $username=&scan_data($scan_dat -a,"$i.user"); + my $username=&scan_data($scan_data,"$i.user"); if (defined($username) && $found{'usernames'}{$username}) { &scantron_get_correction($r,$i,$scan_record, \%scantron_config, @@ -4079,7 +4078,8 @@ SCANTRONFORM &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, 'Processing first student'); my $start=&Time::HiRes::time(); - + my $i=-1; + my ($uname,$udom); while ($i<$scanlines->{'count'}) { ($uname,$udom)=('',''); $i++;