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 af248a7..c661baa 100644 (file)
--- 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