@@ -, +, @@ range. The biblio should be exported. --- tools/export.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/tools/export.pl +++ a/tools/export.pl @@ -20,6 +20,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use MARC::File::XML; use List::MoreUtils qw(uniq); +use Data::Dumper qw(Dumper); use C4::Auth; use C4::Branch; # GetBranches use C4::Csv; @@ -122,17 +123,19 @@ if ( $op eq "export" ) { } ) : (), + ( $start_callnumber or $end_callnumber ) ? ( - callnumber => { + 'items.itemcallnumber' => { ( $start_callnumber ? ( '>=' => $start_callnumber ) : () ), ( $end_callnumber ? ( '<=' => $end_callnumber ) : () ), } ) : (), + ( $start_accession or $end_accession ) ? ( - dateaccessioned => { + 'items.dateaccessioned' => { ( $start_accession ? ( '>=' => $start_accession ) : () ), ( $end_accession ? ( '<=' => $end_accession ) : () ), } --