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 5cc6cfd..b732218 100644 (file)
--- 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',