From fd69668cd33e9cfc2f1c8469c6e6b7089243d3e6 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 10 Jan 2003 07:41:05 +0000 Subject: [PATCH] pop off an extra blank line in business-onlinepayment options --- FS/FS/cust_bill.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index af248a7a8..c661baa95 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -667,6 +667,10 @@ sub realtime_lec { sub realtime_bop { my( $self, $method, $processor, $login, $password, $action, $options ) = @_; + + #trim an extraneous blank line + pop @$options if scalar(@$options) % 2 && $options->[-1] =~ /^\s*$/; + my $cust_main = $self->cust_main; my $amount = $self->owed; @@ -1126,7 +1130,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.60 2002-12-28 09:16:49 ivan Exp $ +$Id: cust_bill.pm,v 1.61 2003-01-10 07:41:05 ivan Exp $ =head1 BUGS -- 2.20.1