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 => 1 })->next; |
64 |
my $itemtype = Koha::ItemTypes->search({ notforloan => 0 })->next->itemtype; |
65 |
$itemtype or BAIL_OUT("No adequate itemtype"); #FIXME Should be $itemtype = $itemtype->itemtype |
65 |
$itemtype or BAIL_OUT("No adequate itemtype"); |
66 |
|
66 |
|
67 |
#Set up the stage |
67 |
#Set up the stage |
68 |
# Sysprefs and cost matrix |
68 |
# Sysprefs and cost matrix |
69 |
- |
|
|