View | Details | Raw Unified | Return to bug 22454
Collapse All | Expand All

(-)a/Koha/Item.pm (-1 / +35 lines)
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
- 

Return to bug 22454