diff options
Diffstat (limited to 'httemplate/misc/upload-batch.cgi')
-rw-r--r-- | httemplate/misc/upload-batch.cgi | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi deleted file mode 100644 index d1a84fd02..000000000 --- a/httemplate/misc/upload-batch.cgi +++ /dev/null @@ -1,36 +0,0 @@ -% if ( $error ) { -% errorpage($error); -% } else { - <% include('/elements/header.html','Batch results upload successful') %> - <% include('/elements/footer.html') %> -% } -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Process batches'); - -my $error; - -my $fh = $cgi->upload('batch_results'); -$error = 'No file uploaded' unless defined($fh); - -unless ( $error ) { - - $cgi->param('batchnum') =~ /^(\d+)$/; - my $batchnum = $1; - - my $pay_batch = qsearchs( 'pay_batch', { 'batchnum' => $batchnum } ); - if ( ! $pay_batch ) { - $error = "batchnum $batchnum not found"; - } elsif ( $pay_batch->status ne 'I' ) { - $error = "batch $batchnum is not in transit"; - } else { - $error = $pay_batch->import_results( - 'filehandle' => $fh, - 'format' => $cgi->param('format'), - ); - } - -} - -</%init> |