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