Lines 61-68
my $borrower_branchcode = $borrower->{branchcode};
Link Here
|
61 |
my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode} ); |
61 |
my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode} ); |
62 |
my @other_branches = ( $library2->{branchcode}, $library3->{branchcode} ); |
62 |
my @other_branches = ( $library2->{branchcode}, $library3->{branchcode} ); |
63 |
my $least_cost_branch_code = pop @other_branches; |
63 |
my $least_cost_branch_code = pop @other_branches; |
64 |
my $itemtype = Koha::ItemTypes->search({ notforloan => 0 })->next->itemtype; |
64 |
my $itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype}; |
65 |
$itemtype or BAIL_OUT("No adequate itemtype"); |
|
|
66 |
|
65 |
|
67 |
#Set up the stage |
66 |
#Set up the stage |
68 |
# Sysprefs and cost matrix |
67 |
# Sysprefs and cost matrix |
69 |
- |
|
|