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 under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 use Koha::Club::Template::Fields;
28 use base qw(Koha::Object);
29 use Koha::Exceptions::ClubHold;
30 use Koha::Club::Hold::PatronHold;
33 use List::Util 'shuffle';
39 Represents a hold made for every member of club
49 Class (static) method that returns a new Koha::Club::Hold instance
56 throw Koha::Exceptions::ClubHold unless $params->{club_id} && $params->{biblio_id};
57 my $club = Koha::Clubs->find($params->{club_id});
58 my @enrollments = $club->club_enrollments->as_list;
59 throw Koha::Exceptions::ClubHold::NoPatrons() unless scalar @enrollments;
61 my $biblio = Koha::Biblios->find($params->{biblio_id});
64 club_id => $params->{club_id},
65 biblio_id => $params->{biblio_id},
66 item_id => $params->{item_id}
69 my $club_hold = Koha::Club::Hold->new($club_params)->store();
71 @enrollments = shuffle(@enrollments);
73 foreach my $enrollment (@enrollments) {
74 my $patron_id = $enrollment->borrowernumber;
78 ? C4::Reserves::CanItemBeReserved( $patron_id, $params->{club_id} )
79 : C4::Reserves::CanBookBeReserved( $patron_id, $params->{biblio_id} );
81 unless ( $can_place_hold->{status} eq 'OK' ) {
82 warn "Patron(".$patron_id.") Hold cannot be placed. Reason: " . $can_place_hold->{status};
83 Koha::Club::Hold::PatronHold->new({
84 patron_id => $patron_id,
85 club_hold_id => $club_hold->id,
86 error_code => $can_place_hold->{status}
91 my $priority = C4::Reserves::CalculatePriority($params->{biblio_id});
93 my $hold_id = C4::Reserves::AddReserve(
94 $params->{pickup_library_id},
97 undef, # $bibitems param is unused
99 undef, # hold date, we don't allow it currently
100 $params->{expiration_date},
104 undef, # TODO: Why not?
108 Koha::Club::Hold::PatronHold->new({
109 patron_id => $patron_id,
110 club_hold_id => $club_hold->id,
114 warn "Could not create hold for Patron(".$patron_id.")";
115 Koha::Club::Hold::PatronHold->new({
116 patron_id => $patron_id,
117 club_hold_id => $club_hold->id,
118 error_message => "Could not create hold for Patron(".$patron_id.")"
138 Agustin Moyano <agustinmoyano@theke.io>