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

(-)a/C4/AuthoritiesMarc.pm (-1 / +11 lines)
Lines 1613-1618 sub merge { Link Here
1613
    $authtypefrom = Koha::Authority::Types->find( $authfrom->authtypecode ) if $authfrom;
1613
    $authtypefrom = Koha::Authority::Types->find( $authfrom->authtypecode ) if $authfrom;
1614
    my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';
1614
    my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';
1615
    my $auth_tag_to_report_to   = $authtypeto   ? $authtypeto->auth_tag_to_report   : '';
1615
    my $auth_tag_to_report_to   = $authtypeto   ? $authtypeto->auth_tag_to_report   : '';
1616
    my $subfield_to_report_in_1 = $authtypeto   ? $authtypeto->subfield_to_report_in_1 : '';
1616
1617
1617
    my @record_to;
1618
    my @record_to;
1618
1619
Lines 1635-1640 sub merge { Link Here
1635
        @record_to = $chosen_field->subfields();
1636
        @record_to = $chosen_field->subfields();
1636
    }
1637
    }
1637
1638
1639
    if ($subfield_to_report_in_1 && $MARCto) {
1640
        my ( $tag, $code ) = split /\$/, $subfield_to_report_in_1;
1641
1642
        foreach my $field ( $MARCto->field($tag) ) {
1643
            foreach my $subfield ( $field->subfield($code) ) {
1644
                push @record_to, ['1', $subfield];
1645
            }
1646
        }
1647
    }
1648
1638
    # Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to
1649
    # Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to
1639
    # is empty, make sure that $9 and $a remain (instead of clearing the
1650
    # is empty, make sure that $9 and $a remain (instead of clearing the
1640
    # reference) in order to allow for data recovery.
1651
    # reference) in order to allow for data recovery.
1641
- 

Return to bug 22972