diff options
| author | ivan <ivan> | 2002-07-03 03:57:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-07-03 03:57:08 +0000 |
| commit | e48985560b4c23e511658f2d638b762c061beee1 (patch) | |
| tree | a42c59bbec1713033d103e529bff6137a4666692 /FS | |
| parent | d515768232afa35557496bb867f5708f279465e3 (diff) | |
working one-time charges again
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 6edb6ae8f..02e906aed 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1742,7 +1742,7 @@ the error, otherwise returns false. =cut sub charge { - my ( $self, $amount ) = @_; + my ( $self, $amount ) = ( shift, shift ); my $pkg = @_ ? shift : 'One-time charge'; my $comment = @_ ? shift : '$'. sprintf("%.2f",$amount); my $taxclass = @_ ? shift : ''; |