|
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 |
- |
|
|