1 package Koha::Club::Hold;
3 # Copyright ByWater Solutions 2014
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
26 use Koha::Club::Template::Fields;
28 use base qw(Koha::Object);
30 use Koha::Exceptions::ClubHold;
31 use Koha::Club::Hold::PatronHold;
35 use List::Util 'shuffle';
41 Represents a hold made for every member of club
51 Class (static) method that returns a new Koha::Club::Hold instance
58 # check for mandatory params
59 my @mandatory = ( 'biblio_id', 'club_id' );
60 for my $param (@mandatory) {
61 unless ( defined( $params->{$param} ) ) {
62 Koha::Exceptions::MissingParameter->throw(
63 error => "The $param parameter is mandatory" );
67 my $club = Koha::Clubs->find($params->{club_id});
68 my @enrollments = $club->club_enrollments->as_list;
70 Koha::Exceptions::ClubHold::NoPatrons->throw()
71 unless scalar @enrollments;
73 my $biblio = Koha::Biblios->find($params->{biblio_id});
76 club_id => $params->{club_id},
77 biblio_id => $params->{biblio_id},
78 item_id => $params->{item_id}
81 my $club_hold = Koha::Club::Hold->new($club_params)->store();
83 @enrollments = shuffle(@enrollments);
85 foreach my $enrollment (@enrollments) {
86 my $patron_id = $enrollment->borrowernumber;
87 my $pickup_id = $params->{pickup_library_id};
90 if($params->{default_patron_home}) {
91 my $patron = Koha::Patrons->find($patron_id);
92 my $patron_home = $patron->branchcode;
93 $can_place_hold = $params->{item_id}
94 ? C4::Reserves::CanItemBeReserved( $patron_id, $params->{item_id}, $patron_home )
95 : C4::Reserves::CanBookBeReserved( $patron_id, $params->{biblio_id}, $patron_home );
96 $pickup_id = $patron_home if $can_place_hold->{status} eq 'OK';
97 unless ( $can_place_hold->{status} eq 'OK' ) {
98 warn "Patron(".$patron_id.") Hold cannot be placed with patron's homebranch ($patron_home). Reason: " . $can_place_hold->{status};
102 unless ( defined $can_place_hold && $can_place_hold->{status} eq 'OK' ) {
103 $can_place_hold = $params->{item_id}
104 ? C4::Reserves::CanItemBeReserved( $patron_id, $params->{item_id}, $pickup_id )
105 : C4::Reserves::CanBookBeReserved( $patron_id, $params->{biblio_id}, $pickup_id );
108 unless ( $can_place_hold->{status} eq 'OK' ) {
109 warn "Patron(".$patron_id.") Hold cannot be placed. Reason: " . $can_place_hold->{status};
110 Koha::Club::Hold::PatronHold->new({
111 patron_id => $patron_id,
112 club_hold_id => $club_hold->id,
113 error_code => $can_place_hold->{status}
118 my $priority = C4::Reserves::CalculatePriority($params->{biblio_id});
120 my $hold_id = C4::Reserves::AddReserve(
122 branchcode => $pickup_id,
123 borrowernumber => $patron_id,
124 biblionumber => $params->{biblio_id},
125 priority => $priority,
126 expiration_date => $params->{expiration_date},
127 notes => $params->{notes},
128 title => $biblio->title,
129 itemnumber => $params->{item_id},
130 found => undef, # TODO: Why not?
131 itemtype => $params->{item_type},
135 Koha::Club::Hold::PatronHold->new({
136 patron_id => $patron_id,
137 club_hold_id => $club_hold->id,
141 warn "Could not create hold for Patron(".$patron_id.")";
142 Koha::Club::Hold::PatronHold->new({
143 patron_id => $patron_id,
144 club_hold_id => $club_hold->id,
145 error_message => "Could not create hold for Patron(".$patron_id.")"
155 =head3 to_api_mapping
157 This method returns the mapping for representing a Koha::Club::Hold object
168 =head2 Internal methods
180 Agustin Moyano <agustinmoyano@theke.io>