diff options
author | ivan <ivan> | 2004-06-30 18:19:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-06-30 18:19:54 +0000 |
commit | 197e1640b4d44a4769fccc947d0f1e128fbde3a8 (patch) | |
tree | f1306fdda2a3dafa1289ad9eafd44143f43a41c0 /FS/FS/cust_pay.pm | |
parent | 079a77a515431e0b700d6eb328e52e132ccfd468 (diff) |
payyment receipts template fixes
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 91d525a..799ceab 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -178,6 +178,11 @@ sub insert { my @invoicing_list = grep { $_ ne 'POST' } $cust_main->invoicing_list; + my $payby = $self->payby; + my $payinfo = $self->payinfo; + $payby =~ s/^BILL$/Check/ if $payinfo; + $payinfo = $self->payinfo_masked if $payby eq 'CARD'; + my $error = send_email( 'from' => $conf->config('invoice_from'), #??? well as good as any 'to' => \@invoicing_list, @@ -186,11 +191,9 @@ sub insert { 'date' => time2str("%a %B %o, %Y", $self->_date), 'name' => $cust_main->name, 'paynum' => $self->paynum, - 'paid' => $self->paid, - 'payby' => ucfirst(lc($self->payby)), - 'payinfo' => ( $self->payby eq 'CARD' - ? $self->payinfo_masked - : $self->payinfo ), + 'paid' => sprintf("%.2f", $self->paid), + 'payby' => ucfirst(lc($payby)), + 'payinfo' => $payinfo, 'balance' => $cust_main->balance, } ) ], ); |