diff options
| author | ivan <ivan> | 2003-01-10 07:42:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-01-10 07:42:39 +0000 |
| commit | f5dd8fc40d6325f3f53f4e8acc1175b0f5520964 (patch) | |
| tree | c42b8b3997594f9180e91e337a0e9633e54ec2b1 | |
| parent | 38e863aac27a3420bc0da2428cf5067724c14408 (diff) | |
pop off an extra blank line in business-onlinepayment options
| -rw-r--r-- | FS/FS/cust_bill.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 |