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