my $batchnum = $pay_batch->batchnum;
my $filename = time2str('%Y%m%d', time) . '-' . sprintf('%06d.csv',$batchnum);
print STDERR "Exporting batch $batchnum to $filename...\n" if $opt_v;
- my $text = $pay_batch->export_batch('eft_canada');
+ my $text = $pay_batch->export_batch(format => 'eft_canada');
+ unless ($text) {
+ print STDERR "Batch is empty, resolving..." if $opt_v;
+ next;
+ }
open OUT, ">$tmpdir/$filename";
print OUT $text;
close OUT;
=head1 SYNOPSIS
- freeside-paymentech-upload [ -a ] [ -v ] user batchnum
+ freeside-eftca-upload [ -a ] [ -v ] user batchnum
=head1 DESCRIPTION