1 package C4::HoldsQueue;
3 # Copyright 2011 Catalyst IT
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>.
20 # FIXME: expand perldoc, explain intended logic
27 use C4::Circulation qw( GetTransfers GetBranchItemRule );
28 use Koha::DateUtils qw( dt_from_string );
33 use List::Util qw( shuffle );
34 use List::MoreUtils qw( any );
36 our (@ISA, @EXPORT_OK);
45 UpdateTransportCostMatrix
46 GetPendingHoldRequestsForBib
53 =head2 TransportCostMatrix
55 TransportCostMatrix();
57 Returns Transport Cost Matrix as a hashref <to branch code> => <from branch code> => cost
61 sub TransportCostMatrix {
63 my $ignore_holds_queue_skip_closed = $params->{ignore_holds_queue_skip_closed};
65 my $dbh = C4::Context->dbh;
66 my $transport_costs = $dbh->selectall_arrayref("SELECT * FROM transport_cost",{ Slice => {} });
68 my $today = dt_from_string();
70 my %transport_cost_matrix;
71 foreach (@$transport_costs) {
72 my $from = $_->{frombranch};
73 my $to = $_->{tobranch};
74 my $cost = $_->{cost};
75 my $disabled = $_->{disable_transfer};
76 $transport_cost_matrix{$to}{$from} = {
78 disable_transfer => $disabled
81 if ( !$ignore_holds_queue_skip_closed && C4::Context->preference("HoldsQueueSkipClosed") ) {
82 $calendars->{$from} ||= Koha::Calendar->new( branchcode => $from );
83 $transport_cost_matrix{$to}{$from}{disable_transfer} ||=
84 $calendars->{$from}->is_holiday( $today );
88 return \%transport_cost_matrix;
91 =head2 UpdateTransportCostMatrix
93 UpdateTransportCostMatrix($records);
95 Updates full Transport Cost Matrix table. $records is an arrayref of records.
96 Records: { frombranch => <code>, tobranch => <code>, cost => <figure>, disable_transfer => <0,1> }
100 sub UpdateTransportCostMatrix {
102 my $dbh = C4::Context->dbh;
104 my $sth = $dbh->prepare("INSERT INTO transport_cost (frombranch, tobranch, cost, disable_transfer) VALUES (?, ?, ?, ?)");
106 $dbh->do("DELETE FROM transport_cost");
107 foreach (@$records) {
108 my $cost = $_->{cost};
109 my $from = $_->{frombranch};
110 my $to = $_->{tobranch};
111 if ($_->{disable_transfer}) {
114 elsif ( !defined ($cost) || ($cost !~ m/(0|[1-9][0-9]*)(\.[0-9]*)?/o) ) {
115 warn "Invalid $from -> $to cost $cost - must be a number >= 0, disabling";
117 $_->{disable_transfer} = 1;
119 $sth->execute( $from, $to, $cost, $_->{disable_transfer} ? 1 : 0 );
123 =head2 GetHoldsQueueItems
125 GetHoldsQueueItems($branch);
127 Returns hold queue for a holding branch. If branch is omitted, then whole queue is returned
131 sub GetHoldsQueueItems {
132 my ($branchlimit) = @_;
133 my $dbh = C4::Context->dbh;
135 my @bind_params = ();
136 my $query = q/SELECT tmp_holdsqueue.*, biblio.author, items.ccode, items.itype, biblioitems.itemtype, items.location,
137 items.enumchron, items.cn_sort, biblioitems.publishercode,
138 biblio.copyrightdate, biblio.subtitle, biblio.medium,
139 biblio.part_number, biblio.part_name,
140 biblioitems.publicationyear, biblioitems.pages, biblioitems.size,
141 biblioitems.isbn, biblioitems.editionstatement, items.copynumber
143 JOIN biblio USING (biblionumber)
144 LEFT JOIN biblioitems USING (biblionumber)
145 LEFT JOIN items USING ( itemnumber)
148 $query .=" WHERE tmp_holdsqueue.holdingbranch = ?";
149 push @bind_params, $branchlimit;
151 $query .= " ORDER BY ccode, location, cn_sort, author, title, pickbranch, reservedate";
152 my $sth = $dbh->prepare($query);
153 $sth->execute(@bind_params);
155 while ( my $row = $sth->fetchrow_hashref ){
156 # return the bib-level or item-level itype per syspref
157 if (!C4::Context->preference('item-level_itypes')) {
158 $row->{itype} = $row->{itemtype};
160 delete $row->{itemtype};
171 Top level function that turns reserves into tmp_holdsqueue and hold_fill_targets.
176 my $dbh = C4::Context->dbh;
178 $dbh->do("DELETE FROM tmp_holdsqueue"); # clear the old table for new info
179 $dbh->do("DELETE FROM hold_fill_targets");
182 my $total_requests = 0;
183 my $total_available_items = 0;
184 my $num_items_mapped = 0;
187 my $transport_cost_matrix;
188 my $use_transport_cost_matrix = C4::Context->preference("UseTransportCostMatrix");
189 if ($use_transport_cost_matrix) {
190 $transport_cost_matrix = TransportCostMatrix();
191 unless (keys %$transport_cost_matrix) {
192 warn "UseTransportCostMatrix set to yes, but matrix not populated";
193 undef $transport_cost_matrix;
196 unless ($transport_cost_matrix) {
197 $branches_to_use = load_branches_to_pull_from();
200 my $bibs_with_pending_requests = GetBibsWithPendingHoldRequests();
202 foreach my $biblionumber (@$bibs_with_pending_requests) {
204 my $hold_requests = GetPendingHoldRequestsForBib($biblionumber);
205 my $available_items = GetItemsAvailableToFillHoldRequestsForBib($biblionumber, $branches_to_use);
206 $total_requests += scalar(@$hold_requests);
207 $total_available_items += scalar(@$available_items);
209 my $item_map = MapItemsToHoldRequests($hold_requests, $available_items, $branches_to_use, $transport_cost_matrix);
211 my $item_map_size = scalar(keys %$item_map)
214 $num_items_mapped += $item_map_size;
215 CreatePicklistFromItemMap($item_map);
216 AddToHoldTargetMap($item_map);
217 if (($item_map_size < scalar(@$hold_requests )) and
218 ($item_map_size < scalar(@$available_items))) {
219 # DOUBLE CHECK, but this is probably OK - unfilled item-level requests
221 #warn "unfilled requests for $biblionumber";
222 #warn Dumper($hold_requests), Dumper($available_items), Dumper($item_map);
227 =head2 GetBibsWithPendingHoldRequests
229 my $biblionumber_aref = GetBibsWithPendingHoldRequests();
231 Return an arrayref of the biblionumbers of all bibs
232 that have one or more unfilled hold requests.
236 sub GetBibsWithPendingHoldRequests {
237 my $dbh = C4::Context->dbh;
239 my $bib_query = "SELECT DISTINCT biblionumber
243 AND reservedate <= CURRENT_DATE()
246 my $sth = $dbh->prepare($bib_query);
249 my $biblionumbers = $sth->fetchall_arrayref();
251 return [ map { $_->[0] } @$biblionumbers ];
254 =head2 GetPendingHoldRequestsForBib
256 my $requests = GetPendingHoldRequestsForBib($biblionumber);
258 Returns an arrayref of hashrefs to pending, unfilled hold requests
259 on the bib identified by $biblionumber. The following keys
260 are present in each hashref:
271 The arrayref is sorted in order of increasing priority.
275 sub GetPendingHoldRequestsForBib {
276 my $biblionumber = shift;
278 my $dbh = C4::Context->dbh;
280 my $request_query = "SELECT biblionumber, borrowernumber, itemnumber, priority, reserve_id, reserves.branchcode,
281 reservedate, reservenotes, borrowers.branchcode AS borrowerbranch, itemtype, item_level_hold
283 JOIN borrowers USING (borrowernumber)
284 WHERE biblionumber = ?
287 AND reservedate <= CURRENT_DATE()
290 my $sth = $dbh->prepare($request_query);
291 $sth->execute($biblionumber);
293 my $requests = $sth->fetchall_arrayref({});
298 =head2 GetItemsAvailableToFillHoldRequestsForBib
300 my $available_items = GetItemsAvailableToFillHoldRequestsForBib($biblionumber, $branches_ar);
302 Returns an arrayref of items available to fill hold requests
303 for the bib identified by C<$biblionumber>. An item is available
304 to fill a hold request if and only if:
307 * it is not withdrawn
308 * it is not marked notforloan
309 * it is not currently in transit
311 * it is not sitting on the hold shelf
312 * it is not damaged (unless AllowHoldsOnDamagedItems is on)
316 sub GetItemsAvailableToFillHoldRequestsForBib {
317 my ($biblionumber, $branches_to_use) = @_;
319 my $dbh = C4::Context->dbh;
320 my $items_query = "SELECT itemnumber, homebranch, holdingbranch, itemtypes.itemtype AS itype
323 if (C4::Context->preference('item-level_itypes')) {
324 $items_query .= "LEFT JOIN itemtypes ON (itemtypes.itemtype = items.itype) ";
326 $items_query .= "JOIN biblioitems USING (biblioitemnumber)
327 LEFT JOIN itemtypes USING (itemtype) ";
329 $items_query .= "WHERE items.notforloan = 0
330 AND holdingbranch IS NOT NULL
333 $items_query .= " AND damaged = 0" unless C4::Context->preference('AllowHoldsOnDamagedItems');
334 $items_query .= " AND items.onloan IS NULL
335 AND (itemtypes.notforloan IS NULL OR itemtypes.notforloan = 0)
336 AND itemnumber NOT IN (
339 WHERE biblionumber = ?
340 AND itemnumber IS NOT NULL
341 AND (found IS NOT NULL OR priority = 0)
343 AND items.biblionumber = ?";
345 my @params = ($biblionumber, $biblionumber);
346 if ($branches_to_use && @$branches_to_use) {
347 $items_query .= " AND holdingbranch IN (" . join (",", map { "?" } @$branches_to_use) . ")";
348 push @params, @$branches_to_use;
350 my $sth = $dbh->prepare($items_query);
351 $sth->execute(@params);
353 my $itm = $sth->fetchall_arrayref({});
354 my @items = grep { ! scalar GetTransfers($_->{itemnumber}) } @$itm;
356 my $rule = GetBranchItemRule($_->{homebranch}, $_->{itype});
357 $_->{holdallowed} = $rule->{holdallowed};
358 $_->{hold_fulfillment_policy} = $rule->{hold_fulfillment_policy};
362 =head2 _checkHoldPolicy
364 _checkHoldPolicy($item, $request)
366 check if item agrees with hold policies
370 sub _checkHoldPolicy {
371 my ( $item, $request ) = @_;
373 return 0 unless $item->{holdallowed} ne 'not_allowed';
376 if $item->{holdallowed} eq 'from_home_library'
377 && $item->{homebranch} ne $request->{borrowerbranch};
380 if $item->{'holdallowed'} eq 'from_local_hold_group'
381 && !Koha::Libraries->find( $item->{homebranch} )
382 ->validate_hold_sibling( { branchcode => $request->{borrowerbranch} } );
384 my $hold_fulfillment_policy = $item->{hold_fulfillment_policy};
387 if $hold_fulfillment_policy eq 'holdgroup'
388 && !Koha::Libraries->find( $item->{homebranch} )
389 ->validate_hold_sibling( { branchcode => $request->{branchcode} } );
392 if $hold_fulfillment_policy eq 'homebranch'
393 && $request->{branchcode} ne $item->{$hold_fulfillment_policy};
396 if $hold_fulfillment_policy eq 'holdingbranch'
397 && $request->{branchcode} ne $item->{$hold_fulfillment_policy};
400 if $hold_fulfillment_policy eq 'patrongroup'
401 && !Koha::Libraries->find( $request->{borrowerbranch} )
402 ->validate_hold_sibling( { branchcode => $request->{branchcode} } );
408 =head2 MapItemsToHoldRequests
410 MapItemsToHoldRequests($hold_requests, $available_items, $branches, $transport_cost_matrix)
414 sub MapItemsToHoldRequests {
415 my ($hold_requests, $available_items, $branches_to_use, $transport_cost_matrix) = @_;
417 # handle trival cases
418 return unless scalar(@$hold_requests) > 0;
419 return unless scalar(@$available_items) > 0;
421 # identify item-level requests
422 my %specific_items_requested = map { $_->{itemnumber} => 1 }
423 grep { defined($_->{itemnumber}) }
426 map { $_->{_object} = Koha::Items->find( $_->{itemnumber} ) } @$available_items;
428 map { $libraries->{$_->id} = $_ } Koha::Libraries->search();
430 # group available items by itemnumber
431 my %items_by_itemnumber = map { $_->{itemnumber} => $_ } @$available_items;
433 # items already allocated
434 my %allocated_items = ();
436 # map of items to hold requests
439 # figure out which item-level requests can be filled
440 my $num_items_remaining = scalar(@$available_items);
442 # Look for Local Holds Priority matches first
443 if ( C4::Context->preference('LocalHoldsPriority') ) {
444 my $LocalHoldsPriorityPatronControl =
445 C4::Context->preference('LocalHoldsPriorityPatronControl');
446 my $LocalHoldsPriorityItemControl =
447 C4::Context->preference('LocalHoldsPriorityItemControl');
449 foreach my $request (@$hold_requests) {
450 last if $num_items_remaining == 0;
451 my $patron = Koha::Patrons->find($request->{borrowernumber});
452 next if $patron->category->exclude_from_local_holds_priority;
454 my $local_hold_match;
455 foreach my $item (@$available_items) {
456 next if $item->{_object}->exclude_from_local_holds_priority;
458 next unless _checkHoldPolicy($item, $request);
460 next if $request->{itemnumber} && $request->{itemnumber} != $item->{itemnumber};
462 next unless $item->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
464 my $local_holds_priority_item_branchcode =
465 $item->{$LocalHoldsPriorityItemControl};
467 my $local_holds_priority_patron_branchcode =
468 ( $LocalHoldsPriorityPatronControl eq 'PickupLibrary' )
469 ? $request->{branchcode}
470 : ( $LocalHoldsPriorityPatronControl eq 'HomeLibrary' )
471 ? $request->{borrowerbranch}
475 $local_holds_priority_item_branchcode eq
476 $local_holds_priority_patron_branchcode;
478 if ($local_hold_match) {
479 if ( exists $items_by_itemnumber{ $item->{itemnumber} }
480 and not exists $allocated_items{ $item->{itemnumber} }
481 and not $request->{allocated})
483 $item_map{ $item->{itemnumber} } = {
484 borrowernumber => $request->{borrowernumber},
485 biblionumber => $request->{biblionumber},
486 holdingbranch => $item->{holdingbranch},
487 pickup_branch => $request->{branchcode}
488 || $request->{borrowerbranch},
489 reserve_id => $request->{reserve_id},
490 item_level => $request->{item_level_hold},
491 reservedate => $request->{reservedate},
492 reservenotes => $request->{reservenotes},
494 $allocated_items{ $item->{itemnumber} }++;
495 $request->{allocated} = 1;
496 $num_items_remaining--;
503 foreach my $request (@$hold_requests) {
504 last if $num_items_remaining == 0;
505 next if $request->{allocated};
507 # is this an item-level request?
508 if (defined($request->{itemnumber})) {
509 # fill it if possible; if not skip it
511 exists $items_by_itemnumber{ $request->{itemnumber} }
512 and not exists $allocated_items{ $request->{itemnumber} }
513 and _checkHoldPolicy($items_by_itemnumber{ $request->{itemnumber} }, $request) # Don't fill item level holds that contravene the hold pickup policy at this time
514 and ( !$request->{itemtype} # If hold itemtype is set, item's itemtype must match
515 || $items_by_itemnumber{ $request->{itemnumber} }->{itype} eq $request->{itemtype} )
517 and $items_by_itemnumber{ $request->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } )
522 $item_map{ $request->{itemnumber} } = {
523 borrowernumber => $request->{borrowernumber},
524 biblionumber => $request->{biblionumber},
525 holdingbranch => $items_by_itemnumber{ $request->{itemnumber} }->{holdingbranch},
526 pickup_branch => $request->{branchcode} || $request->{borrowerbranch},
527 reserve_id => $request->{reserve_id},
528 item_level => $request->{item_level_hold},
529 reservedate => $request->{reservedate},
530 reservenotes => $request->{reservenotes},
532 $allocated_items{ $request->{itemnumber} }++;
533 $num_items_remaining--;
536 # it's title-level request that will take up one item
537 $num_items_remaining--;
541 # group available items by branch
542 my %items_by_branch = ();
543 foreach my $item (@$available_items) {
544 next unless $item->{holdallowed} ne 'not_allowed';
546 push @{ $items_by_branch{ $item->{holdingbranch} } }, $item
547 unless exists $allocated_items{ $item->{itemnumber} };
549 return \%item_map unless keys %items_by_branch;
551 # now handle the title-level requests
552 $num_items_remaining = scalar(@$available_items) - scalar(keys %allocated_items);
554 foreach my $request (@$hold_requests) {
555 last if $num_items_remaining == 0;
556 next if $request->{allocated};
557 next if defined($request->{itemnumber}); # already handled these
559 # look for local match first
560 my $pickup_branch = $request->{branchcode} || $request->{borrowerbranch};
561 my ($itemnumber, $holdingbranch);
563 my $holding_branch_items = $items_by_branch{$pickup_branch};
564 if ( $holding_branch_items ) {
565 foreach my $item (@$holding_branch_items) {
566 next unless $items_by_itemnumber{ $item->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
569 $request->{borrowerbranch} eq $item->{homebranch}
570 && _checkHoldPolicy($item, $request) # Don't fill item level holds that contravene the hold pickup policy at this time
571 && ( !$request->{itemtype} # If hold itemtype is set, item's itemtype must match
572 || ( $request->{itemnumber} && ( $items_by_itemnumber{ $request->{itemnumber} }->{itype} eq $request->{itemtype} ) ) )
575 $itemnumber = $item->{itemnumber};
579 $holdingbranch = $pickup_branch;
581 elsif ($transport_cost_matrix) {
582 $pull_branches = [keys %items_by_branch];
583 $holdingbranch = least_cost_branch( $pickup_branch, $pull_branches, $transport_cost_matrix );
584 if ( $holdingbranch ) {
586 my $holding_branch_items = $items_by_branch{$holdingbranch};
587 foreach my $item (@$holding_branch_items) {
588 next if $request->{borrowerbranch} ne $item->{homebranch};
589 next unless $items_by_itemnumber{ $item->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
591 # Don't fill item level holds that contravene the hold pickup policy at this time
592 next unless _checkHoldPolicy($item, $request);
594 # If hold itemtype is set, item's itemtype must match
595 next unless ( !$request->{itemtype}
596 || $item->{itype} eq $request->{itemtype} );
598 $itemnumber = $item->{itemnumber};
607 unless ($itemnumber) {
608 # not found yet, fall back to basics
609 if ($branches_to_use) {
610 $pull_branches = $branches_to_use;
612 $pull_branches = [keys %items_by_branch];
615 # Try picking items where the home and pickup branch match first
617 foreach my $branch (@$pull_branches) {
618 my $holding_branch_items = $items_by_branch{$branch}
621 $holdingbranch ||= $branch;
622 foreach my $item (@$holding_branch_items) {
623 next if $pickup_branch ne $item->{homebranch};
624 next unless _checkHoldPolicy($item, $request);
625 next unless $items_by_itemnumber{ $item->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
627 # Don't fill item level holds that contravene the hold pickup policy at this time
628 next unless $item->{hold_fulfillment_policy} eq 'any'
629 || $request->{branchcode} eq $item->{ $item->{hold_fulfillment_policy} };
631 # If hold itemtype is set, item's itemtype must match
632 next unless ( !$request->{itemtype}
633 || $item->{itype} eq $request->{itemtype} );
635 $itemnumber = $item->{itemnumber};
636 $holdingbranch = $branch;
641 # Now try items from the least cost branch based on the transport cost matrix or StaticHoldsQueueWeight
642 unless ( $itemnumber || !$holdingbranch) {
643 foreach my $current_item ( @{ $items_by_branch{$holdingbranch} } ) {
644 next unless _checkHoldPolicy($current_item, $request); # Don't fill item level holds that contravene the hold pickup policy at this time
646 # If hold itemtype is set, item's itemtype must match
647 next unless ( !$request->{itemtype}
648 || $current_item->{itype} eq $request->{itemtype} );
650 next unless $items_by_itemnumber{ $current_item->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
652 $itemnumber = $current_item->{itemnumber};
653 last; # quit this loop as soon as we have a suitable item
657 # Now try for items for any item that can fill this hold
658 unless ( $itemnumber ) {
660 foreach my $branch (@$pull_branches) {
661 my $holding_branch_items = $items_by_branch{$branch}
664 foreach my $item (@$holding_branch_items) {
665 # Don't fill item level holds that contravene the hold pickup policy at this time
666 next unless _checkHoldPolicy($item, $request);
668 # If hold itemtype is set, item's itemtype must match
669 next unless ( !$request->{itemtype}
670 || $item->{itype} eq $request->{itemtype} );
672 next unless $items_by_itemnumber{ $item->{itemnumber} }->{_object}->can_be_transferred( { to => $libraries->{ $request->{branchcode} } } );
674 $itemnumber = $item->{itemnumber};
675 $holdingbranch = $branch;
683 my $holding_branch_items = $items_by_branch{$holdingbranch}
684 or die "Have $itemnumber, $holdingbranch, but no items!";
685 @$holding_branch_items = grep { $_->{itemnumber} != $itemnumber } @$holding_branch_items;
686 delete $items_by_branch{$holdingbranch} unless @$holding_branch_items;
688 $item_map{$itemnumber} = {
689 borrowernumber => $request->{borrowernumber},
690 biblionumber => $request->{biblionumber},
691 holdingbranch => $holdingbranch,
692 pickup_branch => $pickup_branch,
693 reserve_id => $request->{reserve_id},
694 item_level => $request->{item_level_hold},
695 reservedate => $request->{reservedate},
696 reservenotes => $request->{reservenotes},
698 $num_items_remaining--;
704 =head2 CreatePickListFromItemMap
708 sub CreatePicklistFromItemMap {
709 my $item_map = shift;
711 my $dbh = C4::Context->dbh;
713 my $sth_load=$dbh->prepare("
714 INSERT INTO tmp_holdsqueue (biblionumber,itemnumber,barcode,surname,firstname,phone,borrowernumber,
715 cardnumber,reservedate,title, itemcallnumber,
716 holdingbranch,pickbranch,notes, item_level_request)
717 VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
720 foreach my $itemnumber (sort keys %$item_map) {
721 my $mapped_item = $item_map->{$itemnumber};
722 my $biblionumber = $mapped_item->{biblionumber};
723 my $borrowernumber = $mapped_item->{borrowernumber};
724 my $pickbranch = $mapped_item->{pickup_branch};
725 my $holdingbranch = $mapped_item->{holdingbranch};
726 my $reservedate = $mapped_item->{reservedate};
727 my $reservenotes = $mapped_item->{reservenotes};
728 my $item_level = $mapped_item->{item_level};
730 my $item = Koha::Items->find($itemnumber);
731 my $barcode = $item->barcode;
732 my $itemcallnumber = $item->itemcallnumber;
734 my $patron = Koha::Patrons->find( $borrowernumber );
735 my $cardnumber = $patron->cardnumber;
736 my $surname = $patron->surname;
737 my $firstname = $patron->firstname;
738 my $phone = $patron->phone;
740 my $biblio = Koha::Biblios->find( $biblionumber );
741 my $title = $biblio->title;
743 $sth_load->execute($biblionumber, $itemnumber, $barcode, $surname, $firstname, $phone, $borrowernumber,
744 $cardnumber, $reservedate, $title, $itemcallnumber,
745 $holdingbranch, $pickbranch, $reservenotes, $item_level);
749 =head2 AddToHoldTargetMap
753 sub AddToHoldTargetMap {
754 my $item_map = shift;
756 my $dbh = C4::Context->dbh;
759 INSERT INTO hold_fill_targets (borrowernumber, biblionumber, itemnumber, source_branchcode, item_level_request, reserve_id)
760 VALUES (?, ?, ?, ?, ?, ?)
762 my $sth_insert = $dbh->prepare($insert_sql);
764 foreach my $itemnumber (keys %$item_map) {
765 my $mapped_item = $item_map->{$itemnumber};
766 $sth_insert->execute($mapped_item->{borrowernumber}, $mapped_item->{biblionumber}, $itemnumber,
767 $mapped_item->{holdingbranch}, $mapped_item->{item_level}, $mapped_item->{reserve_id});
771 # Helper functions, not part of any interface
774 return $_[0] unless $_[0];
780 sub load_branches_to_pull_from {
783 my $static_branch_list = C4::Context->preference("StaticHoldsQueueWeight");
784 @branches_to_use = map { _trim($_) } split( /,/, $static_branch_list )
785 if $static_branch_list;
788 Koha::Database->new()->schema()->resultset('Branch')
789 ->get_column('branchcode')->all()
790 unless (@branches_to_use);
792 @branches_to_use = shuffle(@branches_to_use)
793 if C4::Context->preference("RandomizeHoldsQueueWeight");
795 my $today = dt_from_string();
796 if ( C4::Context->preference('HoldsQueueSkipClosed') ) {
797 @branches_to_use = grep {
798 !Koha::Calendar->new( branchcode => $_ )
799 ->is_holiday( $today )
803 return \@branches_to_use;
806 sub least_cost_branch {
809 my ($to, $from, $transport_cost_matrix) = @_;
811 # Nothing really spectacular: supply to branch, a list of potential from branches
812 # and find the minimum from - to value from the transport_cost_matrix
813 return $from->[0] if ( @$from == 1 && $transport_cost_matrix->{$to}{$from->[0]}->{disable_transfer} != 1 );
815 # If the pickup library is in the list of libraries to pull from,
816 # return that library right away, it is obviously the least costly
817 return ($to) if any { $_ eq $to } @$from;
819 my ($least_cost, @branch);
821 my $cell = $transport_cost_matrix->{$to}{$_};
822 next if $cell->{disable_transfer};
824 my $cost = $cell->{cost};
825 next unless defined $cost; # XXX should this be reported?
827 unless (defined $least_cost) {
833 next if $cost > $least_cost;
835 if ($cost == $least_cost) {
846 # XXX return a random @branch with minimum cost instead of the first one;
847 # return $branch[0] if @branch == 1;