|
version 1.7, 2005/08/12 22:14:12
|
version 1.8, 2005/12/20 18:54:54
|
|
Line 43 sub get_code_freq {
|
Line 43 sub get_code_freq {
|
| $r->rflush(); |
$r->rflush(); |
| my ($scanlines,$scan_data)=&Apache::grades::scantron_getfile(); |
my ($scanlines,$scan_data)=&Apache::grades::scantron_getfile(); |
| for (my $i=0;$i<=$scanlines->{'count'};$i++) { |
for (my $i=0;$i<=$scanlines->{'count'};$i++) { |
| my $line=&Apache::grades::scantron_get_line($scanlines,$i); |
my $line=&Apache::grades::scantron_get_line($scanlines,$scan_data,$i); |
| if ($line=~/^[\s\cz]*$/) { next; } |
if ($line=~/^[\s\cz]*$/) { next; } |
| my $scan_record= |
my $scan_record= |
| &Apache::grades::scantron_parse_scanline($line,$i, |
&Apache::grades::scantron_parse_scanline($line,$i, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpickcode.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface