From: ivan <ivan>
Date: Fri, 10 Jan 2003 07:42:39 +0000 (+0000)
Subject: pop off an extra blank line in business-onlinepayment options
X-Git-Tag: freeside_1_4_1beta7~17
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=f5dd8fc40d6325f3f53f4e8acc1175b0f5520964;p=freeside.git

pop off an extra blank line in business-onlinepayment options
---

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