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 ' .