|
Lines 82-95
if ( ! $record ) {
Link Here
|
| 82 |
my @all_items = GetItemsInfo($biblionumber); |
82 |
my @all_items = GetItemsInfo($biblionumber); |
| 83 |
my @items2hide; |
83 |
my @items2hide; |
| 84 |
if (scalar @all_items >= 1) { |
84 |
if (scalar @all_items >= 1) { |
|
|
85 |
my $borrowernumber; |
| 85 |
my $borcat; |
86 |
my $borcat; |
|
|
87 |
if (C4::Context->userenv) { |
| 88 |
$borrowernumber = C4::Context->userenv->{'number'}; |
| 89 |
} |
| 86 |
if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { |
90 |
if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { |
| 87 |
|
91 |
|
| 88 |
# we need to fetch the borrower info here, so we can pass the category |
92 |
# we need to fetch the borrower info here, so we can pass the category |
| 89 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
93 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
| 90 |
$borcat = $borrower->{categorycode}; |
94 |
$borcat = $borrower->{categorycode}; |
| 91 |
} |
95 |
} |
| 92 |
push @items2hide, GetHiddenItemnumbers({ items => \@all_items, borcat => $botcat }); |
96 |
push @items2hide, GetHiddenItemnumbers({ items => \@all_items, borcat => $borcat }); |
| 93 |
|
97 |
|
| 94 |
if (scalar @items2hide == scalar @all_items ) { |
98 |
if (scalar @items2hide == scalar @all_items ) { |
| 95 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
99 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
| 96 |
- |
|
|