From: ivan <ivan>
Date: Tue, 12 Feb 2002 18:47:21 +0000 (+0000)
Subject: fixes:
X-Git-Tag: freeside_1_4_0pre11~59
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c493d99b65cf3b1cc05ea5d7a61214dba563569f

fixes:

Error running invoice event ($cust_main->charge( 10.00, 'Overdue Bill'
);): Illegal or empty (text) comment:  at
/usr/local/lib/perl5/site_perl/5.005/FS/cust_main.pm line 1141.
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 5cc6cfdfd..b732218e7 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1582,7 +1582,7 @@ sub charge {
 
   my $part_pkg = new FS::part_pkg ( {
     'pkg'      => $pkg || 'One-time charge',
-    'comment'  => $comment,
+    'comment'  => $comment || '$'. sprintf("%.2f".$amount),
     'setup'    => $amount,
     'freq'     => 0,
     'recur'    => '0',