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 ),
),