@@ -, +, @@ - Apply the patches - Run: $ kshell k$ prove t/db_dependent/Koha/Patron/Category.t - Sign off :-D --- Koha/Patron/Category.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) --- a/Koha/Patron/Category.pm +++ a/Koha/Patron/Category.pm @@ -18,6 +18,7 @@ package Koha::Patron::Category; use Modern::Perl; use Carp; +use List::MoreUtils qw(any); use C4::Members::Messaging; @@ -254,6 +255,24 @@ sub effective_change_password { : C4::Context->preference('OpacPasswordChange'); } +=head3 override_hidden_items + + if ( $patron->category->override_hidden_items ) { + ... + } + +Returns a boolean that if patrons of this category are exempt from the OPACHiddenItems policies + +TODO: Remove on bug 22547 + +=cut + +sub override_hidden_items { + my ($self) = @_; + return any { $_ eq $self->categorycode } + split( /\|/, C4::Context->preference('OpacHiddenItemsExceptions') ); +} + =head2 Internal methods =head3 type --