|
Lines 134-139
subtest 'Test merge A1 to modified A1, test strict mode' => sub {
Link Here
|
| 134 |
$index = 0; |
134 |
$index = 0; |
| 135 |
$rv = C4::AuthoritiesMarc::merge( $authid1, $auth1old, $authid1, $auth1new ); |
135 |
$rv = C4::AuthoritiesMarc::merge( $authid1, $auth1old, $authid1, $auth1new ); |
| 136 |
$biblio1 = GetMarcBiblio($biblionumber1); |
136 |
$biblio1 = GetMarcBiblio($biblionumber1); |
|
|
137 |
$biblio1->delete_fields( $biblio1->field('100') ); # quick fix for UNIMARC |
| 137 |
is( $biblio1->field(109)->subfield('b'), undef, 'Subfield overwritten in strict mode' ); |
138 |
is( $biblio1->field(109)->subfield('b'), undef, 'Subfield overwritten in strict mode' ); |
| 138 |
is( $biblio1->fields, scalar( $MARC1->fields ) - 1, 'strict mode should remove a duplicate 609' ); |
139 |
is( $biblio1->fields, scalar( $MARC1->fields ) - 1, 'strict mode should remove a duplicate 609' ); |
| 139 |
is( $biblio1->field(609)->subfields, |
140 |
is( $biblio1->field(609)->subfields, |
| 140 |
- |
|
|