Lines 32-44
use C4::Auth;
Link Here
|
32 |
use C4::Serials; |
32 |
use C4::Serials; |
33 |
use C4::Members; # to use GetMember |
33 |
use C4::Members; # to use GetMember |
34 |
use C4::Search; # enabled_staff_search_views |
34 |
use C4::Search; # enabled_staff_search_views |
35 |
use C4::Members qw/GetHideLostItemsPreference/; |
|
|
36 |
use C4::Reserves qw(GetReservesFromBiblionumber); |
35 |
use C4::Reserves qw(GetReservesFromBiblionumber); |
37 |
|
36 |
|
38 |
use Koha::Acquisition::Bookseller; |
37 |
use Koha::Acquisition::Bookseller; |
39 |
use Koha::AuthorisedValues; |
38 |
use Koha::AuthorisedValues; |
40 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
41 |
use Koha::Items; |
40 |
use Koha::Items; |
|
|
41 |
use Koha::Patrons; |
42 |
|
42 |
|
43 |
my $query=new CGI; |
43 |
my $query=new CGI; |
44 |
|
44 |
|
Lines 93-101
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
Link Here
|
93 |
my $fw = GetFrameworkCode($biblionumber); |
93 |
my $fw = GetFrameworkCode($biblionumber); |
94 |
my @all_items= GetItemsInfo($biblionumber); |
94 |
my @all_items= GetItemsInfo($biblionumber); |
95 |
my @items; |
95 |
my @items; |
|
|
96 |
my $patron = Koha::Patrons->find( $loggedinuser ); |
96 |
for my $itm (@all_items) { |
97 |
for my $itm (@all_items) { |
97 |
push @items, $itm unless ( $itm->{itemlost} && |
98 |
push @items, $itm unless ( $itm->{itemlost} && |
98 |
GetHideLostItemsPreference($loggedinuser) && |
99 |
$patron->category->hidelostitems && |
99 |
!$showallitems && |
100 |
!$showallitems && |
100 |
($itemnumber != $itm->{itemnumber})); |
101 |
($itemnumber != $itm->{itemnumber})); |
101 |
} |
102 |
} |