Lines 28-33
BEGIN {
Link Here
|
28 |
# Optionally change marc flavour |
28 |
# Optionally change marc flavour |
29 |
my $marcflavour; |
29 |
my $marcflavour; |
30 |
GetOptions( 'flavour:s' => \$marcflavour ); |
30 |
GetOptions( 'flavour:s' => \$marcflavour ); |
|
|
31 |
$marcflavour //= 'MARC21'; |
31 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ) if $marcflavour; |
32 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ) if $marcflavour; |
32 |
|
33 |
|
33 |
my $schema = Koha::Database->new->schema; |
34 |
my $schema = Koha::Database->new->schema; |
Lines 40-45
$heading_module->mock(
Link Here
|
40 |
return 1; |
41 |
return 1; |
41 |
} |
42 |
} |
42 |
); |
43 |
); |
|
|
44 |
my $auth_module = Test::MockModule->new('C4::AuthoritiesMarc'); |
45 |
$auth_module->mock( |
46 |
'GuessAuthTypeCode', |
47 |
sub { |
48 |
$marcflavour eq 'MARC21' ? return 'PERSO_NAME' : return 'NP'; |
49 |
} |
50 |
); |
43 |
|
51 |
|
44 |
# Global variables, mocking and framework modifications |
52 |
# Global variables, mocking and framework modifications |
45 |
our @linkedrecords; |
53 |
our @linkedrecords; |
46 |
- |
|
|