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>.
25 use Koha::Club::Template::Fields;
27 use base qw(Koha::Object);
29 use Koha::Exceptions::ClubHold;
30 use Koha::Club::Hold::PatronHold;
34 use List::Util qw( shuffle );
40 Represents a hold made for every member of club
50 Class (static) method that returns a new Koha::Club::Hold instance
57 # check for mandatory params
58 my @mandatory = ( 'biblio_id', 'club_id' );
59 for my $param (@mandatory) {
60 unless ( defined( $params->{$param} ) ) {
61 Koha::Exceptions::MissingParameter->throw(
62 error => "The $param parameter is mandatory" );
66 my $club = Koha::Clubs->find($params->{club_id});
67 my @enrollments = $club->club_enrollments->as_list;
69 Koha::Exceptions::ClubHold::NoPatrons->throw()
70 unless scalar @enrollments;
72 my $biblio = Koha::Biblios->find($params->{biblio_id});
75 club_id => $params->{club_id},
76 biblio_id => $params->{biblio_id},
77 item_id => $params->{item_id}
80 my $club_hold = Koha::Club::Hold->new($club_params)->store();
81 $club_hold->discard_changes;
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>