|
version 1.482, 2007/11/06 11:21:21
|
version 1.483, 2007/11/06 11:48:48
|
|
Line 5453 sub scantron_parse_scanline {
|
Line 5453 sub scantron_parse_scanline {
|
| } elsif (scalar(@array) le 2) { |
} elsif (scalar(@array) le 2) { |
| |
|
| my $location = length($array[0]); |
my $location = length($array[0]); |
| my $line_num = $location / $$scantron_config{'Qlength'}; |
my $line_num = int($location / $$scantron_config{'Qlength'}); |
| my $bubble = $alphabet[$location % $$scantron_config{'Qlength'}]; |
my $bubble = $alphabet[$location % $$scantron_config{'Qlength'}]; |
| |
|
| |
|
| for (my $ans = 0; $ans < $answers_needed; $ans++) { |
for (my $ans = 0; $ans < $answers_needed; $ans++) { |
| if ($ans eq $line_num) { |
if ($ans eq $line_num) { |
![[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