Lines 345-350
sub export_marc_records_from_sth {
Link Here
|
345 |
my $marcxml = $record_type eq 'biblio' |
345 |
my $marcxml = $record_type eq 'biblio' |
346 |
? GetXmlBiblio( $record_number ) |
346 |
? GetXmlBiblio( $record_number ) |
347 |
: GetAuthorityXML( $record_number ); |
347 |
: GetAuthorityXML( $record_number ); |
|
|
348 |
$marcxml =~ s/<\?xml version="1\.0" encoding="UTF-8"\?>//; |
348 |
if ($record_type eq 'biblio'){ |
349 |
if ($record_type eq 'biblio'){ |
349 |
my @items = GetItemsInfo($record_number); |
350 |
my @items = GetItemsInfo($record_number); |
350 |
if (@items){ |
351 |
if (@items){ |
351 |
- |
|
|