diff options
| author | ivan <ivan> | 2002-02-12 18:47:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-12 18:47:21 +0000 |
| commit | c493d99b65cf3b1cc05ea5d7a61214dba563569f (patch) | |
| tree | cea9a7a0c94e974208a68e1a106ebb8a8d195a35 | |
| parent | f3a66fc4b25eb9fcc74a9fea56c48a61a1eea012 (diff) | |
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.
| -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 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', |