freeside/httemplate/edit/process cust_pay.cgi,1.8,1.8.6.1

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory pouncequick:/tmp/cvs-serv20538/process

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	cust_pay.cgi 
Log Message:
add ability to set payment date manually

Index: cust_pay.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/cust_pay.cgi,v
retrieving revision 1.8
retrieving revision 1.8.6.1
diff -u -d -r1.8 -r1.8.6.1
--- cust_pay.cgi	10 Feb 2002 13:21:31 -0000	1.8
+++ cust_pay.cgi	24 Dec 2004 03:33:35 -0000	1.8.6.1
@@ -8,11 +8,14 @@
   or die "Illegal link: ". $cgi->param('link');
 my $link = $1;
 
+my $_date = str2time($cgi->param('_date'));
+
 my $new = new FS::cust_pay ( {
   $link => $linknum,
+  _date => $_date,
   map {
     $_, scalar($cgi->param($_));
-  } qw(paid _date payby payinfo paybatch)
+  } qw(paid payby payinfo paybatch)
   #} fields('cust_pay')
 } );