View | Details | Raw Unified | Return to bug 36917
Collapse All | Expand All

(-)a/C4/Heading/MARC21.pm (-2 / +4 lines)
Lines 401-408 sub _get_search_heading { Link Here
401
    my $field     = shift;
401
    my $field     = shift;
402
    my $subfields = shift;
402
    my $subfields = shift;
403
403
404
    my $heading   = "";
404
    my $heading = "";
405
    return $heading unless $subfields;
405
    return $heading unless $subfields;
406
406
    my @subfields = $field->subfields();
407
    my @subfields = $field->subfields();
407
    my $first     = 1;
408
    my $first     = 1;
408
    for ( my $i = 0 ; $i <= $#subfields ; $i++ ) {
409
    for ( my $i = 0 ; $i <= $#subfields ; $i++ ) {
Lines 439-446 sub _get_display_heading { Link Here
439
    my $field     = shift;
440
    my $field     = shift;
440
    my $subfields = shift;
441
    my $subfields = shift;
441
442
442
    my $heading   = "";
443
    my $heading = "";
443
    return $heading unless $subfields;
444
    return $heading unless $subfields;
445
444
    my @subfields = $field->subfields();
446
    my @subfields = $field->subfields();
445
    my $first     = 1;
447
    my $first     = 1;
446
    for ( my $i = 0 ; $i <= $#subfields ; $i++ ) {
448
    for ( my $i = 0 ; $i <= $#subfields ; $i++ ) {
(-)a/t/db_dependent/Authority/Merge.t (-1 / +8 lines)
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
- 

Return to bug 36917