X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpay_batch%2Fchase_canada.pm;h=5d8437dba9c2e4368916b10edb337ca1f55a598d;hb=389b6f1116c3309c2ee57a6c295ed1a793503095;hp=909e4ae1874c09d64ea4ba4e4fc796d2ab4b1101;hpb=25b0525eb1f0d018b893a7bdc96b92a8f446020f;p=freeside.git diff --git a/FS/FS/pay_batch/chase_canada.pm b/FS/FS/pay_batch/chase_canada.pm index 909e4ae18..5d8437dba 100644 --- a/FS/FS/pay_batch/chase_canada.pm +++ b/FS/FS/pay_batch/chase_canada.pm @@ -73,7 +73,7 @@ $name = 'csv-chase_canada-E-xactBatch'; '00', $cust_pay_batch->payinfo, $cust_pay_batch->amount, - expdate($cust_pay_batch->exp), + $cust_pay_batch->expmmyy, '', '' ); @@ -86,19 +86,4 @@ sub sdate { sprintf('%02d/%02d/%02d', $date[5] % 100, $date[4] + 1, $date[3]); } -sub expdate { - my $exp = shift; - $exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; - my ($mon, $y) = ($2, $1); - if($conf->exists('batch-increment_expiration')) { - my ($curmon, $curyear) = (localtime(time))[4,5]; - $curmon++; - $curyear -= 100; - $y++ while $y < $curyear || ($y == $curyear && $mon < $curmon); - } - $mon = "0$mon" if $mon =~ /^\d$/; - $y = "0$y" if $y =~ /^\d$/; - return "$mon$y"; -} - 1;