|
version 1.174, 2004/02/09 22:37:54
|
version 1.176, 2004/02/17 16:45:58
|
|
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 { |
|
Line 3992 sub scantron_get_correction {
|
Line 3992 sub scantron_get_correction {
|
| 'scantron_username','scantron_domain')); |
'scantron_username','scantron_domain')); |
| $r->print(": <input type='text' name='scantron_username' value='' />"); |
$r->print(": <input type='text' name='scantron_username' value='' />"); |
| $r->print("\n@". |
$r->print("\n@". |
| &Apache::loncommon::select_dom_form(undef,'scantron_domain')); |
&Apache::loncommon::select_dom_form($ENV{'request.role..domain'},'scantron_domain')); |
| |
|
| $r->print('</li>'); |
$r->print('</li>'); |
| } elsif ($error eq 'doublebubble') { |
} elsif ($error eq 'doublebubble') { |
![[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