- my $pay_batch = qsearchs( 'pay_batch', { 'batchnum' => $batchnum } );
- if ( ! $pay_batch ) {
- $error = "batchnum $batchnum not found";
- } elsif ( $pay_batch->status ne 'I' ) {
- $error = "batch $paybatch is not in transit";
- } else {
- $error = $pay_batch->import_results(
- 'filehandle' => $fh,
- 'format' => $cgi->param('format'),
- );
- }