Bug 30377: Fix two CGI::param called in list context-warnings

Trivial fix.

Test plan:
Delete two lines from opac search history.
Verify results. Check plack-opac-error.log.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl
index 019fdc6..8ef2306 100755 (executable)
--- a/opac/opac-search-history.pl
+++ b/opac/opac-search-history.pl
@@ -102,7 +102,7 @@ unless ( $loggedinuser ) {
             C4::Search::History::delete(
                 {
                     userid => $loggedinuser,
-                    id     => [ $cgi->param('id') ],
+                    id     => [ @id ],
                 }
             );
         } else {

diff --git a/serials/claims.pl b/serials/claims.pl
index a16d840..5b5479f 100755 (executable)
--- a/serials/claims.pl
+++ b/serials/claims.pl
@@ -59,7 +59,7 @@ my @serialnums=$input->multi_param('serialid');
 if (@serialnums) { # i.e. they have been flagged to generate claims
     my $err;
     eval {
-        $err = SendAlerts('claimissues',\@serialnums,$input->param("letter_code"));
+        $err = SendAlerts( 'claimissues', \@serialnums, scalar $input->param("letter_code") );
         if ( not ref $err or not exists $err->{error} ) {
             C4::Serials::updateClaim( \@serialnums );
         }