package Koha::IssuingRules;
# Copyright Vaara-kirjastot 2015
+# Copyright Koha Development Team 2016
#
# This file is part of Koha.
#
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use Modern::Perl;
+
use Koha::Database;
+
+use Koha::IssuingRule;
+
use base qw(Koha::Objects);
=head1 NAME
-Koha::IssuingRules - Koha IssuingRules object set class
+Koha::IssuingRules - Koha IssuingRule Object set class
=head1 API
=cut
-=head3 type
+sub get_effective_issuing_rule {
+ my ( $self, $params ) = @_;
+
+ my $default = '*';
+ my $categorycode = $params->{categorycode};
+ my $itemtype = $params->{itemtype};
+ my $branchcode = $params->{branchcode};
+
+ my $search_categorycode = $default;
+ my $search_itemtype = $default;
+ my $search_branchcode = $default;
+
+ if ($categorycode) {
+ $search_categorycode = { 'in' => [ $categorycode, $default ] };
+ }
+ if ($itemtype) {
+ $search_itemtype = { 'in' => [ $itemtype, $default ] };
+ }
+ if ($branchcode) {
+ $search_branchcode = { 'in' => [ $branchcode, $default ] };
+ }
+
+ my $rule = $self->search({
+ categorycode => $search_categorycode,
+ itemtype => $search_itemtype,
+ branchcode => $search_branchcode,
+ }, {
+ order_by => {
+ -desc => ['branchcode', 'categorycode', 'itemtype']
+ },
+ rows => 1,
+ })->single;
+ return $rule;
+}
+
+=head3 get_opacitemholds_policy
+
+my $can_place_a_hold_at_item_level = Koha::IssuingRules->get_opacitemholds_policy( { patron => $patron, item => $item } );
+
+Return 'Y' or 'F' if the patron can place a hold on this item according to the issuing rules
+and the "Item level holds" (opacitemholds).
+Can be 'N' - Don't allow, 'Y' - Allow, and 'F' - Force
=cut
-sub type {
- return 'Issuingrule';
+sub get_opacitemholds_policy {
+ my ( $class, $params ) = @_;
+
+ my $item = $params->{item};
+ my $patron = $params->{patron};
+
+ return unless $item or $patron;
+
+ my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule(
+ {
+ categorycode => $patron->categorycode,
+ itemtype => $item->effective_itemtype,
+ branchcode => $item->homebranch,
+ }
+ );
+
+ return $issuing_rule ? $issuing_rule->opacitemholds : undef;
}
-=head3 object_class
+=head3 get_onshelfholds_policy
+
+ my $on_shelf_holds = Koha::IssuingRules->get_onshelfholds_policy({ item => $item, patron => $patron });
=cut
+sub get_onshelfholds_policy {
+ my ( $class, $params ) = @_;
+ my $item = $params->{item};
+ my $itemtype = $item->effective_itemtype;
+ my $patron = $params->{patron};
+ my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule(
+ {
+ ( $patron ? ( categorycode => $patron->categorycode ) : () ),
+ itemtype => $itemtype,
+ branchcode => $item->holdingbranch
+ }
+ );
+ return $issuing_rule ? $issuing_rule->onshelfholds : undef;
+}
+
+=head3 type
+
+=cut
+
+sub _type {
+ return 'Issuingrule';
+}
+
sub object_class {
return 'Koha::IssuingRule';
}
-1;
\ No newline at end of file
+1;