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
56 my $itemnumber = $params->{item_id};
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();
82 $club_hold->discard_changes;
84 @enrollments = shuffle(@enrollments);
86 foreach my $enrollment (@enrollments) {
87 my $patron_id = $enrollment->borrowernumber;
88 my $pickup_id = $params->{pickup_library_id};
91 my $patron = Koha::Patrons->find($patron_id);
92 my $item = $itemnumber ? Koha::Items->find( $itemnumber ) : undef;
93 if($params->{default_patron_home}) {
94 my $patron_home = $patron->branchcode;
95 $can_place_hold = $itemnumber
96 ? C4::Reserves::CanItemBeReserved( $patron, $item, $patron_home )
97 : C4::Reserves::CanBookBeReserved( $patron_id, $params->{biblio_id}, $patron_home );
98 $pickup_id = $patron_home if $can_place_hold->{status} eq 'OK';
99 unless ( $can_place_hold->{status} eq 'OK' ) {
100 warn "Patron(".$patron_id.") Hold cannot be placed with patron's homebranch ($patron_home). Reason: " . $can_place_hold->{status};
104 unless ( defined $can_place_hold && $can_place_hold->{status} eq 'OK' ) {
105 $can_place_hold = $itemnumber
106 ? C4::Reserves::CanItemBeReserved( $patron, $item, $pickup_id )
107 : C4::Reserves::CanBookBeReserved( $patron_id, $params->{biblio_id}, $pickup_id );
110 unless ( $can_place_hold->{status} eq 'OK' ) {
111 warn "Patron(".$patron_id.") Hold cannot be placed. Reason: " . $can_place_hold->{status};
112 Koha::Club::Hold::PatronHold->new({
113 patron_id => $patron_id,
114 club_hold_id => $club_hold->id,
115 error_code => $can_place_hold->{status}
120 my $priority = C4::Reserves::CalculatePriority($params->{biblio_id});
122 my $hold_id = C4::Reserves::AddReserve(
124 branchcode => $pickup_id,
125 borrowernumber => $patron_id,
126 biblionumber => $params->{biblio_id},
127 priority => $priority,
128 expiration_date => $params->{expiration_date},
129 notes => $params->{notes},
130 title => $biblio->title,
131 itemnumber => $params->{item_id},
132 found => undef, # TODO: Why not?
133 itemtype => $params->{item_type},
137 Koha::Club::Hold::PatronHold->new({
138 patron_id => $patron_id,
139 club_hold_id => $club_hold->id,
143 warn "Could not create hold for Patron(".$patron_id.")";
144 Koha::Club::Hold::PatronHold->new({
145 patron_id => $patron_id,
146 club_hold_id => $club_hold->id,
147 error_message => "Could not create hold for Patron(".$patron_id.")"
157 =head3 to_api_mapping
159 This method returns the mapping for representing a Koha::Club::Hold object
170 =head2 Internal methods
182 Agustin Moyano <agustinmoyano@theke.io>