From c0f44c93fd6c1f3e1c528250e5e08d3ea9e0085c Mon Sep 17 00:00:00 2001 From: Martin Renvoize 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 Signed-off-by: Tomas Cohen Arazi Signed-off-by: Marcel de Rooy Signed-off-by: Lucas Gass (cherry picked from commit 4825fd5d82241631745016e1dfbfe75e77138e7a) --- 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