loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.188, 2004/04/24 08:31:57	version 1.189, 2004/04/24 08:35:10
Line 4208 sub scantron_validate_CODE {	Line 4208 sub scantron_validate_CODE {
my $cdom =$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $cdom =$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
my $cnum =$ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $cnum =$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);	my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);
my %allcodes=map {($_,1)} split(',',$result{$old_name});	my %allcodes=map {(&Apache::lonprintout::num_to_letters($_),1)} split(',',$result{$old_name});

my ($scanlines,$scan_data)=&scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();
for (my $i=0;$i<=$scanlines->{'count'};$i++) {	for (my $i=0;$i<=$scanlines->{'count'};$i++) {