quiet warnings about CGI::param in list context

[freeside.git] / httemplate / search / log.html

diff --git a/httemplate/search/log.html b/httemplate/search/log.html
index 535b2ca..96a6f5b 100644 (file)
--- a/httemplate/search/log.html
+++ b/httemplate/search/log.html
@@ -72,7 +72,7 @@ a:visited {text-decoration: none}
   <TD>To 
     <& /elements/input-date-field.html, {
       name   => 'ending',
-      value  => scalar($cgi->param('ending')) || '' ),
+      value  => scalar($cgi->param('ending')) || '',
       noinit => 1,
     } &>
   </TD>
@@ -201,7 +201,7 @@ my %colors = (
 
 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;
@@ -216,7 +216,9 @@ $cgi->param('max_level', 5) unless defined($cgi->param('max_level'));
 
 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);