| Lines 20-25
          use Modern::Perl;
      
      
        Link Here | 
        
          | 20 | use CGI qw ( -utf8 ); | 20 | use CGI qw ( -utf8 ); | 
        
          | 21 | use MARC::File::XML; | 21 | use MARC::File::XML; | 
        
          | 22 | use List::MoreUtils qw(uniq); | 22 | use List::MoreUtils qw(uniq); | 
            
              |  |  | 23 | use Data::Dumper qw(Dumper); | 
        
          | 23 | use C4::Auth; | 24 | use C4::Auth; | 
        
          | 24 | use C4::Branch;             # GetBranches | 25 | use C4::Branch;             # GetBranches | 
        
          | 25 | use C4::Csv; | 26 | use C4::Csv; | 
  
    | Lines 122-138
          if ( $op eq "export" ) {
      
      
        Link Here | 
        
          | 122 |                             } | 123 |                             } | 
        
          | 123 |                         ) | 124 |                         ) | 
        
          | 124 |                         : (), | 125 |                         : (), | 
            
              |  |  | 126 |  | 
        
          | 125 |                     ( $start_callnumber or $end_callnumber ) | 127 |                     ( $start_callnumber or $end_callnumber ) | 
        
          | 126 |                         ? ( | 128 |                         ? ( | 
          
            
              | 127 |                             callnumber => { | 129 |                             'items.itemcallnumber' => { | 
        
          | 128 |                                 ( $start_callnumber ? ( '>=' => $start_callnumber ) : () ), | 130 |                                 ( $start_callnumber ? ( '>=' => $start_callnumber ) : () ), | 
        
          | 129 |                                 ( $end_callnumber   ? ( '<=' => $end_callnumber   ) : () ), | 131 |                                 ( $end_callnumber   ? ( '<=' => $end_callnumber   ) : () ), | 
        
          | 130 |                             } | 132 |                             } | 
        
          | 131 |                         ) | 133 |                         ) | 
        
          | 132 |                         : (), | 134 |                         : (), | 
            
              |  |  | 135 |  | 
        
          | 133 |                     ( $start_accession or $end_accession ) | 136 |                     ( $start_accession or $end_accession ) | 
        
          | 134 |                         ? ( | 137 |                         ? ( | 
          
            
              | 135 |                             dateaccessioned => { | 138 |                             'items.dateaccessioned' => { | 
        
          | 136 |                                 ( $start_accession ? ( '>=' => $start_accession ) : () ), | 139 |                                 ( $start_accession ? ( '>=' => $start_accession ) : () ), | 
        
          | 137 |                                 ( $end_accession   ? ( '<=' => $end_accession   ) : () ), | 140 |                                 ( $end_accession   ? ( '<=' => $end_accession   ) : () ), | 
        
          | 138 |                             } | 141 |                             } | 
            
              | 139 | -  |  |  |