diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2018-08-24 22:31:14 -0400 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2018-08-24 22:31:14 -0400 |
| commit | cee66872f5c67825cae5a0f86da3fb0657c4ebae (patch) | |
| tree | 01e860340a00266ada2c7a7513c2e036f88072e6 /httemplate | |
| parent | 9c0a696b7999d2fdb3a16f5860770d2b004c82b5 (diff) | |
RT# 81183 Fix crash processing payment with new payment method
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/misc/process/payment.cgi | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi index 939fc38..d0e5896 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -211,15 +211,21 @@ if ( (my $custpaybynum = scalar($cgi->param('custpaybynum'))) > 0 ) { my $error = ''; my $paynum = ''; -my $paydate; -if ($cust_payby->paydate) { $paydate = "$year-$month-01"; } -else { $paydate = "2037-12-01"; } if ( $cgi->param('batch') ) { $error = 'Prepayment discounts not supported with batched payments' if $discount_term; + # Invalid payment expire dates are replaced with 2037-12-01 (why?) + my $paydate = "${year}-${month}-01"; + { + use DateTime; + local $@; + eval { DateTime->new({ year => $year, month => $month, day => 1 }) }; + $paydate = '2037-12-01' if $@; + } + $error ||= $cust_main->batch_card( 'payby' => $payby, 'amount' => $amount, |