diff options
| author | ivan <ivan> | 2003-01-10 07:41:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-01-10 07:41:05 +0000 |
| commit | fd69668cd33e9cfc2f1c8469c6e6b7089243d3e6 (patch) | |
| tree | e0cf1d1abbb3314c04529e73bf79828e6d1b3dd9 /FS/FS | |
| parent | c423f1b4bdad5f4dea96c27f998215ca18745f6f (diff) | |
pop off an extra blank line in business-onlinepayment options
Diffstat (limited to 'FS/FS')
| -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 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 |