From 9b5d2fd0d9bd1bda9fa16bd97f505daa307c8a00 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 28 Mar 2022 12:07:43 +0000 Subject: [PATCH] Bug 30377: Fix two CGI::param called in list context-warnings Content-Type: text/plain; charset=utf-8 Trivial fix. Test plan: Delete two lines from opac search history. Verify results. Check plack-opac-error.log. Signed-off-by: Marcel de Rooy --- opac/opac-search-history.pl | 2 +- serials/claims.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl index 019fdc6b69..8ef23062e7 100755 --- 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 a16d840efe..5b5479f749 100755 --- 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 ); } -- 2.20.1