diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2015-07-06 21:16:33 -0500 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-07-06 22:22:32 -0500 |
commit | 0431b7a1654c5eebaa9d8cc5c6b0de8494687e59 (patch) | |
tree | 56aa228a367f2e96e3d8d432386ae04eed9b853b /FS/FS/cust_main.pm | |
parent | 76ee5744397527a0f9421972b4c93aaeed7ba26f (diff) |
RT#24684: Payments for Online Bill Pay [Credit Balance Display]
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 46df3ff..c6602c1 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -32,7 +32,7 @@ use Locale::Country; use FS::UID qw( dbh driver_name ); use FS::Record qw( qsearchs qsearch dbdef regexp_sql ); use FS::Cursor; -use FS::Misc qw( generate_email send_email generate_ps do_print ); +use FS::Misc qw( generate_email send_email generate_ps do_print money_pretty ); use FS::Msgcat qw(gettext); use FS::CurrentUser; use FS::TicketSystem; @@ -4241,8 +4241,7 @@ sub payment_history { } $$item{'balance'} = sprintf("%.2f",$balance); foreach my $key ( qw(amount balance) ) { - $$item{$key.'_pretty'} = $$item{$key}; - $$item{$key.'_pretty'} =~ s/^(-?)/$1$money_char/; + $$item{$key.'_pretty'} = money_pretty($$item{$key}); } push(@out,$item); } |