| 
      
            Lines 18-23
          
      
      
        Link Here
      
     | 
  
        
          | 18 | 
           | 
          18 | 
           | 
        
        
          | 19 | 
          use Modern::Perl;  | 
          19 | 
          use Modern::Perl;  | 
        
        
          | 20 | 
          use CGI qw ( -utf8 );  | 
          20 | 
          use CGI qw ( -utf8 );  | 
        
            
               | 
               | 
              21 | 
              use List::MoreUtils qw( uniq );  | 
            
            
              | 22 | 
               | 
            
        
          | 21 | 
          use C4::Auth qw( get_template_and_user );  | 
          23 | 
          use C4::Auth qw( get_template_and_user );  | 
        
        
          | 22 | 
          use C4::Output qw( output_html_with_http_headers );  | 
          24 | 
          use C4::Output qw( output_html_with_http_headers );  | 
        
        
          | 23 | 
          use Koha::BiblioFrameworks;  | 
          25 | 
          use Koha::BiblioFrameworks;  | 
        
  
    | 
      
            Lines 63-69
          if ( $op eq 'list' ) {
      
      
        Link Here
      
     | 
  
        
          | 63 | 
                          { order_by => { -asc => 'created_date' } } | 
          65 | 
                          { order_by => { -asc => 'created_date' } } | 
        
        
          | 64 | 
                      )->as_list;  | 
          66 | 
                      )->as_list;  | 
        
        
          | 65 | 
                      my $recalls_count = scalar @this_bib_recalls;  | 
          67 | 
                      my $recalls_count = scalar @this_bib_recalls;  | 
        
          
            
              | 66 | 
                          my @unique_patrons = do { my %seen; grep { !$seen{$_->patron_id}++ } @this_bib_recalls }; | 
              68 | 
                          my @unique_patrons = uniq @this_bib_recalls ;  | 
            
        
          | 67 | 
                      my $patrons_count = scalar @unique_patrons;  | 
          69 | 
                      my $patrons_count = scalar @unique_patrons;  | 
        
        
          | 68 | 
                      my $first_recall = $this_bib_recalls[0];  | 
          70 | 
                      my $first_recall = $this_bib_recalls[0];  | 
        
        
          | 69 | 
           | 
          71 | 
           | 
        
  
    | 
      
            Lines 93-105
          if ( $op eq 'list' ) {
      
      
        Link Here
      
     | 
  
        
          | 93 | 
                      # don't push data if there are no items available for this recall  | 
          95 | 
                      # don't push data if there are no items available for this recall  | 
        
        
          | 94 | 
           | 
          96 | 
           | 
        
        
          | 95 | 
                          # get unique values  | 
          97 | 
                          # get unique values  | 
        
            
              | 96 | 
                              my @unique_callnumbers = do { my %seen; grep { !$seen{$_}++ } @callnumbers }; | 
               | 
               | 
            
            
              | 97 | 
                              my @unique_copynumbers = do { my %seen; grep { !$seen{$_}++ } @copynumbers }; | 
            
            
              | 98 | 
                              my @unique_enumchrons = do { my %seen; grep { !$seen{$_}++ } @enumchrons }; | 
            
            
              | 99 | 
                              my @unique_itemtypes = do { my %seen; grep { !$seen{$_}++ } @itemtypes }; | 
            
            
              | 100 | 
                              my @unique_locations = do { my %seen; grep { !$seen{$_}++ } @locations }; | 
            
            
              | 101 | 
                              my @unique_libraries = do { my %seen; grep { !$seen{$_}++ } @libraries }; | 
            
            
              | 102 | 
               | 
            
        
          | 103 | 
                          push( @pull_list, { | 
          98 | 
                          push( @pull_list, { | 
        
        
          | 104 | 
                              biblio => $biblio,  | 
          99 | 
                              biblio => $biblio,  | 
        
        
          | 105 | 
                              items_count => $items_count,  | 
          100 | 
                              items_count => $items_count,  | 
        
  
    | 
      
            Lines 107-118
          if ( $op eq 'list' ) {
      
      
        Link Here
      
     | 
  
        
          | 107 | 
                              patrons_count => $patrons_count,  | 
          102 | 
                              patrons_count => $patrons_count,  | 
        
        
          | 108 | 
                              pull_count => $items_count <= $recalls_count ? $items_count : $recalls_count,  | 
          103 | 
                              pull_count => $items_count <= $recalls_count ? $items_count : $recalls_count,  | 
        
        
          | 109 | 
                              first_recall => $first_recall,  | 
          104 | 
                              first_recall => $first_recall,  | 
        
          
            
              | 110 | 
                                  callnumbers => \@unique_callnumbers,  | 
              105 | 
                                  callnumbers   => [ uniq @callnumbers ],  | 
            
            
              | 111 | 
                                  copynumbers => \@unique_copynumbers,  | 
              106 | 
                                    copynumbers => [ uniq @copynumbers ],  | 
            
            
              | 112 | 
                                  enumchrons => \@unique_enumchrons,  | 
              107 | 
                                    enumchrons  => [ uniq @enumchrons ],  | 
            
            
              | 113 | 
                                  itemtypes => \@unique_itemtypes,  | 
              108 | 
                                    itemtypes   => [ uniq @itemtypes ],  | 
            
            
              | 114 | 
                                  locations => \@unique_locations,  | 
              109 | 
                                    locations   => [ uniq @locations ],  | 
            
            
              | 115 | 
                                  libraries => \@unique_libraries,  | 
              110 | 
                                    libraries   => [ uniq @libraries ],  | 
            
        
          | 116 | 
                          });  | 
          111 | 
                          });  | 
        
        
          | 117 | 
                      }  | 
          112 | 
                      }  | 
        
        
          | 118 | 
                  }  | 
          113 | 
                  }  | 
        
            
              | 119 | 
              -   | 
               | 
               |