}
}
else {
- warn "No transport costs for $pickup_branch";
+ next;
}
}
my $holding_branch_items = $items_by_branch{$branch}
or next;
- $holdingbranch ||= $branch;
foreach my $item (@$holding_branch_items) {
next if ( $item->{holdallowed} == 1 && $item->{homebranch} ne $request->{borrowerbranch} );
# Nothing really spectacular: supply to branch, a list of potential from branches
# and find the minimum from - to value from the transport_cost_matrix
- return $from->[0] if @$from == 1;
+ return $from->[0] if ( @$from == 1 && $transport_cost_matrix->{$to}{$from->[0]}->{disable_transfer} != 1 );
# If the pickup library is in the list of libraries to pull from,
# return that library right away, it is obviously the least costly