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