version 1.611, 2010/04/12 12:55:18
|
version 1.612, 2010/04/12 13:11:42
|
Line 7974 sub scantron_upload_scantron_data_save {
|
Line 7974 sub scantron_upload_scantron_data_save {
|
} |
} |
} |
} |
if ($symb) { |
if ($symb) { |
$r->print(&scantron_selectphase($r,$uploadedfile)); |
$r->print(&scantron_selectphase($r,$uploadedfile,$symb)); |
} else { |
} else { |
$r->print($doanotherupload); |
$r->print($doanotherupload); |
} |
} |
Line 9322 sub handler {
|
Line 9322 sub handler {
|
$request->print(&csvuploadassign($request,$symb)); |
$request->print(&csvuploadassign($request,$symb)); |
} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) { |
} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) { |
&startpage($request,$symb); |
&startpage($request,$symb); |
$request->print(&scantron_selectphase($request,$symb)); |
$request->print(&scantron_selectphase($request,undef,$symb)); |
} elsif ($command eq 'scantron_warning' && $perm{'mgr'}) { |
} elsif ($command eq 'scantron_warning' && $perm{'mgr'}) { |
&startpage($request,$symb); |
&startpage($request,$symb); |
$request->print(&scantron_do_warning($request,$symb)); |
$request->print(&scantron_do_warning($request,$symb)); |