|
Lines 156-162
if ( $op eq "export" ) {
Link Here
|
| 156 |
$record_type = $query->param("record_type") unless ($commandline); |
156 |
$record_type = $query->param("record_type") unless ($commandline); |
| 157 |
$output_format = $query->param("output_format") || 'marc' |
157 |
$output_format = $query->param("output_format") || 'marc' |
| 158 |
unless ($commandline); |
158 |
unless ($commandline); |
| 159 |
my $dont_export_fields = $query->param("dont_export_fields"); |
159 |
my $export_remove_fields = $query->param("export_remove_fields"); |
| 160 |
my @biblionumbers = $query->param("biblionumbers"); |
160 |
my @biblionumbers = $query->param("biblionumbers"); |
| 161 |
my @itemnumbers = $query->param("itemnumbers"); |
161 |
my @itemnumbers = $query->param("itemnumbers"); |
| 162 |
my @sql_params; |
162 |
my @sql_params; |
|
Lines 355-362
if ( $op eq "export" ) {
Link Here
|
| 355 |
next if not defined $record; |
355 |
next if not defined $record; |
| 356 |
} |
356 |
} |
| 357 |
|
357 |
|
| 358 |
if ($dont_export_fields) { |
358 |
if ($export_remove_fields) { |
| 359 |
my @fields = split " ", $dont_export_fields; |
359 |
my @fields = split " ", $export_remove_fields; |
| 360 |
foreach (@fields) { |
360 |
foreach (@fields) { |
| 361 |
/^(\d*)(\w)?$/; |
361 |
/^(\d*)(\w)?$/; |
| 362 |
my $field = $1; |
362 |
my $field = $1; |
|
Lines 394-400
if ( $op eq "export" ) {
Link Here
|
| 394 |
my @itemnumbers = $query->param("itemnumbers"); |
394 |
my @itemnumbers = $query->param("itemnumbers"); |
| 395 |
my $output = |
395 |
my $output = |
| 396 |
marc2csv( \@biblionumbers, |
396 |
marc2csv( \@biblionumbers, |
| 397 |
GetCsvProfileId( C4::Context->preference('CsvProfileForExport') ), |
397 |
GetCsvProfileId( C4::Context->preference('ExportWithCsvProfile') ), |
| 398 |
\@itemnumbers, ); |
398 |
\@itemnumbers, ); |
| 399 |
print $query->header( |
399 |
print $query->header( |
| 400 |
-type => 'application/octet-stream', |
400 |
-type => 'application/octet-stream', |
|
Lines 468-474
else {
Link Here
|
| 468 |
itemtypeloop => \@itemtypesloop, |
468 |
itemtypeloop => \@itemtypesloop, |
| 469 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
469 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
| 470 |
authtypeloop => \@authtypesloop, |
470 |
authtypeloop => \@authtypesloop, |
| 471 |
dont_export_fields => C4::Context->preference("DontExportFields"), |
471 |
export_remove_fields => C4::Context->preference("ExportRemoveFields"), |
| 472 |
); |
472 |
); |
| 473 |
|
473 |
|
| 474 |
output_html_with_http_headers $query, $cookie, $template->output; |
474 |
output_html_with_http_headers $query, $cookie, $template->output; |
| 475 |
- |
|
|