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