|
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 |
- |
|
|