-
- <% include('email-customers.html',
- 'form_action' => 'email-customer-statement.html',
- 'title' => 'Send statement to customer',
- 'no_search_fields' => [ 'start_date', 'end_date' ],
- 'alternate_form' => $alternate_form,
- 'post_search_hook' => $post_search_hook,
- 'acl' => $acl,
- 'process_url' => 'process/email-customer-statement.html',
- )
- %>
-
+<& email-customers.html,
+ 'form_action' => 'email-customer-statement.html',
+ 'title' => 'Send statement to customer',
+ 'no_search_fields' => [ 'start_date', 'end_date' ],
+ 'alternate_form' => $alternate_form,
+ 'post_search_hook' => $post_search_hook,
+ 'acl' => $acl,
+ 'process_url' => 'process/email-customer-statement.html',
+&>
<%init>
my $acl = 'Resend invoices';
my $label = ucfirst($_);
$label =~ s/_/ /;
include('/elements/tr-input-date-field.html',{
- 'name' => $_,
- 'value' => $cgi->param($_) || '',
- 'label' => $label,
+ 'name' => $_,
+ 'value' => ( scalar($cgi->param($_)) || '' ),
+ 'label' => $label,
'noinit' => $noinit++
});
}
qw( start_date end_date )
),
'</TABLE>',
- '<INPUT TYPE="hidden" NAME="action" VALUE="preview">',
+ '<INPUT TYPE="hidden" NAME="preview" VALUE="1">',
'<INPUT TYPE="submit" VALUE="Preview notice">',
);
};
my $post_search_hook = sub {
my %opt = @_;
- return unless $cgi->param('action') eq 'preview';
+ return unless $cgi->param('preview');
my $cust_main = qsearchs('cust_main',$opt{'search'})
or die "Could not find customer";
$summary_text
);
- $cgi->param('html_body',
+ $cgi->param('body',
'<P>' .
$opt{'conf'}->config('company_name') .
' statement of charges and payments for ' .
'history' => [
$cust_main->payment_history(
map {
- $_ => parse_datetime($cgi->param($_))
+ $_ => parse_datetime(scalar($cgi->param($_)))
}
qw( start_date end_date ),
),