|
Lines 61-68
my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3-
Link Here
|
| 61 |
my @other_branches = ( $library2->{branchcode}, $library3->{branchcode} ); |
61 |
my @other_branches = ( $library2->{branchcode}, $library3->{branchcode} ); |
| 62 |
my $least_cost_branch_code = pop @other_branches; |
62 |
my $least_cost_branch_code = pop @other_branches; |
| 63 |
my @item_types = C4::ItemType->all; |
63 |
my @item_types = C4::ItemType->all; |
| 64 |
my $itemtype = grep { $_->{notforloan} == 1 } @item_types |
64 |
my @for_loan = grep { $_->{notforloan} == 0 } @item_types |
| 65 |
or BAIL_OUT("No adequate itemtype"); |
65 |
or BAIL_OUT("No adequate itemtype"); |
|
|
66 |
my $itemtype = $for_loan[0]->{itemtype}; |
| 66 |
|
67 |
|
| 67 |
#Set up the stage |
68 |
#Set up the stage |
| 68 |
# Sysprefs and cost matrix |
69 |
# Sysprefs and cost matrix |
| 69 |
- |
|
|