|
Lines 564-574
sub debug {
Link Here
|
| 564 |
# warn @_; |
564 |
# warn @_; |
| 565 |
} |
565 |
} |
| 566 |
|
566 |
|
|
|
567 |
sub _trim { |
| 568 |
return $_[0] unless $_[0]; |
| 569 |
$_[0] =~ s/^\s+//; |
| 570 |
$_[0] =~ s/\s+$//; |
| 571 |
$_[0]; |
| 572 |
} |
| 573 |
|
| 567 |
sub load_branches_to_pull_from { |
574 |
sub load_branches_to_pull_from { |
| 568 |
my $static_branch_list = C4::Context->preference("StaticHoldsQueueWeight") |
575 |
my $static_branch_list = C4::Context->preference("StaticHoldsQueueWeight") |
| 569 |
or return; |
576 |
or return; |
| 570 |
|
577 |
|
| 571 |
my @branches_to_use = map { s/^\s+//; s/\s+$//; $_; } split /,/, $static_branch_list; |
578 |
my @branches_to_use = map _trim($_), split /,/, $static_branch_list; |
| 572 |
|
579 |
|
| 573 |
@branches_to_use = shuffle(@branches_to_use) if C4::Context->preference("RandomizeHoldsQueueWeight"); |
580 |
@branches_to_use = shuffle(@branches_to_use) if C4::Context->preference("RandomizeHoldsQueueWeight"); |
| 574 |
|
581 |
|
|
Lines 590-595
sub least_cost_branch {
Link Here
|
| 590 |
next if $cell->{disable_transfer}; |
597 |
next if $cell->{disable_transfer}; |
| 591 |
|
598 |
|
| 592 |
my $cost = $cell->{cost}; |
599 |
my $cost = $cell->{cost}; |
|
|
600 |
next unless defined $cost; # XXX should this be reported? |
| 593 |
|
601 |
|
| 594 |
unless (defined $least_cost) { |
602 |
unless (defined $least_cost) { |
| 595 |
$least_cost = $cost; |
603 |
$least_cost = $cost; |
| 596 |
- |
|
|