From: ivan <ivan>
Date: Wed, 3 Jul 2002 03:57:08 +0000 (+0000)
Subject: working one-time charges again
X-Git-Tag: freeside_1_4_0_beta1~11
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=e48985560b4c23e511658f2d638b762c061beee1

working one-time charges again
---

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 : '';