version 1.16, 2013/02/01 18:46:37
|
version 1.17, 2019/01/31 16:08:06
|
Line 39 sub get_code_freq {
|
Line 39 sub get_code_freq {
|
my ($r)=@_; |
my ($r)=@_; |
my %codes; |
my %codes; |
my %scantron_config= |
my %scantron_config= |
&Apache::grades::get_scantron_config($env{'form.scantron_format'}); |
&Apache::lonnet::get_scantron_config($env{'form.scantron_format'}); |
$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++) { |