@@ -, +, @@ --- opac/opac-search-history.pl | 2 +- serials/claims.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) --- a/opac/opac-search-history.pl +++ a/opac/opac-search-history.pl @@ -102,7 +102,7 @@ unless ( $loggedinuser ) { C4::Search::History::delete( { userid => $loggedinuser, - id => [ $cgi->param('id') ], + id => [ @id ], } ); } else { --- a/serials/claims.pl +++ a/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 ); } --