$form->{paid_missing} = $form->{invtotal_unformatted} - $form->{totalpaid};
 
-  print $form->parse_html_template('ap/form_header');
+  print $form->parse_html_template('ap/form_header', {
+    today => DateTime->today,
+  });
 
   $main::lxdebug->leave_sub();
 }
 
     ARselected           => $ARselected,
     title_str            => $title,
     follow_up_trans_info => $follow_up_trans_info,
+    today                => DateTime->today,
   });
 
   $main::lxdebug->leave_sub();
 
             [% temp = "datepaid_"_ i %]
             <td align="center">
               [% IF( changeable ) %]
-                [% L.date_tag(temp, $temp) %]
+                [% L.date_tag(temp, $temp ? $temp : today) %]
               [% ELSE %]
                 [% $temp | html %]
                 <input type="hidden" name="[% temp %]" value="[% $temp | html %]">
 
         <tr>
          <td align=center>
   [%- IF row.changeable %]
-          [% L.date_tag('datepaid_' _ loop.count, row.datepaid) %]
+          [% L.date_tag('datepaid_' _ loop.count, row.datepaid ? row.datepaid : today) %]
   [%- ELSE %]
          [% row.datepaid | html %][% L.hidden_tag('datepaid_' _ loop.count, row.datepaid) %]
   [%- END %]