Lines 667-672
sub CanBookBeIssued {
Link Here
|
667 |
my ( $borrower, $barcode, $duedate, $inprocess, $ignore_reserves ) = @_; |
667 |
my ( $borrower, $barcode, $duedate, $inprocess, $ignore_reserves ) = @_; |
668 |
my %needsconfirmation; # filled with problems that needs confirmations |
668 |
my %needsconfirmation; # filled with problems that needs confirmations |
669 |
my %issuingimpossible; # filled with problems that causes the issue to be IMPOSSIBLE |
669 |
my %issuingimpossible; # filled with problems that causes the issue to be IMPOSSIBLE |
|
|
670 |
my %alerts; # filled with messages that shouldn't stop issuing, but the librarian should be aware of. |
671 |
|
670 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
672 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
671 |
my $issue = GetItemIssue($item->{itemnumber}); |
673 |
my $issue = GetItemIssue($item->{itemnumber}); |
672 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
674 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
Lines 849-855
sub CanBookBeIssued {
Link Here
|
849 |
$issuingimpossible{RESTRICTED} = 1; |
851 |
$issuingimpossible{RESTRICTED} = 1; |
850 |
} |
852 |
} |
851 |
if ( $item->{'itemlost'} ) { |
853 |
if ( $item->{'itemlost'} ) { |
852 |
$needsconfirmation{ITEM_LOST} = GetAuthorisedValueByCode( 'LOST', $item->{'itemlost'} ); |
854 |
$alerts{ITEM_LOST} = GetAuthorisedValueByCode( 'LOST', $item->{'itemlost'} ); |
853 |
} |
855 |
} |
854 |
if ( C4::Context->preference("IndependantBranches") ) { |
856 |
if ( C4::Context->preference("IndependantBranches") ) { |
855 |
my $userenv = C4::Context->userenv; |
857 |
my $userenv = C4::Context->userenv; |
Lines 926-932
sub CanBookBeIssued {
Link Here
|
926 |
} |
928 |
} |
927 |
} |
929 |
} |
928 |
} |
930 |
} |
929 |
return ( \%issuingimpossible, \%needsconfirmation ); |
931 |
return ( \%issuingimpossible, \%needsconfirmation, \%alerts ); |
930 |
} |
932 |
} |
931 |
|
933 |
|
932 |
=head2 AddIssue |
934 |
=head2 AddIssue |