Lines 17-22
Link Here
|
17 |
# Suite 330, Boston, MA 02111-1307 USA |
17 |
# Suite 330, Boston, MA 02111-1307 USA |
18 |
|
18 |
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
|
|
20 |
use MARC::File::XML; |
20 |
use List::MoreUtils qw(uniq); |
21 |
use List::MoreUtils qw(uniq); |
21 |
use Getopt::Long; |
22 |
use Getopt::Long; |
22 |
use CGI; |
23 |
use CGI; |
Lines 309-314
if ( $op eq "export" ) {
Link Here
|
309 |
} @{ $sth->fetchall_arrayref }; |
310 |
} @{ $sth->fetchall_arrayref }; |
310 |
} |
311 |
} |
311 |
|
312 |
|
|
|
313 |
my $xml_header_written = 0; |
312 |
for my $recordid ( uniq @recordids ) { |
314 |
for my $recordid ( uniq @recordids ) { |
313 |
if ($deleted_barcodes) { |
315 |
if ($deleted_barcodes) { |
314 |
my $q = " |
316 |
my $q = " |
Lines 374-392
if ( $op eq "export" ) {
Link Here
|
374 |
} |
376 |
} |
375 |
RemoveAllNsb($record) if ($clean); |
377 |
RemoveAllNsb($record) if ($clean); |
376 |
if ( $output_format eq "xml" ) { |
378 |
if ( $output_format eq "xml" ) { |
377 |
if ( $marcflavour eq 'UNIMARC' && $record_type eq 'auths' ) |
379 |
unless ($xml_header_written) { |
378 |
{ |
380 |
MARC::File::XML->default_record_format( |
379 |
print $record->as_xml_record('UNIMARCAUTH'); |
381 |
( |
380 |
} |
382 |
$marcflavour eq 'UNIMARC' |
381 |
else { |
383 |
&& $record_type eq 'auths' |
382 |
print $record->as_xml_record($marcflavour); |
384 |
) ? 'UNIMARCAUTH' : $marcflavour |
|
|
385 |
); |
386 |
print MARC::File::XML::header(); |
387 |
print "\n"; |
388 |
$xml_header_written = 1; |
383 |
} |
389 |
} |
|
|
390 |
print MARC::File::XML::record($record); |
391 |
print "\n"; |
384 |
} |
392 |
} |
385 |
else { |
393 |
else { |
386 |
print $record->as_usmarc(); |
394 |
print $record->as_usmarc(); |
387 |
} |
395 |
} |
388 |
} |
396 |
} |
389 |
} |
397 |
} |
|
|
398 |
if ($xml_header_written) { |
399 |
print MARC::File::XML::footer(); |
400 |
print "\n"; |
401 |
} |
402 |
|
390 |
exit; |
403 |
exit; |
391 |
} |
404 |
} |
392 |
elsif ( $format eq "csv" ) { |
405 |
elsif ( $format eq "csv" ) { |
393 |
- |
|
|