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

(-)a/C4/Circulation.pm (-10 / +3 lines)
Lines 354-369 sub transferbook { Link Here
354
        my $code =
354
        my $code =
355
            C4::Context->preference("BranchTransferLimitsType") eq 'ccode'
355
            C4::Context->preference("BranchTransferLimitsType") eq 'ccode'
356
            ? $item->ccode
356
            ? $item->ccode
357
            : $item->biblio->biblioitem->itemtype;    # BranchTransferLimitsType is 'ccode' or 'itemtype'
357
            : $item->effective_itemtype;    # BranchTransferLimitsType is 'ccode' or 'itemtype'
358
        if (   C4::Context->preference("item-level_itypes")
358
        if ( !IsBranchTransferAllowed( $tbr, $fbr, $code ) ) {
359
            && C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' )
359
            $messages->{'NotAllowed'} = $fbr . "::" . $tbr . "::" . $code;
360
        {
361
            if ( !IsBranchTransferAllowed( $tbr, $fbr, $item->itype ) ) {
362
                $messages->{'NotAllowed'} = $tbr . "::" . $item->itype;
363
                $dotransfer = 0;
364
            }
365
        } elsif ( !IsBranchTransferAllowed( $tbr, $fbr, $code ) ) {
366
            $messages->{'NotAllowed'} = $tbr . "::" . $code;
367
            $dotransfer = 0;
360
            $dotransfer = 0;
368
        }
361
        }
369
    }
362
    }
(-)a/circ/branchtransfers.pl (-2 / +2 lines)
Lines 206-212 foreach my $code ( keys %$messages ) { Link Here
206
206
207
            # Do we really want a error log message here? --atz
207
            # Do we really want a error log message here? --atz
208
            $err{errnotallowed} = 1;
208
            $err{errnotallowed} = 1;
209
            my ( $tbr, $typecode ) = split( /::/, $messages->{'NotAllowed'} );
209
            my ( $fbr, $tbr, $typecode ) = split( /::/, $messages->{'NotAllowed'} );
210
            $err{fbr}  = $fbr;
210
            $err{tbr}  = $tbr;
211
            $err{tbr}  = $tbr;
211
            $err{code} = $typecode;
212
            $err{code} = $typecode;
212
        } elsif ( $code eq 'WasReturned' ) {
213
        } elsif ( $code eq 'WasReturned' ) {
213
- 

Return to bug 41467