|
Lines 20-25
package Koha::Biblio;
Link Here
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Carp; |
22 |
use Carp; |
|
|
23 |
use List::MoreUtils qw(any); |
| 23 |
|
24 |
|
| 24 |
use C4::Biblio qw(); |
25 |
use C4::Biblio qw(); |
| 25 |
|
26 |
|
|
Lines 186-191
sub can_be_transferred {
Link Here
|
| 186 |
return 0; |
187 |
return 0; |
| 187 |
} |
188 |
} |
| 188 |
|
189 |
|
|
|
190 |
=head3 hidden_in_opac |
| 191 |
|
| 192 |
my $bool = $biblio->hidden_in_opac({ [ rules => $rules ] }) |
| 193 |
|
| 194 |
Returns true if the biblio matches the hidding criteria defined in $rules. |
| 195 |
Returns false otherwise. |
| 196 |
|
| 197 |
Takes HASHref that can have the following parameters: |
| 198 |
OPTIONAL PARAMETERS: |
| 199 |
$rules : { <field> => [ value_1, ... ], ... } |
| 200 |
|
| 201 |
Note: $rules inherits its structure from the parsed YAML from reading |
| 202 |
the I<OpacHiddenItems> system preference. |
| 203 |
|
| 204 |
=cut |
| 205 |
|
| 206 |
sub hidden_in_opac { |
| 207 |
my ( $self, $params ) = @_; |
| 208 |
|
| 209 |
my $rules = $params->{rules} // {}; |
| 210 |
|
| 211 |
return !(any { !$_->hidden_in_opac({ rules => $rules }) } $self->items); |
| 212 |
} |
| 213 |
|
| 189 |
=head3 article_request_type |
214 |
=head3 article_request_type |
| 190 |
|
215 |
|
| 191 |
my $type = $biblio->article_request_type( $borrower ); |
216 |
my $type = $biblio->article_request_type( $borrower ); |
| 192 |
- |
|
|