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);
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
(
95 branchcode
=> $params->{pickup_library_id
},
96 borrowernumber
=> $patron_id,
97 biblionumber
=> $params->{biblio_id
},
98 priority
=> $priority,
99 expiration_date
=> $params->{expiration_date
},
100 notes
=> $params->{notes
},
101 title
=> $biblio->title,
102 itemnumber
=> $params->{item_id
},
103 found
=> undef, # TODO: Why not?
104 itemtype
=> $params->{item_type
},
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.")"
129 =head3 to_api_mapping
131 This method returns the mapping for representing a Koha::Club::Hold object
138 id
=> 'club_hold_id',
139 club_id
=> 'club_id',
140 biblio_id
=> 'biblio_id',
145 =head2 Internal methods
157 Agustin Moyano <agustinmoyano@theke.io>