freeside/FS/FS cust_pay.pm,1.31,1.32

ivan ivan at pouncequick.420.am
Wed Jun 30 11:19:47 PDT 2004


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv10455/FS/FS

Modified Files:
	cust_pay.pm 
Log Message:
payyment receipts template fixes

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- cust_pay.pm	30 Jun 2004 18:12:27 -0000	1.31
+++ cust_pay.pm	30 Jun 2004 18:19:44 -0000	1.32
@@ -178,6 +178,11 @@
 
     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 @@
                        '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,
                    } ) ],
     );




More information about the freeside-commits mailing list