Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

Bug 16556 - KohaToMarcMapped columns sharing same field with biblio(item)number are removed. 

REPLICATE ISSUE:

1. Map biblio.frameworkcode to 999$b
2. Map biblio.biblionumber to 999$c
3. Add a record with something in 999$b
4. 999$b is removed by C4::Biblio::AddBiblio()

After this patch, the field used by biblio.biblionumber or biblioitems.biblioitemnumber
is not removed and created anew, thus dropping all existing additions.

There is no point in dropping the field in any case, since we can just replace
the existing subfields in-place with no need to recreate the whole field.

UNIT TESTS INCLUDED

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
16.11.x
Olli-Antti Kivilahti 8 years ago
committed by Kyle M Hall
parent
2e79c211db
commit
a9eb400581
2 changed files with 102 additions and 44 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 91
      C4/Biblio.pm
  2. 55
      t/Biblio2.t

91
C4/Biblio.pm
View File

@ -2226,6 +2226,45 @@ sub GetMarcHosts {
return $marchostsarray;
}
=head2 UpsertMarcSubfield
my $record = C4::Biblio::UpsertMarcSubfield($MARC::Record, $fieldTag, $subfieldCode, $subfieldContent);
=cut
sub UpsertMarcSubfield {
my ($record, $tag, $code, $content) = @_;
my $f = $record->field($tag);
if ($f) {
$f->update( $code => $content );
}
else {
my $f = MARC::Field->new( $tag, '', '', $code => $content);
$record->insert_fields_ordered( $f );
}
}
=head2 UpsertMarcControlField
my $record = C4::Biblio::UpsertMarcControlField($MARC::Record, $fieldTag, $content);
=cut
sub UpsertMarcControlField {
my ($record, $tag, $content) = @_;
die "UpsertMarcControlField() \$tag '$tag' is not a control field\n" unless 0+$tag < 10;
my $f = $record->field($tag);
if ($f) {
$f->update( $content );
}
else {
my $f = MARC::Field->new($tag, $content);
$record->insert_fields_ordered( $f );
}
}
=head2 GetFrameworkCode
$frameworkcode = GetFrameworkCode( $biblionumber )
@ -3050,56 +3089,20 @@ the MARC XML.
sub _koha_marc_update_bib_ids {
my ( $record, $frameworkcode, $biblionumber, $biblioitemnumber ) = @_;
# we must add bibnum and bibitemnum in MARC::Record...
# we build the new field with biblionumber and biblioitemnumber
# we drop the original field
# we add the new builded field.
my ( $biblio_tag, $biblio_subfield ) = GetMarcFromKohaField( "biblio.biblionumber", $frameworkcode );
die qq{No biblionumber tag for framework "$frameworkcode"} unless $biblio_tag;
my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber", $frameworkcode );
die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
if ( $biblio_tag == $biblioitem_tag ) {
# biblionumber & biblioitemnumber are in the same field (can't be <10 as fields <10 have only 1 value)
my $new_field = MARC::Field->new(
$biblio_tag, '', '',
"$biblio_subfield" => $biblionumber,
"$biblioitem_subfield" => $biblioitemnumber
);
# drop old field and create new one...
my $old_field = $record->field($biblio_tag);
$record->delete_field($old_field) if $old_field;
$record->insert_fields_ordered($new_field);
if ( $biblio_tag < 10 ) {
C4::Biblio::UpsertMarcControlField( $record, $biblio_tag, $biblionumber );
} else {
# biblionumber & biblioitemnumber are in different fields
# deal with biblionumber
my ( $new_field, $old_field );
if ( $biblio_tag < 10 ) {
$new_field = MARC::Field->new( $biblio_tag, $biblionumber );
} else {
$new_field = MARC::Field->new( $biblio_tag, '', '', "$biblio_subfield" => $biblionumber );
}
# drop old field and create new one...
$old_field = $record->field($biblio_tag);
$record->delete_field($old_field) if $old_field;
$record->insert_fields_ordered($new_field);
# deal with biblioitemnumber
if ( $biblioitem_tag < 10 ) {
$new_field = MARC::Field->new( $biblioitem_tag, $biblioitemnumber, );
} else {
$new_field = MARC::Field->new( $biblioitem_tag, '', '', "$biblioitem_subfield" => $biblioitemnumber, );
}
# drop old field and create new one...
$old_field = $record->field($biblioitem_tag);
$record->delete_field($old_field) if $old_field;
$record->insert_fields_ordered($new_field);
C4::Biblio::UpsertMarcSubfield($record, $biblio_tag, $biblio_subfield, $biblionumber);
}
if ( $biblioitem_tag < 10 ) {
C4::Biblio::UpsertMarcControlField( $record, $biblioitem_tag, $biblioitemnumber );
} else {
C4::Biblio::UpsertMarcSubfield($record, $biblioitem_tag, $biblioitem_subfield, $biblioitemnumber);
}
}

55
t/Biblio2.t
View File

@ -0,0 +1,55 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More;
use Test::MockModule;
use MARC::Record;
use C4::Biblio;
subtest "_koha_marc_update_bib_ids basic Field", \&_koha_marc_update_bib_ids_simple;
sub _koha_marc_update_bib_ids_simple {
my $module = Test::MockModule->new('C4::Biblio');
$module->mock('GetMarcFromKohaField', sub {
my ($source) = @_;
return ('999','c') if $source eq 'biblio.biblionumber';
return ('999','d') if $source eq 'biblioitems.biblioitemnumber';
}
);
my $r = MARC::Record->new();
C4::Biblio::_koha_marc_update_bib_ids($r, undef, 10, 20);
is($r->subfield('999', 'c'), 10, 'Biblionumber');
is($r->subfield('999', 'd'), 20, 'Biblioitemnumber');
C4::Biblio::_koha_marc_update_bib_ids($r, undef, 10, 20);
my @f = $r->field('999');
is(scalar(@f), 1, 'Field not duplicated');
is($r->subfield('999', 'c'), 10, 'Biblionumber');
is($r->subfield('999', 'd'), 20, 'Biblioitemnumber');
}
subtest "_koha_marc_update_bib_ids ControlField", \&_koha_marc_update_bib_ids_control;
sub _koha_marc_update_bib_ids_control {
my $module = Test::MockModule->new('C4::Biblio');
$module->mock('GetMarcFromKohaField', sub {
my ($source) = @_;
return ('001',undef) if $source eq 'biblio.biblionumber';
return ('004',undef) if $source eq 'biblioitems.biblioitemnumber';
}
);
my $r = MARC::Record->new();
C4::Biblio::_koha_marc_update_bib_ids($r, undef, 10, 20);
is($r->field('001')->data(), 10, 'Biblionumber to control field');
is($r->field('004')->data(), 20, 'Biblioitemnumber to control field');
C4::Biblio::_koha_marc_update_bib_ids($r, undef, 10, 20);
my @f = $r->field('001');
is(scalar(@f), 1, 'Control field not duplicated');
is($r->field('001')->data(), 10, 'Biblionumber to control field');
is($r->field('004')->data(), 20, 'Biblioitemnumber to control field');
}
done_testing();
Write Preview
Loading…
Cancel
Save