- sub { $money_char. sprintf('%.2f', shift->amount ) },
- sub { my $cbp = shift;
- '#'.$cbp->invnum. ' '.
- time2str('%b %d %Y', $cbp->cust_bill_date ).
- " ($money_char".
- sprintf('%.2f', $cbp->cust_bill_amount).
- ")"
- },
- sub { my $cbp = shift;
- $cbp->cust_pay->payby_payinfo_pretty. ' '.
- time2str('%b %d %Y', $cbp->_date ).
- " ($money_char".
- sprintf('%.2f', $cbp->cust_pay_paid ).
- ")"
- },
- sub { shift->cust_pay->otaker },
+ sub { $money_char.sprintf('%.2f', shift->amount ) },
+ 'invnum',
+ sub { $money_char.sprintf('%.2f', shift->cust_bill_charged)},
+ sub { time2str('%b %d %Y', shift->cust_bill_date ) },
+ sub { shift->cust_pay->payby_payinfo_pretty },
+ sub { $money_char.sprintf('%.2f', shift->cust_pay_paid)},
+ sub { time2str('%b %d %Y', shift->cust_pay_date ) },
+ sub { shift->cust_pay_otaker },