From a9c184554ce71ce3b2743a7f576ddf9bea4ca4e5 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Mon, 24 Jan 2022 13:06:33 +0000
Subject: [PATCH] Bug 29931: (follow-up) Similar thing in opac-patron-image.pl

Although less harmful indeed. No borrowernumber, no image.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Tested: logged in, logged out, prefs toggled. All fine.

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 opac/opac-patron-image.pl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl
index df1efdf4ef6..dccba229eb2 100755
--- a/opac/opac-patron-image.pl
+++ b/opac/opac-patron-image.pl
@@ -32,13 +32,14 @@ unless (C4::Context->preference('OPACpatronimages')) {
     exit;
 }
 
-my $needed_flags;
-my %cookies = CGI::Cookie->fetch;
-my $sessid = $cookies{'CGISESSID'}->value;
-my ($auth_status) = check_cookie_auth($sessid, $needed_flags);
-my $borrowernumber = C4::Context->userenv->{'number'};
+my ($auth_status) = check_cookie_auth( $query->cookie('CGISESSID') );
+if( $auth_status ne 'ok' ) {
+    print CGI::header( '-status' => '401' );
+    exit 0;
+}
 
-my $patron_image = Koha::Patron::Images->find($borrowernumber);
+my $userenv = C4::Context->userenv;
+my $patron_image = $userenv ? Koha::Patron::Images->find( $userenv->{number} ) : undef;
 
 if ($patron_image) {
     print $query->header(
-- 
2.25.1