From: ivan Date: Mon, 5 Feb 2007 16:01:21 +0000 (+0000) Subject: fix param passing X-Git-Tag: freeside_1_7_2~1^2~36 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=265009b7aa3776d36bdd597540b6d21b0199ac2d;p=freeside.git fix param passing --- diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm index 6e15b272c..54c370b7d 100644 --- a/FS/FS/pay_batch.pm +++ b/FS/FS/pay_batch.pm @@ -152,7 +152,7 @@ I - "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'};