Lines 19-36
Link Here
|
19 |
|
19 |
|
20 |
use strict; |
20 |
use strict; |
21 |
use warnings; |
21 |
use warnings; |
|
|
22 |
use List::MoreUtils qw(uniq); |
22 |
use C4::Auth; |
23 |
use C4::Auth; |
23 |
use C4::Output; |
24 |
use C4::Output; |
24 |
use C4::Biblio; # GetMarcBiblio GetXmlBiblio |
25 |
use C4::Biblio; # GetMarcBiblio GetXmlBiblio |
25 |
use CGI; |
26 |
use CGI; |
26 |
use C4::Koha; # GetItemTypes |
27 |
use C4::Koha; # GetItemTypes |
27 |
use C4::Branch; # GetBranches |
28 |
use C4::Branch; # GetBranches |
|
|
29 |
use C4::Record; |
30 |
use C4::Csv; |
28 |
|
31 |
|
29 |
my $query = new CGI; |
32 |
my $query = new CGI; |
30 |
my $op=$query->param("op") || ''; |
33 |
my $op = $query->param("op") || ''; |
31 |
my $filename=$query->param("filename"); |
34 |
my $filename = $query->param("filename") || 'koha.mrc'; |
32 |
my $dbh=C4::Context->dbh; |
35 |
my $dbh = C4::Context->dbh; |
33 |
my $marcflavour = C4::Context->preference("marcflavour"); |
36 |
my $marcflavour = C4::Context->preference("marcflavour"); |
|
|
37 |
my $format = $query->param("format") || 'iso2709'; |
34 |
|
38 |
|
35 |
my ($template, $loggedinuser, $cookie) |
39 |
my ($template, $loggedinuser, $cookie) |
36 |
= get_template_and_user |
40 |
= get_template_and_user |
Lines 57-175
my ($template, $loggedinuser, $cookie)
Link Here
|
57 |
} |
61 |
} |
58 |
|
62 |
|
59 |
if ($op eq "export") { |
63 |
if ($op eq "export") { |
60 |
binmode STDOUT, ':encoding(UTF-8)'; |
64 |
if ( $format eq "iso2709" ) { |
61 |
print $query->header( -type => 'application/octet-stream', |
65 |
binmode STDOUT, ':encoding(UTF-8)'; |
62 |
-charset => 'utf-8', |
66 |
print $query->header( |
63 |
-attachment=>$filename); |
67 |
-type => 'application/octet-stream', |
64 |
|
68 |
-charset => 'utf-8', |
65 |
my $StartingBiblionumber = $query->param("StartingBiblionumber"); |
69 |
-attachment=>$filename |
66 |
my $EndingBiblionumber = $query->param("EndingBiblionumber"); |
70 |
); |
67 |
my $output_format = $query->param("output_format"); |
|
|
68 |
my $itemtype = $query->param("itemtype"); |
69 |
my $start_callnumber = $query->param("start_callnumber"); |
70 |
my $end_callnumber = $query->param("end_callnumber"); |
71 |
my $start_accession = ($query->param("start_accession")) ? C4::Dates->new($query->param("start_accession")) : '' ; |
72 |
my $end_accession = ($query->param("end_accession")) ? C4::Dates->new($query->param("end_accession")) : '' ; |
73 |
my $dont_export_items = $query->param("dont_export_item"); |
74 |
my $strip_nonlocal_items = $query->param("strip_nonlocal_items"); |
75 |
my $dont_export_fields = $query->param("dont_export_fields"); |
76 |
my @sql_params; |
77 |
|
78 |
my $items_filter = |
79 |
$branch || $start_callnumber || $end_callnumber || |
80 |
$start_accession || $end_accession || |
81 |
($itemtype && C4::Context->preference('item-level_itypes')); |
82 |
my $query = $items_filter ? |
83 |
"SELECT DISTINCT biblioitems.biblionumber |
84 |
FROM biblioitems JOIN items |
85 |
USING (biblionumber) WHERE 1" |
86 |
: |
87 |
"SELECT biblioitems.biblionumber FROM biblioitems WHERE biblionumber >0 "; |
88 |
|
89 |
if ( $StartingBiblionumber ) { |
90 |
$query .= " AND biblioitems.biblionumber >= ? "; |
91 |
push @sql_params, $StartingBiblionumber; |
92 |
} |
93 |
|
94 |
if ( $EndingBiblionumber ) { |
95 |
$query .= " AND biblioitems.biblionumber <= ? "; |
96 |
push @sql_params, $EndingBiblionumber; |
97 |
} |
98 |
|
71 |
|
99 |
if ($branch) { |
72 |
my $StartingBiblionumber = $query->param("StartingBiblionumber"); |
100 |
$query .= " AND homebranch = ? "; |
73 |
my $EndingBiblionumber = $query->param("EndingBiblionumber"); |
101 |
push @sql_params, $branch; |
74 |
my $output_format = $query->param("output_format") || 'marc'; |
102 |
} |
75 |
my $itemtype = $query->param("itemtype"); |
|
|
76 |
my $start_callnumber = $query->param("start_callnumber"); |
77 |
my $end_callnumber = $query->param("end_callnumber"); |
78 |
my $start_accession = ($query->param("start_accession")) ? C4::Dates->new($query->param("start_accession")) : '' ; |
79 |
my $end_accession = ($query->param("end_accession")) ? C4::Dates->new($query->param("end_accession")) : '' ; |
80 |
my $dont_export_items = $query->param("dont_export_item"); |
81 |
my $strip_nonlocal_items = $query->param("strip_nonlocal_items"); |
82 |
my $dont_export_fields = $query->param("dont_export_fields"); |
83 |
my @biblionumbers = $query->param("biblionumbers"); |
84 |
my @itemnumbers = $query->param("itemnumbers"); |
85 |
my @sql_params; |
103 |
|
86 |
|
104 |
if ($start_callnumber) { |
87 |
if ( not @biblionumbers ) { |
105 |
$query .= " AND itemcallnumber <= ? "; |
88 |
my $items_filter = |
106 |
push @sql_params, $start_callnumber; |
89 |
$branch |
107 |
} |
90 |
|| $start_callnumber |
|
|
91 |
|| $end_callnumber |
92 |
|| $start_accession |
93 |
|| $end_accession |
94 |
|| ($itemtype && C4::Context->preference('item-level_itypes')); |
95 |
my $query = $items_filter |
96 |
? "SELECT DISTINCT biblioitems.biblionumber |
97 |
FROM biblioitems JOIN items |
98 |
USING (biblionumber) WHERE 1" |
99 |
: "SELECT biblioitems.biblionumber FROM biblioitems WHERE biblionumber >0 "; |
108 |
|
100 |
|
109 |
if ($end_callnumber) { |
101 |
if ( $StartingBiblionumber ) { |
110 |
$query .= " AND itemcallnumber >= ? "; |
102 |
$query .= " AND biblioitems.biblionumber >= ? "; |
111 |
push @sql_params, $end_callnumber; |
103 |
push @sql_params, $StartingBiblionumber; |
112 |
} |
104 |
} |
113 |
if ($start_accession) { |
|
|
114 |
$query .= " AND dateaccessioned >= ? "; |
115 |
push @sql_params, $start_accession->output('iso'); |
116 |
} |
117 |
|
105 |
|
118 |
if ($end_accession) { |
106 |
if ( $EndingBiblionumber ) { |
119 |
$query .= " AND dateaccessioned <= ? "; |
107 |
$query .= " AND biblioitems.biblionumber <= ? "; |
120 |
push @sql_params, $end_accession->output('iso'); |
108 |
push @sql_params, $EndingBiblionumber; |
121 |
} |
109 |
} |
122 |
|
110 |
|
123 |
if ( $itemtype ) { |
111 |
if ($branch) { |
124 |
$query .= (C4::Context->preference('item-level_itypes')) ? " AND items.itype = ? " : " AND biblioitems.itemtype = ?"; |
112 |
$query .= " AND homebranch = ? "; |
125 |
push @sql_params, $itemtype; |
113 |
push @sql_params, $branch; |
126 |
} |
114 |
} |
127 |
my $sth = $dbh->prepare($query); |
115 |
|
128 |
$sth->execute(@sql_params); |
116 |
if ($start_callnumber) { |
129 |
|
117 |
$query .= " AND itemcallnumber <= ? "; |
130 |
while (my ($biblionumber) = $sth->fetchrow) { |
118 |
push @sql_params, $start_callnumber; |
131 |
my $record = eval{ GetMarcBiblio($biblionumber); }; |
119 |
} |
132 |
# FIXME: decide how to handle records GetMarcBiblio can't parse or retrieve |
120 |
|
133 |
if ($@) { |
121 |
if ($end_callnumber) { |
134 |
next; |
122 |
$query .= " AND itemcallnumber >= ? "; |
135 |
} |
123 |
push @sql_params, $end_callnumber; |
136 |
next if not defined $record; |
|
|
137 |
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) unless $dont_export_items; |
138 |
if ($strip_nonlocal_items || $limit_ind_branch) { |
139 |
my ( $homebranchfield, $homebranchsubfield ) = |
140 |
GetMarcFromKohaField( 'items.homebranch', '' ); |
141 |
for my $itemfield ($record->field($homebranchfield)){ |
142 |
# if stripping nonlocal items, use loggedinuser's branch if they didn't select one |
143 |
$branch = C4::Context->userenv->{'branch'} unless $branch; |
144 |
$record->delete_field($itemfield) if($itemfield->subfield($homebranchsubfield) ne $branch) ; |
145 |
} |
124 |
} |
|
|
125 |
if ($start_accession) { |
126 |
$query .= " AND dateaccessioned >= ? "; |
127 |
push @sql_params, $start_accession->output('iso'); |
128 |
} |
129 |
|
130 |
if ($end_accession) { |
131 |
$query .= " AND dateaccessioned <= ? "; |
132 |
push @sql_params, $end_accession->output('iso'); |
133 |
} |
134 |
|
135 |
if ( $itemtype ) { |
136 |
$query .= (C4::Context->preference('item-level_itypes')) ? " AND items.itype = ? " : " AND biblioitems.itemtype = ?"; |
137 |
push @sql_params, $itemtype; |
138 |
} |
139 |
my $sth = $dbh->prepare($query); |
140 |
$sth->execute(@sql_params); |
141 |
push @biblionumbers, map { map { $$_[0] } $_ } @{$sth->fetchall_arrayref}; |
146 |
} |
142 |
} |
147 |
|
143 |
|
148 |
if ( $dont_export_fields ) { |
144 |
for my $biblionumber (uniq @biblionumbers) { |
149 |
my @fields = split " ", $dont_export_fields; |
145 |
my $record = eval{ GetMarcBiblio($biblionumber); }; |
150 |
foreach ( @fields ) { |
146 |
# FIXME: decide how to handle records GetMarcBiblio can't parse or retrieve |
151 |
/^(\d*)(\w)?$/; |
147 |
if ($@) { |
152 |
my $field = $1; |
148 |
next; |
153 |
my $subfield = $2; |
149 |
} |
154 |
# skip if this record doesn't have this field |
150 |
next if not defined $record; |
155 |
next if not defined $record->field($field); |
151 |
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber, \@itemnumbers) unless $dont_export_items; |
156 |
if( $subfield ) { |
152 |
if ( $strip_nonlocal_items || $limit_ind_branch || $dont_export_items ) { |
157 |
$record->field($field)->delete_subfields($subfield); |
153 |
my ( $homebranchfield, $homebranchsubfield ) = |
|
|
154 |
GetMarcFromKohaField( 'items.homebranch', '' ); |
155 |
for my $itemfield ($record->field($homebranchfield)){ |
156 |
# if stripping nonlocal items, use loggedinuser's branch if they didn't select one |
157 |
$branch = C4::Context->userenv->{'branch'} unless $branch; |
158 |
$record->delete_field($itemfield) if( $dont_export_items || $itemfield->subfield($homebranchsubfield) ne $branch) ; |
158 |
} |
159 |
} |
159 |
else { |
160 |
} |
160 |
$record->delete_field($record->field($field)); |
161 |
|
|
|
162 |
if ( $dont_export_fields ) { |
163 |
my @fields = split " ", $dont_export_fields; |
164 |
foreach ( @fields ) { |
165 |
/^(\d*)(\w)?$/; |
166 |
my $field = $1; |
167 |
my $subfield = $2; |
168 |
# skip if this record doesn't have this field |
169 |
next if not defined $record->field($field); |
170 |
if( $subfield ) { |
171 |
$record->field($field)->delete_subfields($subfield); |
172 |
} |
173 |
else { |
174 |
$record->delete_field($record->field($field)); |
175 |
} |
161 |
} |
176 |
} |
162 |
} |
177 |
} |
|
|
178 |
if ( $output_format eq "xml" ) { |
179 |
print $record->as_xml_record($marcflavour); |
180 |
} |
181 |
else { |
182 |
print $record->as_usmarc(); |
183 |
} |
163 |
} |
184 |
} |
164 |
if ( $output_format eq "xml" ) { |
185 |
exit; |
165 |
print $record->as_xml_record($marcflavour); |
186 |
} |
166 |
} |
187 |
elsif ( $format eq "csv" ) { |
167 |
else { |
188 |
my @biblionumbers = uniq $query->param("biblionumbers"); |
168 |
print $record->as_usmarc(); |
189 |
my @itemnumbers = $query->param("itemnumbers"); |
169 |
} |
190 |
my $output = marc2csv( |
|
|
191 |
\@biblionumbers, |
192 |
GetCsvProfileId(C4::Context->preference('CsvProfileForExport')), |
193 |
\@itemnumbers, |
194 |
); |
195 |
print $query->header( |
196 |
-type => 'application/octet-stream', |
197 |
-'Content-Transfer-Encoding' => 'binary', |
198 |
-attachment => "export.csv" |
199 |
); |
200 |
print $output; |
201 |
exit; |
170 |
} |
202 |
} |
171 |
exit; |
|
|
172 |
|
173 |
} # if export |
203 |
} # if export |
174 |
|
204 |
|
175 |
else { |
205 |
else { |
Lines 199-206
else {
Link Here
|
199 |
$template->param( |
229 |
$template->param( |
200 |
branchloop => \@branchloop, |
230 |
branchloop => \@branchloop, |
201 |
itemtypeloop => \@itemtypesloop, |
231 |
itemtypeloop => \@itemtypesloop, |
202 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
232 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
|
|
233 |
dont_export_fields => C4::Context->preference("DontExportFields"), |
203 |
); |
234 |
); |
204 |
|
235 |
|
205 |
output_html_with_http_headers $query, $cookie, $template->output; |
236 |
output_html_with_http_headers $query, $cookie, $template->output; |
206 |
} |
237 |
} |
207 |
- |
|
|