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