View | Details | Raw Unified | Return to bug 34972
Collapse All | Expand All

(-)a/C4/Reserves.pm (-21 / +3 lines)
Lines 729-760 sub GetOtherReserves { Link Here
729
    my $item = Koha::Items->find($itemnumber);
729
    my $item = Koha::Items->find($itemnumber);
730
    my ( undef, $checkreserves, undef ) = CheckReserves($item);
730
    my ( undef, $checkreserves, undef ) = CheckReserves($item);
731
    if ($checkreserves) {
731
    if ($checkreserves) {
732
733
        #step 2a : case of a reservation at a different branch, return 'transfert' message
732
        if ( $item->holdingbranch ne $checkreserves->{'branchcode'} ) {
734
        if ( $item->holdingbranch ne $checkreserves->{'branchcode'} ) {
733
            $messages->{'transfert'} = $checkreserves->{'branchcode'};
735
            $messages->{'transfert'} = $checkreserves->{'branchcode'};
734
            #minus priorities of others reservs
735
            ModReserveMinusPriority(
736
                $itemnumber,
737
                $checkreserves->{'reserve_id'},
738
            );
739
740
            #launch the subroutine dotransfer
741
            C4::Items::ModItemTransfer(
742
                $itemnumber,
743
                $item->holdingbranch,
744
                $checkreserves->{'branchcode'},
745
                'Reserve'
746
              ),
747
              ;
748
        }
736
        }
749
737
750
     #step 2b : case of a reservation on the same branch, set the waiting status
738
        #step 2b : case of a reservation on the same branch, return 'waiting' message
751
        else {
739
        else {
752
            $messages->{'waiting'} = 1;
740
            $messages->{'waiting'} = 1;
753
            ModReserveMinusPriority(
754
                $itemnumber,
755
                $checkreserves->{'reserve_id'},
756
            );
757
            ModReserveStatus($itemnumber,'W');
758
        }
741
        }
759
742
760
        $nextreservinfo = $checkreserves;
743
        $nextreservinfo = $checkreserves;
761
- 

Return to bug 34972