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 |
- |
|
|