From 2056ab52bb6ad37b7bd1bf81a6e0dffbb8756537 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Tue, 19 Nov 2019 14:11:34 +0000
Subject: [PATCH] Bug 23634: Add is_superlibrarian method to Koha::Patron

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 Koha/Patron.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index 5436ccc448..42bd0886e5 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -1361,6 +1361,19 @@ sub has_permission {
     return C4::Auth::haspermission( $self->userid, $flagsrequired );
 }
 
+=head3 is_superlibrarian
+
+  my $is_superlibrarian = $patron->is_superlibrarian;
+
+Return true if the patron is a superlibrarian.
+
+=cut
+
+sub is_superlibrarian {
+    my ($self) = @_;
+    return $self->has_permission( { superlibrarian => 1 } );
+}
+
 =head3 is_adult
 
 my $is_adult = $patron->is_adult
-- 
2.39.5