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