| Lines 88-93
          $sep = "\t" if ($sep eq 'tabulation');
      
      
        Link Here | 
        
          | 88 | $template->param(do_it => $do_it, | 88 | $template->param(do_it => $do_it, | 
        
          | 89 | ); | 89 | ); | 
        
          | 90 |  | 90 |  | 
            
              |  |  | 91 | our $itemtypes = Koha::ItemTypes->search_with_localization->unblessed; | 
            
              | 92 |  | 
        
          | 91 | our @patron_categories = Koha::Patron::Categories->search_limited({}, {order_by => ['description']}); | 93 | our @patron_categories = Koha::Patron::Categories->search_limited({}, {order_by => ['description']}); | 
        
          | 92 |  | 94 |  | 
        
          | 93 | our $locations = { map { ( $_->{authorised_value} => $_->{lib} ) } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => '', kohafield => 'items.location' }, { order_by => ['description'] } ) }; | 95 | our $locations = { map { ( $_->{authorised_value} => $_->{lib} ) } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => '', kohafield => 'items.location' }, { order_by => ['description'] } ) }; | 
  
    | Lines 151-159
          my @values;
      
      
        Link Here | 
        
          | 151 | my %labels; | 153 | my %labels; | 
        
          | 152 | my %select; | 154 | my %select; | 
        
          | 153 |  | 155 |  | 
            
              | 154 | # create itemtype arrayref for <select>. |  |  | 
            
              | 155 | our $itemtypes = Koha::ItemTypes->search_with_localization; | 
            
              | 156 |  | 
        
          | 157 |     # location list | 156 |     # location list | 
        
          | 158 | my @locations; | 157 | my @locations; | 
        
          | 159 | foreach (sort keys %$locations) { | 158 | foreach (sort keys %$locations) { | 
  
    | Lines 355-366
          sub calculate {
      
      
        Link Here | 
        
          | 355 |         $sth->execute; | 354 |         $sth->execute; | 
        
          | 356 |     } | 355 |     } | 
        
          | 357 |  | 356 |  | 
            
              |  |  | 357 |     my $itemtypes_map = { map { $_->{itemtype} => $_ } @{ $itemtypes } }; | 
        
          | 358 |     while ( my ($celvalue) = $sth->fetchrow ) { | 358 |     while ( my ($celvalue) = $sth->fetchrow ) { | 
        
          | 359 |         my %cell = ( rowtitle => $celvalue, totalrow => 0 );    # we leave 'rowtitle' as hash key (used when filling the table), and add coltitle_display | 359 |         my %cell = ( rowtitle => $celvalue, totalrow => 0 );    # we leave 'rowtitle' as hash key (used when filling the table), and add coltitle_display | 
        
          | 360 |         $cell{rowtitle_display} = | 360 |         $cell{rowtitle_display} = | 
        
          | 361 |             ( $line =~ /ccode/ )    ? $ccodes->{$celvalue} | 361 |             ( $line =~ /ccode/ )    ? $ccodes->{$celvalue} | 
        
          | 362 |           : ( $line =~ /location/ ) ? $locations->{$celvalue} | 362 |           : ( $line =~ /location/ ) ? $locations->{$celvalue} | 
          
            
              | 363 |           : ( $line =~ /itemtype/ ) ? $itemtypes->{$celvalue}->{description} | 363 |           : ( $line =~ /itemtype/ ) ? $itemtypes_map->{$celvalue}->{translated_description} | 
        
          | 364 |           :                           $celvalue;                               # default fallback | 364 |           :                           $celvalue;                               # default fallback | 
        
          | 365 |         if ( $line =~ /sort1/ ) { | 365 |         if ( $line =~ /sort1/ ) { | 
        
          | 366 |             foreach (@$Bsort1) { | 366 |             foreach (@$Bsort1) { | 
  
    | Lines 449-455
          sub calculate {
      
      
        Link Here | 
        
          | 449 |         $cell{coltitle_display} = | 449 |         $cell{coltitle_display} = | 
        
          | 450 |             ( $column =~ /ccode/ )    ? $ccodes->{$celvalue} | 450 |             ( $column =~ /ccode/ )    ? $ccodes->{$celvalue} | 
        
          | 451 |           : ( $column =~ /location/ ) ? $locations->{$celvalue} | 451 |           : ( $column =~ /location/ ) ? $locations->{$celvalue} | 
          
            
              | 452 |           : ( $column =~ /itemtype/ ) ? $itemtypes->{$celvalue}->{description} | 452 |           : ( $column =~ /itemtype/ ) ? $itemtypes_map->{$celvalue}->{translated_description} | 
        
          | 453 |           :                             $celvalue;                               # default fallback | 453 |           :                             $celvalue;                               # default fallback | 
        
          | 454 |         if ( $column =~ /sort1/ ) { | 454 |         if ( $column =~ /sort1/ ) { | 
        
          | 455 |             foreach (@$Bsort1) { | 455 |             foreach (@$Bsort1) { | 
            
              | 456 | -  |  |  |