Lines 171-177
if ( $query->param('reserve_id') && $op eq 'cud-affect_reserve') {
Link Here
|
171 |
ModReserveAffect( $itemnumber, $borrowernumber, $diffBranchSend, $reserve_id, $desk_id ); |
171 |
ModReserveAffect( $itemnumber, $borrowernumber, $diffBranchSend, $reserve_id, $desk_id ); |
172 |
|
172 |
|
173 |
if ($diffBranchSend) { |
173 |
if ($diffBranchSend) { |
174 |
ModItemTransfer( $itemnumber, $userenv_branch, $diffBranchSend, 'Reserve' ); |
174 |
my $tobranch = Koha::Libraries->find( $reserve->{branchcode} ); |
|
|
175 |
# Add transfer, enqueue if one is already in the queue, and immediately set to in transit |
176 |
my $transfer = $item->request_transfer( { to => $tobranch, reason => 'Reserve', enqueue => 1 } ); |
177 |
$transfer->transit; |
175 |
} |
178 |
} |
176 |
} |
179 |
} |
177 |
# check if we have other reserves for this document, if we have a result send the message of transfer |
180 |
# check if we have other reserves for this document, if we have a result send the message of transfer |
Lines 612-618
if ( $messages->{'ResFound'} ) {
Link Here
|
612 |
ModReserveAffect( $itemnumber, $reserve->{borrowernumber}, $diffBranchSend, $reserve->{reserve_id}, $desk_id ); |
615 |
ModReserveAffect( $itemnumber, $reserve->{borrowernumber}, $diffBranchSend, $reserve->{reserve_id}, $desk_id ); |
613 |
|
616 |
|
614 |
if ($diffBranchSend) { |
617 |
if ($diffBranchSend) { |
615 |
ModItemTransfer( $itemnumber, $item->holdingbranch, $reserve->{branchcode}, 'Reserve' ); |
618 |
my $tobranch = Koha::Libraries->find( $reserve->{branchcode} ); |
|
|
619 |
# Add transfer, enqueue if one is already in the queue, and immediately set to in transit |
620 |
my $transfer = $item->request_transfer( { to => $tobranch, reason => 'Reserve', enqueue => 1 } ); |
621 |
$transfer->transit; |
616 |
} |
622 |
} |
617 |
|
623 |
|
618 |
$template->param( |
624 |
$template->param( |
619 |
- |
|
|