- my $linefilter = "";
-# warn "filtres ".@filters[0];
-# warn "filtres ".@filters[1];
-# warn "filtres ".@filters[2];
-# warn "filtres ".@filters[3];
-
- $linefilter = @$filters[0] if ($line =~ /dewey/ ) ;
- $linefilter = @$filters[1] if ($line =~ /dewey/ ) ;
- $linefilter = @$filters[2] if ($line =~ /lccn/ ) ;
- $linefilter = @$filters[3] if ($line =~ /lccn/ ) ;
- $linefilter = @$filters[4] if ($line =~ /itemcolnumber/ ) ;
- $linefilter = @$filters[5] if ($line =~ /itemcolnumber/ ) ;
- $linefilter = @$filters[6] if ($line =~ /itemtype/ ) ;
- $linefilter = @$filters[7] if ($line =~ /publishercode/ ) ;
- $linefilter = @$filters[8] if ($line =~ /publicationyear/ ) ;
- $linefilter = @$filters[9] if ($line =~ /publicationyear/ ) ;
- $linefilter = @$filters[10] if ($line =~ /items.homebranch/ ) ;
- $linefilter = @$filters[11] if ($line =~ /items.location/ ) ;
-#
- my $colfilter = "";
- $colfilter = @$filters[0] if ($column =~ /dewey/ ) ;
- $colfilter = @$filters[1] if ($column =~ /dewey/ ) ;
- $colfilter = @$filters[2] if ($column =~ /lccn/ ) ;
- $colfilter = @$filters[3] if ($column =~ /lccn/ ) ;
- $colfilter = @$filters[4] if ($column =~ /itemcolnumber/ ) ;
- $colfilter = @$filters[5] if ($column =~ /itemcolnumber/ ) ;
- $colfilter = @$filters[6] if ($column =~ /itemtype/ ) ;
- $colfilter = @$filters[7] if ($column =~ /publishercode/ ) ;
- $colfilter = @$filters[8] if ($column =~ /publicationyear/ ) ;
- $colfilter = @$filters[9] if ($column =~ /publicationyear/ ) ;
- $colfilter = @$filters[10] if ($column =~ /items.homebranch/ ) ;
- $colfilter = @$filters[11] if ($column =~ /items.location/ ) ;
+# warn map {"filtres $_\n"} @filters[0..3];
+
+ my @linefilter;
+ $linefilter[0] = @$filters[0] if ($line =~ /dewey/ ) ;
+ $linefilter[1] = @$filters[1] if ($line =~ /dewey/ ) ;
+ $linefilter[0] = @$filters[2] if ($line =~ /lccn/ ) ;
+ $linefilter[1] = @$filters[3] if ($line =~ /lccn/ ) ;
+ $linefilter[0] = @$filters[4] if ($line =~ /items\.itemcallnumber/ ) ;
+ $linefilter[1] = @$filters[5] if ($line =~ /items\.itemcallnumber/ ) ;
+ if (C4::Context->preference('item-level_itypes')) {
+ $linefilter[0] = @$filters[6] if ($line =~ /items\.itype/ ) ;
+ } else {
+ $linefilter[0] = @$filters[6] if ($line =~ /itemtype/ ) ;
+ }
+ $linefilter[0] = @$filters[7] if ($line =~ /publishercode/ ) ;
+ $linefilter[0] = @$filters[8] if ($line =~ /publicationyear/ ) ;
+ $linefilter[1] = @$filters[9] if ($line =~ /publicationyear/ ) ;
+ $linefilter[0] = @$filters[10] if ($line =~ /items\.homebranch/ ) ;
+ $linefilter[0] = @$filters[11] if ($line =~ /items\.location/ ) ;
+ $linefilter[0] = @$filters[12] if ($line =~ /items\.ccode/ ) ;
+
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /dewey/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /dewey/ ) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /lccn/ ) ;
+ $colfilter[1] = @$filters[3] if ($column =~ /lccn/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /items\.itemcallnumber/ ) ;
+ $colfilter[1] = @$filters[5] if ($column =~ /items\.itemcallnumber/ ) ;
+ if (C4::Context->preference('item-level_itypes')) {
+ $colfilter[0] = @$filters[6] if ($column =~ /items\.itype/ ) ;
+ } else {
+ $colfilter[0] = @$filters[6] if ($column =~ /itemtype/ ) ;
+ }
+ $colfilter[0] = @$filters[7] if ($column =~ /publishercode/ ) ;
+ $colfilter[0] = @$filters[8] if ($column =~ /publicationyear/ ) ;
+ $colfilter[1] = @$filters[9] if ($column =~ /publicationyear/ ) ;
+ $colfilter[0] = @$filters[10] if ($column =~ /items\.homebranch/ ) ;
+ $colfilter[0] = @$filters[11] if ($column =~ /items\.location/ ) ;
+ $colfilter[0] = @$filters[12] if ($column =~ /items\.ccode/ ) ;