payyment receipts template fixes
authorivan <ivan>
Wed, 30 Jun 2004 18:19:54 +0000 (18:19 +0000)
committerivan <ivan>
Wed, 30 Jun 2004 18:19:54 +0000 (18:19 +0000)
FS/FS/cust_pay.pm
conf/payment_receipt_email

index 91d525a..799ceab 100644 (file)
@@ -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,
                    } ) ],
     );
index fa5a735..1a0a758 100644 (file)
@@ -3,7 +3,7 @@
 
 Dear { $name },
 
-This message is to inform you that your payment of ${ $amount } has been
+This message is to inform you that your payment of ${ $paid } has been
 received.
 
 Payment ID: { $paynum }