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