Lines 447-453
sub MapItemsToHoldRequests {
Link Here
|
447 |
} |
447 |
} |
448 |
} |
448 |
} |
449 |
else { |
449 |
else { |
450 |
warn "No transport costs for $pickup_branch"; |
450 |
next; |
451 |
} |
451 |
} |
452 |
} |
452 |
} |
453 |
|
453 |
|
Lines 599-605
sub least_cost_branch {
Link Here
|
599 |
|
599 |
|
600 |
# Nothing really spectacular: supply to branch, a list of potential from branches |
600 |
# Nothing really spectacular: supply to branch, a list of potential from branches |
601 |
# and find the minimum from - to value from the transport_cost_matrix |
601 |
# and find the minimum from - to value from the transport_cost_matrix |
602 |
return $from->[0] if @$from == 1; |
602 |
return $from->[0] if ( @$from == 1 && $transport_cost_matrix->{$to}{$from->[0]}->{disable_transfer} != 1 ); |
603 |
|
603 |
|
604 |
# If the pickup library is in the list of libraries to pull from, |
604 |
# If the pickup library is in the list of libraries to pull from, |
605 |
# return that library right away, it is obviously the least costly |
605 |
# return that library right away, it is obviously the least costly |
606 |
- |
|
|