Lines 323-341
sub export_marc_records_from_sth {
Link Here
|
323 |
my @items = GetItemsInfo($record_number); |
323 |
my @items = GetItemsInfo($record_number); |
324 |
if (@items){ |
324 |
if (@items){ |
325 |
my $record = MARC::Record->new; |
325 |
my $record = MARC::Record->new; |
|
|
326 |
$record->encoding('UTF-8'); |
326 |
my @itemsrecord; |
327 |
my @itemsrecord; |
327 |
foreach my $item (@items){ |
328 |
foreach my $item (@items){ |
328 |
my $record = Item2Marc($item, $record_number); |
329 |
my $record = Item2Marc($item, $record_number); |
329 |
push @itemsrecord, $record->field($itemtag); |
330 |
push @itemsrecord, $record->field($itemtag); |
330 |
} |
331 |
} |
331 |
$record->insert_fields_ordered(@itemsrecord); |
332 |
$record->insert_fields_ordered(@itemsrecord); |
332 |
my $itemsxml=$record->as_xml_record(); |
333 |
my $itemsxml = $record->as_xml_record(); |
333 |
my $searchstring = '<record>\n'; |
334 |
$marcxml = |
334 |
my $index = index($itemsxml, '<record>\n', 0); |
335 |
substr($marcxml, 0, length($marcxml)-10) . |
335 |
$itemsxml = substr($itemsxml, $index + length($searchstring)); |
336 |
substr($itemsxml, index($itemsxml, "</leader>\n", 0) + 10); |
336 |
$searchstring = '</record>'; |
|
|
337 |
$marcxml = substr($marcxml, 0, index($marcxml, $searchstring)); |
338 |
$marcxml .= $itemsxml; |
339 |
} |
337 |
} |
340 |
} |
338 |
} |
341 |
if ( $marcxml ) { |
339 |
if ( $marcxml ) { |
342 |
- |
|
|