Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

batch import: do not ersatz MARC item fields

Browse source 
Batch import was not removing item fields (e.g., 952
or 995) from MARC records.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-01-03 12:36:43 -06:00 committed by Joshua Ferraro
parent 8f854c0867
commit 98180ac0a1
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
C4/ImportBatch.pm
View file

@ -458,7 +458,15 @@ sub BatchCommitBibRecords {
if ($rowref->{'status'} eq 'error' or $rowref->{'status'} eq 'imported') {
$num_ignored++;
}
my $marc_record = MARC::Record->new_from_usmarc($rowref->{'marc'});
# remove any item tags - rely on BatchCommitItems
my ($item_tag,$item_subfield) = &GetMarcFromKohaField("items.itemnumber",'');
foreach my $item_field ($marc_record->field($item_tag)) {
$marc_record->delete_field($item_field);
}
if ($overlay_action eq 'create_new' or
($overlay_action eq 'replace' and $rowref->{'overlay_status'} eq 'no_match')) {
$num_added++;
@ -479,7 +487,6 @@ sub BatchCommitBibRecords {
# remove item fields so that they don't get
# added again if record is reverted
my $old_marc = MARC::Record->new_from_xml($oldxml, 'UTF-8', $rowref->{'encoding'});
my ($item_tag,$item_subfield) = &GetMarcFromKohaField("items.itemnumber",'');
foreach my $item_field ($old_marc->field($item_tag)) {
$old_marc->delete_field($item_field);
}