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 |
- |
|
|