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