|
Lines 20-25
package Koha::Item;
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 Koha::Database; |
25 |
use Koha::Database; |
| 25 |
use Koha::DateUtils qw( dt_from_string ); |
26 |
use Koha::DateUtils qw( dt_from_string ); |
|
Lines 192-197
sub can_article_request {
Link Here
|
| 192 |
return q{}; |
193 |
return q{}; |
| 193 |
} |
194 |
} |
| 194 |
|
195 |
|
|
|
196 |
=head3 hidden_in_opac |
| 197 |
|
| 198 |
my $bool = $item->hidden_in_opac({ [ rules => $rules ] }) |
| 199 |
|
| 200 |
Returns true if item fields match the hidding criteria defined in $rules. |
| 201 |
Returns false otherwise. |
| 202 |
|
| 203 |
Takes HASHref that can have the following parameters: |
| 204 |
OPTIONAL PARAMETERS: |
| 205 |
$rules : { <field> => [ value_1, ... ], ... } |
| 206 |
|
| 207 |
Note: $rules inherits its structure from the parsed YAML from reading |
| 208 |
the I<OpacHiddenItems> system preference. |
| 209 |
|
| 210 |
=cut |
| 211 |
|
| 212 |
sub hidden_in_opac { |
| 213 |
my ( $self, $params ) = @_; |
| 214 |
|
| 215 |
my $rules = $params->{rules} // {}; |
| 216 |
|
| 217 |
my $hidden_in_opac = 0; |
| 218 |
|
| 219 |
foreach my $field ( keys %{$rules} ) { |
| 220 |
|
| 221 |
if ( any { $self->$field eq $_ } @{ $rules->{$field} } ) { |
| 222 |
$hidden_in_opac = 1; |
| 223 |
last; |
| 224 |
} |
| 225 |
} |
| 226 |
|
| 227 |
return $hidden_in_opac; |
| 228 |
} |
| 229 |
|
| 195 |
=head3 can_be_transferred |
230 |
=head3 can_be_transferred |
| 196 |
|
231 |
|
| 197 |
$item->can_be_transferred({ to => $to_library, from => $from_library }) |
232 |
$item->can_be_transferred({ to => $to_library, from => $from_library }) |
| 198 |
- |
|
|