|
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 |
} |