From 4b3d2c53083aa3c1fa6885306e142f1551a63b57 Mon Sep 17 00:00:00 2001 From: Baptiste Date: Fri, 25 Oct 2024 15:50:28 +0200 Subject: [PATCH] Bug 38258: Force scalar context for cookie calls (part 4) Correct the last call for cookies --- authorities/merge_ajax.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl index b4e489be5e1..c3bd0b2dfc8 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -11,7 +11,8 @@ use C4::Auth qw( check_cookie_auth ); use C4::AuthoritiesMarc qw( GetTagsLabels ); my %cookies = CGI::Cookie->fetch; -my ($auth_status) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }); +my $session_cookie = $cookies{'CGISESSID'}->value; +my ($auth_status) = check_cookie_auth( $session_cookie, { editcatalogue => 'edit_catalogue' } ); my $reply = CGI->new; if ($auth_status ne "ok") { print $reply->header(-type => 'text/html'); -- 2.30.2