From f5dd8fc40d6325f3f53f4e8acc1175b0f5520964 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 10 Jan 2003 07:42:39 +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 afde4338c..009f6af33 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -686,6 +686,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; @@ -1218,7 +1222,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.41.2.19 2002-12-28 09:16:47 ivan Exp $ +$Id: cust_bill.pm,v 1.41.2.20 2003-01-10 07:42:39 ivan Exp $ =head1 BUGS -- 2.11.0