[freeside-commits] freeside/FS/FS/cust_main Billing.pm, 1.18.2.9, 1.18.2.10

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/FS/FS/cust_main
In directory wavetail.420.am:/tmp/cvs-serv6887/FS/FS/cust_main

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	Billing.pm 
Log Message:
modify backdated payment application behaviour, RT11870

Index: Billing.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Billing.pm,v
retrieving revision 1.18.2.9
retrieving revision 1.18.2.10
diff -u -w -d -r1.18.2.9 -r1.18.2.10
--- Billing.pm	10 Jun 2011 03:33:57 -0000	1.18.2.9
+++ Billing.pm	6 Jul 2011 04:16:06 -0000	1.18.2.10
@@ -2110,11 +2110,14 @@
 
     my $amount = min( $payment->unapplied, $owed );
 
-    my $cust_bill_pay = new FS::cust_bill_pay ( {
+    my $cbp = {
       'paynum' => $payment->paynum,
       'invnum' => $cust_bill->invnum,
       'amount' => $amount,
-    } );
+    };
+    $cbp->{_date} = $payment->_date 
+        if $options{'manual'} && $options{'backdate_application'};
+    my $cust_bill_pay = new FS::cust_bill_pay($cbp);
     $cust_bill_pay->pkgnum( $payment->pkgnum )
       if $conf->exists('pkg-balances') && $payment->pkgnum;
     my $error = $cust_bill_pay->insert(%options);