Lines 72-83
if (not $biblios and not $authorities) {
Link Here
|
72 |
die $msg; |
72 |
die $msg; |
73 |
} |
73 |
} |
74 |
|
74 |
|
75 |
if ($authorities and $as_xml) { |
|
|
76 |
my $msg = "Cannot specify both -a and -x\n"; |
77 |
$msg .= "Please do '$0 --help' to see usage.\n"; |
78 |
die $msg; |
79 |
} |
80 |
|
81 |
if ( !$as_xml and $nosanitize ) { |
75 |
if ( !$as_xml and $nosanitize ) { |
82 |
my $msg = "Cannot specify both -no_xml and -nosanitize\n"; |
76 |
my $msg = "Cannot specify both -no_xml and -nosanitize\n"; |
83 |
$msg .= "Please do '$0 --help' to see usage.\n"; |
77 |
$msg .= "Please do '$0 --help' to see usage.\n"; |
Lines 117-122
my $biblioserverdir = C4::Context->zebraconfig('biblioserver')->{directory};
Link Here
|
117 |
my $authorityserverdir = C4::Context->zebraconfig('authorityserver')->{directory}; |
111 |
my $authorityserverdir = C4::Context->zebraconfig('authorityserver')->{directory}; |
118 |
|
112 |
|
119 |
my $kohadir = C4::Context->config('intranetdir'); |
113 |
my $kohadir = C4::Context->config('intranetdir'); |
|
|
114 |
my $bib_index_mode = C4::Context->config('zebra_bib_index_mode') || 'grs1'; |
115 |
my $auth_index_mode = C4::Context->config('zebra_auth_index_mode') || 'dom'; |
116 |
|
120 |
my $dbh = C4::Context->dbh; |
117 |
my $dbh = C4::Context->dbh; |
121 |
my ($biblionumbertagfield,$biblionumbertagsubfield) = &GetMarcFromKohaField("biblio.biblionumber",""); |
118 |
my ($biblionumbertagfield,$biblionumbertagsubfield) = &GetMarcFromKohaField("biblio.biblionumber",""); |
122 |
my ($biblioitemnumbertagfield,$biblioitemnumbertagsubfield) = &GetMarcFromKohaField("biblioitems.biblioitemnumber",""); |
119 |
my ($biblioitemnumbertagfield,$biblioitemnumbertagsubfield) = &GetMarcFromKohaField("biblioitems.biblioitemnumber",""); |
Lines 319-329
sub select_all_biblios {
Link Here
|
319 |
return $sth; |
316 |
return $sth; |
320 |
} |
317 |
} |
321 |
|
318 |
|
|
|
319 |
sub include_xml_wrapper { |
320 |
my $as_xml = shift; |
321 |
my $record_type = shift; |
322 |
|
323 |
return 0 unless $as_xml; |
324 |
return 1 if $record_type eq 'biblio' and $bib_index_mode eq 'dom'; |
325 |
return 1 if $record_type eq 'authority' and $auth_index_mode eq 'dom'; |
326 |
return 0; |
327 |
|
328 |
} |
329 |
|
322 |
sub export_marc_records_from_sth { |
330 |
sub export_marc_records_from_sth { |
323 |
my ($record_type, $sth, $directory, $as_xml, $noxml, $nosanitize) = @_; |
331 |
my ($record_type, $sth, $directory, $as_xml, $noxml, $nosanitize) = @_; |
324 |
|
332 |
|
325 |
my $num_exported = 0; |
333 |
my $num_exported = 0; |
326 |
open my $fh, '>:encoding(UTF-8) ', "$directory/exported_records" or die $!; |
334 |
open my $fh, '>:encoding(UTF-8) ', "$directory/exported_records" or die $!; |
|
|
335 |
if (include_xml_wrapper($as_xml, $record_type)) { |
336 |
# include XML declaration and root element |
337 |
print {$fh} '<?xml version="1.0" encoding="UTF-8"?><collection>'; |
338 |
} |
327 |
my $i = 0; |
339 |
my $i = 0; |
328 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber",''); |
340 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber",''); |
329 |
while (my ($record_number) = $sth->fetchrow_array) { |
341 |
while (my ($record_number) = $sth->fetchrow_array) { |
Lines 358-370
sub export_marc_records_from_sth {
Link Here
|
358 |
} |
370 |
} |
359 |
my ($marc) = get_corrected_marc_record($record_type, $record_number, $noxml); |
371 |
my ($marc) = get_corrected_marc_record($record_type, $record_number, $noxml); |
360 |
if (defined $marc) { |
372 |
if (defined $marc) { |
361 |
# FIXME - when more than one record is exported and $as_xml is true, |
|
|
362 |
# the output file is not valid XML - it's just multiple <record> elements |
363 |
# strung together with no single root element. zebraidx doesn't seem |
364 |
# to care, though, at least if you're using the GRS-1 filter. It does |
365 |
# care if you're using the DOM filter, which requires valid XML file(s). |
366 |
eval { |
373 |
eval { |
367 |
print {$fh} ($as_xml) ? $marc->as_xml_record(C4::Context->preference('marcflavour')) : $marc->as_usmarc(); |
374 |
my $rec; |
|
|
375 |
if ($as_xml) { |
376 |
$rec = $marc->as_xml_record(C4::Context->preference('marcflavour')); |
377 |
$rec =~ s!<\?xml version="1.0" encoding="UTF-8"\?>\n!!; |
378 |
} else { |
379 |
$rec = $marc->as_usmarc(); |
380 |
} |
381 |
print {$fh} $rec; |
368 |
$num_exported++; |
382 |
$num_exported++; |
369 |
}; |
383 |
}; |
370 |
if ($@) { |
384 |
if ($@) { |
Lines 373-378
sub export_marc_records_from_sth {
Link Here
|
373 |
} |
387 |
} |
374 |
} |
388 |
} |
375 |
print "\nRecords exported: $num_exported\n" if ( $verbose_logging ); |
389 |
print "\nRecords exported: $num_exported\n" if ( $verbose_logging ); |
|
|
390 |
print {$fh} '</collection>' if (include_xml_wrapper($as_xml, $record_type)); |
376 |
close $fh; |
391 |
close $fh; |
377 |
return $num_exported; |
392 |
return $num_exported; |
378 |
} |
393 |
} |
Lines 382-387
sub export_marc_records_from_list {
Link Here
|
382 |
|
397 |
|
383 |
my $num_exported = 0; |
398 |
my $num_exported = 0; |
384 |
open my $fh, '>:encoding(UTF-8)', "$directory/exported_records" or die $!; |
399 |
open my $fh, '>:encoding(UTF-8)', "$directory/exported_records" or die $!; |
|
|
400 |
if (include_xml_wrapper($as_xml, $record_type)) { |
401 |
# include XML declaration and root element |
402 |
print {$fh} '<?xml version="1.0" encoding="UTF-8"?><collection>'; |
403 |
} |
385 |
my $i = 0; |
404 |
my $i = 0; |
386 |
|
405 |
|
387 |
# Skip any deleted records. We check for this anyway, but this reduces error spam |
406 |
# Skip any deleted records. We check for this anyway, but this reduces error spam |
Lines 393-408
sub export_marc_records_from_list {
Link Here
|
393 |
print "\r$i" unless ($i++ %100 or !$verbose_logging); |
412 |
print "\r$i" unless ($i++ %100 or !$verbose_logging); |
394 |
my ($marc) = get_corrected_marc_record($record_type, $record_number, $noxml); |
413 |
my ($marc) = get_corrected_marc_record($record_type, $record_number, $noxml); |
395 |
if (defined $marc) { |
414 |
if (defined $marc) { |
396 |
# FIXME - when more than one record is exported and $as_xml is true, |
415 |
eval { |
397 |
# the output file is not valid XML - it's just multiple <record> elements |
416 |
my $rec; |
398 |
# strung together with no single root element. zebraidx doesn't seem |
417 |
if ($as_xml) { |
399 |
# to care, though, at least if you're using the GRS-1 filter. It does |
418 |
$rec = $marc->as_xml_record(C4::Context->preference('marcflavour')); |
400 |
# care if you're using the DOM filter, which requires valid XML file(s). |
419 |
$rec =~ s!<\?xml version="1.0" encoding="UTF-8"\?>\n!!; |
401 |
print {$fh} ($as_xml) ? $marc->as_xml_record(C4::Context->preference('marcflavour')) : $marc->as_usmarc(); |
420 |
} else { |
|
|
421 |
$rec = $marc->as_usmarc(); |
422 |
} |
423 |
print {$fh} $rec; |
424 |
$num_exported++; |
425 |
}; |
426 |
if ($@) { |
427 |
warn "Error exporting record $record_number ($record_type) ".($noxml ? "not XML" : "XML"); |
428 |
} |
402 |
$num_exported++; |
429 |
$num_exported++; |
403 |
} |
430 |
} |
404 |
} |
431 |
} |
405 |
print "\nRecords exported: $num_exported\n" if ( $verbose_logging ); |
432 |
print "\nRecords exported: $num_exported\n" if ( $verbose_logging ); |
|
|
433 |
print {$fh} '</collection>' if (include_xml_wrapper($as_xml, $record_type)); |
406 |
close $fh; |
434 |
close $fh; |
407 |
return $num_exported; |
435 |
return $num_exported; |
408 |
} |
436 |
} |
Lines 412-417
sub generate_deleted_marc_records {
Link Here
|
412 |
|
440 |
|
413 |
my $records_deleted = {}; |
441 |
my $records_deleted = {}; |
414 |
open my $fh, '>:encoding(UTF-8)', "$directory/exported_records" or die $!; |
442 |
open my $fh, '>:encoding(UTF-8)', "$directory/exported_records" or die $!; |
|
|
443 |
if (include_xml_wrapper($as_xml, $record_type)) { |
444 |
# include XML declaration and root element |
445 |
print {$fh} '<?xml version="1.0" encoding="UTF-8"?><collection>'; |
446 |
} |
415 |
my $i = 0; |
447 |
my $i = 0; |
416 |
foreach my $record_number (map { $_->{biblio_auth_number} } @$entries ) { |
448 |
foreach my $record_number (map { $_->{biblio_auth_number} } @$entries ) { |
417 |
print "\r$i" unless ($i++ %100 or !$verbose_logging); |
449 |
print "\r$i" unless ($i++ %100 or !$verbose_logging); |
Lines 427-437
sub generate_deleted_marc_records {
Link Here
|
427 |
fix_unimarc_100($marc); |
459 |
fix_unimarc_100($marc); |
428 |
} |
460 |
} |
429 |
|
461 |
|
430 |
print {$fh} ($as_xml) ? $marc->as_xml_record(C4::Context->preference("marcflavour")) : $marc->as_usmarc(); |
462 |
my $rec; |
|
|
463 |
if ($as_xml) { |
464 |
$rec = $marc->as_xml_record(C4::Context->preference('marcflavour')); |
465 |
$rec =~ s!<\?xml version="1.0" encoding="UTF-8"\?>\n!!; |
466 |
} else { |
467 |
$rec = $marc->as_usmarc(); |
468 |
} |
469 |
print {$fh} $rec; |
431 |
|
470 |
|
432 |
$records_deleted->{$record_number} = 1; |
471 |
$records_deleted->{$record_number} = 1; |
433 |
} |
472 |
} |
434 |
print "\nRecords exported: $i\n" if ( $verbose_logging ); |
473 |
print "\nRecords exported: $i\n" if ( $verbose_logging ); |
|
|
474 |
print {$fh} '</collection>' if (include_xml_wrapper($as_xml, $record_type)); |
435 |
close $fh; |
475 |
close $fh; |
436 |
return $records_deleted; |
476 |
return $records_deleted; |
437 |
|
477 |
|
438 |
- |
|
|