X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpay_batch.pm;h=add4da9e0c8c7a951ed63a674f6767807e880784;hb=fe5f1d41372b0871120e6d2b4ebc9e2c1fd62726;hp=6e15b272c63c780d0e5d42086eb88b9ba8f719c3;hpb=d30acf2ea17ee07f4ce1e4adb5818d786f6a2a26;p=freeside.git

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 6e15b272c..add4da9e0 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -6,6 +6,7 @@ use Time::Local;
 use Text::CSV_XS;
 use FS::Record qw( dbh qsearch qsearchs );
 use FS::cust_pay;
+use FS::part_bill_event qw(due_events);
 
 @ISA = qw(FS::Record);
 
@@ -152,7 +153,7 @@ I<format> - "csv-td_canada_trust-merchant_pc_batch", "csv-chase_canada-E-xactBat
 sub import_results {
   my $self = shift;
 
-  my $param = @_;
+  my $param = ref($_[0]) ? shift : { @_ };
   my $fh = $param->{'filehandle'};
   my $format = $param->{'format'};