httemplate/misc/process/cust_bill-promised_date.html

   1 <SCRIPT TYPE="text/javascript">window.top.location.reload()</SCRIPT>
   2 <%init>
   3 # XXX ACL?
   4 die "access denied"
   5   unless $FS::CurrentUser::CurrentUser->access_right('Edit customer');
   6
   7 $cgi->param('invnum') =~ /^(\d+)$/
   8   or die "Illegal invnum";
   9 my $invnum = $1;
  10
  11 my $promised_date = '';
  12 if ( length($cgi->param('promised_date')) ) {
  13   $promised_date = parse_datetime($cgi->param('promised_date'))
  14     or die "Illegal promised_date";
  15 }
  16
  17 my $cust_bill = qsearchs('cust_bill', { invnum => $invnum });
  18 my $cust_main = $cust_bill->cust_main;
  19
  20 $cust_bill->promised_date($promised_date);
  21 # also reset failed payment events
  22 my $error = $cust_bill->replace || $cust_main->retry_realtime;
  23 die $error if $error; # nothing fancy here
  24 </%init>