View | Details | Raw Unified | Return to bug 23530
Collapse All | Expand All

(-)a/opac/opac-basket.pl (-4 / +4 lines)
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
- 

Return to bug 23530