<TR>
<TD>From
<& /elements/input-date-field.html, {
- name => 'beginning',
- value => $cgi->param('beginning'),
+ name => 'beginning',
+ value => scalar($cgi->param('beginning')),
} &>
</TD>
<TD>To
<& /elements/input-date-field.html, {
- name => 'ending',
- value => $cgi->param('ending') || '',
+ name => 'ending',
+ value => scalar($cgi->param('ending')) || '',
noinit => 1,
} &>
</TD>
<TR>
<TD>Level
<& /elements/select.html,
- field => 'min_level',
- options => [ &FS::Log::levelnums ],
- labels => { &FS::Log::levelmap },
- curr_value => $cgi->param('min_level'),
+ field => 'min_level',
+ options => [ &FS::Log::levelnums ],
+ labels => { &FS::Log::levelmap },
+ curr_value => scalar($cgi->param('min_level')),
&>
to
<& /elements/select.html,
- field => 'max_level',
- options => [ &FS::Log::levelnums ],
- labels => { &FS::Log::levelmap },
- curr_value => $cgi->param('max_level'),
+ field => 'max_level',
+ options => [ &FS::Log::levelnums ],
+ labels => { &FS::Log::levelmap },
+ curr_value => scalar($cgi->param('max_level')),
&>
</TD>
<TD>
my $color_sub = sub { $colors{ $_[0]->level }; };
-my @contexts = ('', sort FS::log_context->contexts);
+my @contexts = ('', FS::log_context->contexts);
</%once>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
my %search = ();
$search{'date'} = [ FS::UI::Web::parse_beginning_ending($cgi) ];
-$search{'level'} = [ $cgi->param('min_level'), $cgi->param('max_level') ];
+$search{'level'} = [ scalar($cgi->param('min_level')),
+ scalar($cgi->param('max_level'))
+ ];
foreach my $param (qw(agentnum context context_height tablename tablenum custnum message)) {
if ( $cgi->param($param) ) {
$search{$param} = $cgi->param($param);