[freeside-commits] freeside/httemplate/edit/process cust_pay.cgi, 1.19, 1.19.2.1

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory wavetail.420.am:/tmp/cvs-serv6887/httemplate/edit/process

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	cust_pay.cgi 
Log Message:
modify backdated payment application behaviour, RT11870

Index: cust_pay.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/cust_pay.cgi,v
retrieving revision 1.19
retrieving revision 1.19.2.1
diff -u -w -d -r1.19 -r1.19.2.1
--- cust_pay.cgi	4 Nov 2010 17:09:31 -0000	1.19
+++ cust_pay.cgi	6 Jul 2011 04:16:06 -0000	1.19.2.1
@@ -7,7 +7,8 @@
 %  if ( $cgi->param('apply') eq 'yes' ) {
 %    my $cust_main = qsearchs('cust_main', { 'custnum' => $linknum })
 %      or die "unknown custnum $linknum";
-%    $cust_main->apply_payments( 'manual' => 1 );
+%    $cust_main->apply_payments( 'manual' => 1,
+%                                'backdate_application' => ($_date < time-86400) );
 %  }
 %  if ( $link eq 'popup' ) {
 %