View | Details | Raw Unified | Return to bug 22694
Collapse All | Expand All

(-)a/Koha/Patron/Category.pm (-1 / +19 lines)
Lines 18-23 package Koha::Patron::Category; Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Carp;
20
use Carp;
21
use List::MoreUtils qw(any);
21
22
22
use C4::Members::Messaging;
23
use C4::Members::Messaging;
23
24
Lines 254-259 sub effective_change_password { Link Here
254
        : C4::Context->preference('OpacPasswordChange');
255
        : C4::Context->preference('OpacPasswordChange');
255
}
256
}
256
257
258
=head3 override_hidden_items
259
260
    if ( $patron->category->override_hidden_items ) {
261
        ...
262
    }
263
264
Returns a boolean that if patrons of this category are exempt from the OPACHiddenItems policies
265
266
TODO: Remove on bug 22547
267
268
=cut
269
270
sub override_hidden_items {
271
    my ($self) = @_;
272
    return any { $_ eq $self->categorycode }
273
    split( /\|/, C4::Context->preference('OpacHiddenItemsExceptions') );
274
}
275
257
=head2 Internal methods
276
=head2 Internal methods
258
277
259
=head3 type
278
=head3 type
260
- 

Return to bug 22694