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