Lines 697-703
subtest 'ModBiblio calls from merge' => sub {
Link Here
|
697 |
my $biblio_record = MARC::Record->new(); |
697 |
my $biblio_record = MARC::Record->new(); |
698 |
$biblio_record->insert_fields_ordered( |
698 |
$biblio_record->insert_fields_ordered( |
699 |
MARC::Field->new( '609', '1', '1', a => 'Brown,', 'c' => 'Father', 9 => $authid ) ); |
699 |
MARC::Field->new( '609', '1', '1', a => 'Brown,', 'c' => 'Father', 9 => $authid ) ); |
700 |
my $biblionumber = AddBiblio( $biblio_record, '', { skip_record_index => 1 } ); |
700 |
my ($biblionumber) = AddBiblio( $biblio_record, '', { skip_record_index => 1 } ); |
701 |
|
701 |
|
702 |
my $biblio_module = Test::MockModule->new('C4::AuthoritiesMarc'); |
702 |
my $biblio_module = Test::MockModule->new('C4::AuthoritiesMarc'); |
703 |
$biblio_module->mock( |
703 |
$biblio_module->mock( |
Lines 748-754
subtest 'ModBiblio calls from merge' => sub {
Link Here
|
748 |
my $biblio_record2 = MARC::Record->new(); |
748 |
my $biblio_record2 = MARC::Record->new(); |
749 |
$biblio_record2->insert_fields_ordered( |
749 |
$biblio_record2->insert_fields_ordered( |
750 |
MARC::Field->new( '109', '1', ' ', a => 'Chesterton, G.K.', 9 => $authid2 ) ); |
750 |
MARC::Field->new( '109', '1', ' ', a => 'Chesterton, G.K.', 9 => $authid2 ) ); |
751 |
my $biblionumber2 = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } ); |
751 |
my ($biblionumber2) = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } ); |
752 |
|
752 |
|
753 |
my $num_biblio_edited; |
753 |
my $num_biblio_edited; |
754 |
warnings_are { |
754 |
warnings_are { |
755 |
- |
|
|