<& /elements/header-popup.html, 'Edit promised date' &>
<% emt('Invoice #[_1]', $invnum) %>
<% ntable('cccccc',2) %> <& /elements/tr-input-date-field.html, 'promised_date', $cust_bill->promised_date, emt('Promised date'), &>
<& /elements/footer.html &> <%init> my ($invnum) = $cgi->keywords; $invnum =~ /^\d+$/ or die "Illegal invnum"; my $cust_bill = qsearchs('cust_bill', { invnum => $invnum });