Lines 141-147
BEGIN {
Link Here
|
141 |
IsItemOnHoldAndFound |
141 |
IsItemOnHoldAndFound |
142 |
|
142 |
|
143 |
GetMaxPatronHoldsForRecord |
143 |
GetMaxPatronHoldsForRecord |
144 |
GetBorrowersToSatisfyHold |
|
|
145 |
); |
144 |
); |
146 |
@EXPORT_OK = qw( MergeHolds ); |
145 |
@EXPORT_OK = qw( MergeHolds ); |
147 |
} |
146 |
} |
Lines 255-274
sub AddReserve {
Link Here
|
255 |
|
254 |
|
256 |
# Send email to borrowers asking to return item whenever a hold is placed on it |
255 |
# Send email to borrowers asking to return item whenever a hold is placed on it |
257 |
if (C4::Context->preference("NotifyToReturnItemWhenHoldIsPlaced")) { |
256 |
if (C4::Context->preference("NotifyToReturnItemWhenHoldIsPlaced")) { |
258 |
my @borrowers = GetBorrowersToSatisfyHold($hold); |
257 |
my @borrowers = $hold->borrowers_to_satisfy(); |
259 |
foreach my $borrower (@borrowers) { |
258 |
foreach my $borrower (@borrowers) { |
260 |
if ( !$borrower->{email} ) { |
259 |
if ( !$borrower->email ) { |
261 |
next; |
260 |
next; |
262 |
} |
261 |
} |
263 |
|
262 |
|
264 |
my $library = Koha::Libraries->find($borrower->{branchcode})->unblessed; |
263 |
my $library = Koha::Libraries->find($borrower->branchcode)->unblessed; |
265 |
if ( my $letter = C4::Letters::GetPreparedLetter ( |
264 |
if ( my $letter = C4::Letters::GetPreparedLetter ( |
266 |
module => 'reserves', |
265 |
module => 'reserves', |
267 |
letter_code => 'HOLDPLACED_CONTACT', |
266 |
letter_code => 'HOLDPLACED_CONTACT', |
268 |
branchcode => $branch, |
267 |
branchcode => $branch, |
269 |
tables => { |
268 |
tables => { |
270 |
'branches' => $library, |
269 |
'branches' => $library, |
271 |
'borrowers' => $borrower, |
270 |
'borrowers' => $borrower->unblessed, |
272 |
'biblio' => $biblionumber, |
271 |
'biblio' => $biblionumber, |
273 |
'biblioitems' => $biblionumber, |
272 |
'biblioitems' => $biblionumber, |
274 |
'items' => $checkitem, |
273 |
'items' => $checkitem, |
Lines 279-288
sub AddReserve {
Link Here
|
279 |
|
278 |
|
280 |
C4::Letters::EnqueueLetter( |
279 |
C4::Letters::EnqueueLetter( |
281 |
{ letter => $letter, |
280 |
{ letter => $letter, |
282 |
borrowernumber => $borrower->{borrowernumber}, |
281 |
borrowernumber => $borrower->borrowernumber, |
283 |
message_transport_type => 'email', |
282 |
message_transport_type => 'email', |
284 |
from_address => $admin_email_address, |
283 |
from_address => $admin_email_address, |
285 |
to_address => $borrower->{email}, |
284 |
to_address => $borrower->email, |
286 |
} |
285 |
} |
287 |
); |
286 |
); |
288 |
} |
287 |
} |
Lines 2202-2270
sub GetHoldRule {
Link Here
|
2202 |
return $sth->fetchrow_hashref(); |
2201 |
return $sth->fetchrow_hashref(); |
2203 |
} |
2202 |
} |
2204 |
|
2203 |
|
2205 |
=head2 GetBorrowersToSatisfyHold |
|
|
2206 |
|
2207 |
my @borrowers = GetBorrowersToSatisfyHold( $hold ); |
2208 |
|
2209 |
Returns borrowers who can return item to satisfy a given hold. |
2210 |
|
2211 |
=cut |
2212 |
|
2213 |
sub GetBorrowersToSatisfyHold { |
2214 |
my ( $hold ) = @_; |
2215 |
|
2216 |
my $query = ""; |
2217 |
|
2218 |
if ($hold->item()) { |
2219 |
$query = q{ |
2220 |
SELECT borrowers.borrowernumber |
2221 |
FROM reserves |
2222 |
JOIN items ON reserves.itemnumber = items.itemnumber |
2223 |
JOIN issues ON issues.itemnumber = items.itemnumber |
2224 |
JOIN borrowers ON issues.borrowernumber = borrowers.borrowernumber |
2225 |
WHERE reserves.reserve_id = ? |
2226 |
}; |
2227 |
} |
2228 |
elsif ($hold->biblio()) { |
2229 |
$query = q{ |
2230 |
SELECT borrowers.borrowernumber |
2231 |
FROM reserves |
2232 |
JOIN biblio ON reserves.biblionumber = biblio.biblionumber |
2233 |
JOIN items ON items.biblionumber = biblio.biblionumber |
2234 |
JOIN issues ON issues.itemnumber = items.itemnumber |
2235 |
JOIN borrowers ON issues.borrowernumber = borrowers.borrowernumber |
2236 |
WHERE reserves.reserve_id = ? |
2237 |
}; |
2238 |
} |
2239 |
|
2240 |
my $library = C4::Context->preference("NotifyToReturnItemFromLibrary"); |
2241 |
my $dbh = C4::Context->dbh; |
2242 |
my $sth; |
2243 |
|
2244 |
if ($library eq 'RequestorLibrary') { |
2245 |
$query .= " AND borrowers.branchcode = ?"; |
2246 |
$sth = $dbh->prepare( $query ); |
2247 |
$sth->execute( $hold->id(), $hold->borrower()->branchcode ); |
2248 |
} |
2249 |
elsif ($library eq 'ItemHomeLibrary') { |
2250 |
$query .= " AND items.homebranch = ?"; |
2251 |
$sth = $dbh->prepare( $query ); |
2252 |
$sth->execute( $hold->id(), $hold->borrower()->branchcode ); |
2253 |
} |
2254 |
else { |
2255 |
$sth = $dbh->prepare( $query ); |
2256 |
$sth->execute( $hold->id() ); |
2257 |
} |
2258 |
|
2259 |
my @results = (); |
2260 |
while ( my $data = $sth->fetchrow_hashref ) { |
2261 |
my $borrower = C4::Members::GetMember(borrowernumber => $data->{borrowernumber}); |
2262 |
push( @results, $borrower ); |
2263 |
} |
2264 |
|
2265 |
return @results; |
2266 |
} |
2267 |
|
2268 |
=head1 AUTHOR |
2204 |
=head1 AUTHOR |
2269 |
|
2205 |
|
2270 |
Koha Development Team <http://koha-community.org/> |
2206 |
Koha Development Team <http://koha-community.org/> |