|
Lines 18-24
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use CGI qw ( -utf8 ); |
20 |
use CGI qw ( -utf8 ); |
| 21 |
use List::Util qw/none/; # well just one :) |
|
|
| 22 |
|
21 |
|
| 23 |
use C4::Koha; |
22 |
use C4::Koha; |
| 24 |
use C4::Biblio; |
23 |
use C4::Biblio; |
|
Lines 100-111
foreach my $biblionumber ( @bibs ) {
Link Here
|
| 100 |
# copy the visible ones into the items array. |
99 |
# copy the visible ones into the items array. |
| 101 |
my @items; |
100 |
my @items; |
| 102 |
foreach my $item (@all_items) { |
101 |
foreach my $item (@all_items) { |
| 103 |
if ( none { $item->{itemnumber} ne $_ } @hidden_items ) { |
102 |
|
|
|
103 |
# next if item is hidden |
| 104 |
next if grep { $item->{itemnumber} eq $_ } @hidden_items ; |
| 105 |
|
| 104 |
my $reserve_status = C4::Reserves::GetReserveStatus($item->{itemnumber}); |
106 |
my $reserve_status = C4::Reserves::GetReserveStatus($item->{itemnumber}); |
| 105 |
if( $reserve_status eq "Waiting"){ $item->{'waiting'} = 1; } |
107 |
if( $reserve_status eq "Waiting"){ $item->{'waiting'} = 1; } |
| 106 |
if( $reserve_status eq "Reserved"){ $item->{'onhold'} = 1; } |
108 |
if( $reserve_status eq "Reserved"){ $item->{'onhold'} = 1; } |
| 107 |
push @items, $item; |
109 |
push @items, $item; |
| 108 |
} |
|
|
| 109 |
} |
110 |
} |
| 110 |
|
111 |
|
| 111 |
my $hasauthors = 0; |
112 |
my $hasauthors = 0; |
| 112 |
- |
|
|