Bug 38279: Remove unused C4::ImportBatch::EmbedItemsInImportBiblio
Last call removed from bug 30779 (I think) Test plan: % git grep EmbedItemsInImportBiblio should not return anything Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
ae3c4ab009
commit
c8a5bdffbe
|
|
@ -192,24 +192,6 @@ sub GetImportRecordMarc {
|
|||
return $marc, $encoding;
|
||||
}
|
||||
|
||||
sub EmbedItemsInImportBiblio {
|
||||
my ( $record, $import_record_id ) = @_;
|
||||
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber" );
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $import_items = $dbh->selectall_arrayref(q|
|
||||
SELECT import_items.marcxml
|
||||
FROM import_items
|
||||
WHERE import_record_id = ?
|
||||
|, { Slice => {} }, $import_record_id );
|
||||
my @item_fields;
|
||||
for my $import_item ( @$import_items ) {
|
||||
my $item_marc = MARC::Record::new_from_xml($import_item->{marcxml}, 'UTF-8');
|
||||
push @item_fields, $item_marc->field($itemtag);
|
||||
}
|
||||
$record->append_fields(@item_fields);
|
||||
return $record;
|
||||
}
|
||||
|
||||
=head2 AddImportBatch
|
||||
|
||||
my $batch_id = AddImportBatch($params_hash);
|
||||
|
|
|
|||
Loading…
Reference in New Issue