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