| Lines 52-57
          my $branchcode = $input->param('branchcode') || '';
      
      
        Link Here | 
        
          | 52 | my $branch     = $input->param('branch'); | 52 | my $branch     = $input->param('branch'); | 
        
          | 53 | my $op         = $input->param('op'); | 53 | my $op         = $input->param('op'); | 
        
          | 54 | my $compareinv2barcd = $input->param('compareinv2barcd'); | 54 | my $compareinv2barcd = $input->param('compareinv2barcd'); | 
            
              |  |  | 55 | my $ccode = $input->param('ccode'); | 
        
          | 55 |  | 56 |  | 
        
          | 56 | my ( $template, $borrowernumber, $cookie ) = get_template_and_user( | 57 | my ( $template, $borrowernumber, $cookie ) = get_template_and_user( | 
        
          | 57 |     {   template_name   => "tools/inventory.tt", | 58 |     {   template_name   => "tools/inventory.tt", | 
  
    | Lines 92-97
          for my $fwk (keys %$frameworks){
      
      
        Link Here | 
        
          | 92 |     } | 93 |     } | 
        
          | 93 | } | 94 | } | 
        
          | 94 |  | 95 |  | 
            
              |  |  | 96 | my $collection_authorised_value = C4::Koha::GetAuthValCode("items.ccode"); | 
            
              | 97 | my $collections = C4::Koha::GetAuthorisedValues($collection_authorised_value) // []; | 
            
              | 98 | $template->param( ccode_list => $collections ); | 
            
              | 99 |  | 
        
          | 95 | my $statuses = []; | 100 | my $statuses = []; | 
        
          | 96 | for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ | 101 | for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ | 
        
          | 97 |     my $hash = {}; | 102 |     my $hash = {}; | 
  
    | Lines 138-144
          $template->param(
      
      
        Link Here | 
        
          | 138 |     branch                   => $branch, | 143 |     branch                   => $branch, | 
        
          | 139 |     datelastseen             => $datelastseen, | 144 |     datelastseen             => $datelastseen, | 
        
          | 140 |     compareinv2barcd         => $compareinv2barcd, | 145 |     compareinv2barcd         => $compareinv2barcd, | 
          
            
              | 141 |     notforloanlist           => $notforloanlist | 146 |     notforloanlist           => $notforloanlist, | 
            
              |  |  | 147 |     ccode                    => $ccode, | 
        
          | 142 | ); | 148 | ); | 
        
          | 143 |  | 149 |  | 
        
          | 144 | my @notforloans; | 150 | my @notforloans; | 
  
    | Lines 253-261
          if ( $markseen or $op ) {
      
      
        Link Here | 
        
          | 253 |       size         => undef, | 259 |       size         => undef, | 
        
          | 254 |       statushash   => $staton, | 260 |       statushash   => $staton, | 
        
          | 255 |       interface    => 'staff', | 261 |       interface    => 'staff', | 
            
              |  |  | 262 |       ccode        => $ccode, | 
        
          | 256 |     } ); | 263 |     } ); | 
        
          | 257 |  | 264 |  | 
          
            
              | 258 |     # For the items that may be marked as "wrong place", we only check the location (callnumbers, location and branch) | 265 |     # For the items that may be marked as "wrong place", we only check the location (callnumbers, location, ccode and branch) | 
        
          | 259 |     ($wrongplacelist, $totalrecords) = GetItemsForInventory( { | 266 |     ($wrongplacelist, $totalrecords) = GetItemsForInventory( { | 
        
          | 260 |       minlocation  => $minlocation, | 267 |       minlocation  => $minlocation, | 
        
          | 261 |       maxlocation  => $maxlocation, | 268 |       maxlocation  => $maxlocation, | 
  
    | Lines 269-274
          if ( $markseen or $op ) {
      
      
        Link Here | 
        
          | 269 |       size         => undef, | 276 |       size         => undef, | 
        
          | 270 |       statushash   => undef, | 277 |       statushash   => undef, | 
        
          | 271 |       interface    => 'staff', | 278 |       interface    => 'staff', | 
            
              |  |  | 279 |       ccode        => $ccode, | 
        
          | 272 |     } ); | 280 |     } ); | 
        
          | 273 |  | 281 |  | 
        
          | 274 | } | 282 | } | 
  
    | Lines 382-388
          if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
      
      
        Link Here | 
        
          | 382 |     my @translated_keys; | 390 |     my @translated_keys; | 
        
          | 383 |     for my $key (qw / biblioitems.title    biblio.author | 391 |     for my $key (qw / biblioitems.title    biblio.author | 
        
          | 384 |                       items.barcode        items.itemnumber | 392 |                       items.barcode        items.itemnumber | 
          
            
              | 385 |                       items.homebranch     items.location | 393 |                       items.homebranch     items.location   items.ccode | 
        
          | 386 |                       items.itemcallnumber items.notforloan | 394 |                       items.itemcallnumber items.notforloan | 
        
          | 387 |                       items.itemlost       items.damaged | 395 |                       items.itemlost       items.damaged | 
        
          | 388 |                       items.withdrawn      items.stocknumber | 396 |                       items.withdrawn      items.stocknumber | 
  
    | Lines 394-400
          if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
      
      
        Link Here | 
        
          | 394 |     $csv->combine(@translated_keys); | 402 |     $csv->combine(@translated_keys); | 
        
          | 395 |     print $csv->string, "\n"; | 403 |     print $csv->string, "\n"; | 
        
          | 396 |  | 404 |  | 
          
            
              | 397 |     my @keys = qw / title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /; | 405 |     my @keys = qw / title author barcode itemnumber homebranch location ccode itemcallnumber notforloan lost damaged withdrawn stocknumber /; | 
        
          | 398 |     for my $item ( @results ) { | 406 |     for my $item ( @results ) { | 
        
          | 399 |         my @line; | 407 |         my @line; | 
        
          | 400 |         for my $key (@keys) { | 408 |         for my $key (@keys) { | 
            
              | 401 | -  |  |  |