Lines 36-42
use C4::Message;
Link Here
|
36 |
use C4::Debug; |
36 |
use C4::Debug; |
37 |
use C4::Branch; # GetBranches |
37 |
use C4::Branch; # GetBranches |
38 |
use C4::Log; # logaction |
38 |
use C4::Log; # logaction |
39 |
use C4::Koha qw(GetAuthorisedValueByCode); |
39 |
use C4::Koha qw( |
|
|
40 |
GetAuthorisedValueByCode |
41 |
GetAuthValCode |
42 |
GetKohaAuthorisedValueLib |
43 |
); |
40 |
use C4::Overdues qw(CalcFine UpdateFine); |
44 |
use C4::Overdues qw(CalcFine UpdateFine); |
41 |
use Algorithm::CheckDigits; |
45 |
use Algorithm::CheckDigits; |
42 |
|
46 |
|
Lines 835-842
sub CanBookBeIssued {
Link Here
|
835 |
{ |
839 |
{ |
836 |
if(!C4::Context->preference("AllowNotForLoanOverride")){ |
840 |
if(!C4::Context->preference("AllowNotForLoanOverride")){ |
837 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
841 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
|
|
842 |
$issuingimpossible{item_notforloan} = $item->{'notforloan'}; |
838 |
}else{ |
843 |
}else{ |
839 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
844 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
|
|
845 |
$needsconfirmation{item_notforloan} = $item->{'notforloan'}; |
840 |
} |
846 |
} |
841 |
} |
847 |
} |
842 |
else { |
848 |
else { |
Lines 850-865
sub CanBookBeIssued {
Link Here
|
850 |
if ($notforloan->{'notforloan'}) { |
856 |
if ($notforloan->{'notforloan'}) { |
851 |
if (!C4::Context->preference("AllowNotForLoanOverride")) { |
857 |
if (!C4::Context->preference("AllowNotForLoanOverride")) { |
852 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
858 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
|
|
859 |
$issuingimpossible{itemtype_notforloan} = $item->{'itype'}; |
853 |
} else { |
860 |
} else { |
854 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
861 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
|
|
862 |
$needsconfirmation{itemtype_notforloan} = $item->{'itype'}; |
855 |
} |
863 |
} |
856 |
} |
864 |
} |
857 |
} |
865 |
} |
858 |
elsif ($biblioitem->{'notforloan'} == 1){ |
866 |
elsif ($biblioitem->{'notforloan'} == 1){ |
859 |
if (!C4::Context->preference("AllowNotForLoanOverride")) { |
867 |
if (!C4::Context->preference("AllowNotForLoanOverride")) { |
860 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
868 |
$issuingimpossible{NOT_FOR_LOAN} = 1; |
|
|
869 |
$issuingimpossible{itemtype_notforloan} = $biblioitem->{'itemtype'}; |
861 |
} else { |
870 |
} else { |
862 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
871 |
$needsconfirmation{NOT_FOR_LOAN_FORCING} = 1; |
|
|
872 |
$needsconfirmation{itemtype_notforloan} = $biblioitem->{'itemtype'}; |
863 |
} |
873 |
} |
864 |
} |
874 |
} |
865 |
} |
875 |
} |