|
version 1.174, 2004/02/09 22:37:54
|
version 1.175, 2004/02/16 18:28:25
|
|
Line 3843 sub scantron_getfile {
|
Line 3843 sub scantron_getfile {
|
| } else { |
} else { |
| $scanlines{'skipped'}=[(split("\n",$lines,-1))]; |
$scanlines{'skipped'}=[(split("\n",$lines,-1))]; |
| } |
} |
| my @tmp=&Apache::lonnet::dump('scantrondata',$cdom,$cname); |
my @tmp=&Apache::lonnet::dump('nohist_scantrondata',$cdom,$cname); |
| if ($tmp[0] =~ /^(error:|no_such_host)/) { @tmp=(); } |
if ($tmp[0] =~ /^(error:|no_such_host)/) { @tmp=(); } |
| my %scan_data = @tmp; |
my %scan_data = @tmp; |
| return (\%scanlines,\%scan_data); |
return (\%scanlines,\%scan_data); |
|
Line 3875 sub scantron_putfile {
|
Line 3875 sub scantron_putfile {
|
| &lonnet_putfile(join("\n",@{$scanlines->{'skipped'}}), |
&lonnet_putfile(join("\n",@{$scanlines->{'skipped'}}), |
| $prefix.'skipped_'. |
$prefix.'skipped_'. |
| $ENV{'form.scantron_selectfile'}); |
$ENV{'form.scantron_selectfile'}); |
| &Apache::lonnet::put('scantrondata',$scan_data,$cdom,$cname); |
&Apache::lonnet::put('nohist_scantrondata',$scan_data,$cdom,$cname); |
| } |
} |
| |
|
| sub scantron_get_line { |
sub scantron_get_line { |
![[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