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.
my $part_pkg = new FS::part_pkg ( {
'pkg' => $pkg || 'One-time charge',
my $part_pkg = new FS::part_pkg ( {
'pkg' => $pkg || 'One-time charge',
+ 'comment' => $comment || '$'. sprintf("%.2f".$amount),
'setup' => $amount,
'freq' => 0,
'recur' => '0',
'setup' => $amount,
'freq' => 0,
'recur' => '0',