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

[ivan]

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

Modified Files:
	cust_pay.pm 
Log Message:
payyment receipts: pass body has an arrayref, also fill in name filed

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- cust_pay.pm	30 Jun 2004 18:01:41 -0000	1.30
+++ cust_pay.pm	30 Jun 2004 18:12:27 -0000	1.31
@@ -182,16 +182,17 @@
       'from'    => $conf->config('invoice_from'), #??? well as good as any
       'to'      => \@invoicing_list,
       'subject' => 'Payment receipt',
-      'body'    => $receipt_template->fill_in( HASH => {
-                     'date'    => time2str("%a %B %o, %Y", $self->_date),
-                     'paynum'  => $self->paynum,
-                     'paid'    => $self->paid,
-                     'payby'   => ucfirst(lc($self->payby)),
-                     'payinfo' => ( $self->payby eq 'CARD'
-                                      ? $self->payinfo_masked
-                                      : $self->payinfo        ),
-                     'balance' => $cust_main->balance,
-                   } ),
+      'body'    => [ $receipt_template->fill_in( HASH => {
+                       '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        ),
+                       'balance' => $cust_main->balance,
+                   } ) ],
     );
     if ( $error ) {
       warn "can't send payment receipt: $error";