View | Details | Raw Unified | Return to bug 16859
Collapse All | Expand All

(-)a/tools/export.pl (-3 / +5 lines)
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
- 

Return to bug 16859