3 files changed, 36 insertions, 9 deletions
diff --git a/httemplate/elements/tr-input-date-field.html b/httemplate/elements/tr-input-date-field.html
index 37a22e5df..40162f0fd 100644
--- a/httemplate/elements/tr-input-date-field.html
+++ b/httemplate/elements/tr-input-date-field.html
@@ -1,3 +1,22 @@
+<%doc>
+
+Example:
+
+  <& /elements/tr-input_date-field,
+       {
+          'name'  => 'field_name',
+          'value' => $current_value,
+          'label' => 'Label',
+
+          #optional
+          'format'      => '%m/%d/%Y', #overrides date_format config
+          'usedatetime' => 1, #use DateTime->strftime to format the date
+                              # instead of Date::Format->time2str
+          'noinit'      => 1,          #first one on the page is enough
+       },
+  &>
+
+</%doc>
 % unless ( $noinit ) {
 <LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
diff --git a/httemplate/misc/cust_pay-import.cgi b/httemplate/misc/cust_pay-import.cgi
index 849a25bea..28ad6e7df 100644
--- a/httemplate/misc/cust_pay-import.cgi
+++ b/httemplate/misc/cust_pay-import.cgi
@@ -1,4 +1,4 @@
-<% include("/elements/header.html",'Batch Payment Import') %>
+<& /elements/header.html, 'Batch Payment Import' &>
 
 Import a CSV file containing customer payments.
 <BR><BR>
@@ -7,12 +7,18 @@ Import a CSV file containing customer payments.
 
 <% &ntable("#cccccc", 2) %>
 
-<% include('/elements/tr-select-agent.html',
-              #'curr_value' => '', #$agentnum,
-              'label'       => "<B>Agent</B>",
-              'empty_label' => 'Select agent',
-           )
-%>
+<& /elements/tr-select-agent.html,
+     #'curr_value' => '', #$agentnum,
+     'label'       => "<B>Agent</B>",
+     'empty_label' => 'Select agent',
+&>
+
+<& /elements/tr-input-date-field.html, {
+     'name'  => '_date',
+     #'value' => '',
+     'label' => 'Date',
+   }
+&>
 
 <TR>
   <TH ALIGN="right">Format</TH>
@@ -59,4 +65,4 @@ Field information:
 
 <BR>
 
-<% include('/elements/footer.html') %>
+<& /elements/footer.html &>
diff --git a/httemplate/misc/process/cust_pay-import.cgi b/httemplate/misc/process/cust_pay-import.cgi
index 92b6e5a36..7711773d8 100644
--- a/httemplate/misc/process/cust_pay-import.cgi
+++ b/httemplate/misc/process/cust_pay-import.cgi
@@ -9,8 +9,10 @@ my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
 my $error = defined($fh)
   ? FS::cust_pay::batch_import( {
       'filehandle' => $fh,
-      'agentnum'   => scalar($cgi->param('agentnum')),
       'format'     => scalar($cgi->param('format')),
+
+      'agentnum'   => scalar($cgi->param('agentnum')),
+      '_date'      => scalar($cgi->param('_date')),
       'paybatch'   => $paybatch,
     } )
   : 'No file';