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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 611-617 sub LinkBibHeadingsToAuthorities { Link Here
611
                    # be included in the authority record. Strip those before creation
611
                    # be included in the authority record. Strip those before creation
612
                    next unless @auth_subfields; # Don't try to create a record if we have no fields;
612
                    next unless @auth_subfields; # Don't try to create a record if we have no fields;
613
                    my $last_sub = pop @auth_subfields;
613
                    my $last_sub = pop @auth_subfields;
614
                    $last_sub =~ s/[\s]*[,.:=;!%\/][\s]*$//;
614
                    $last_sub =~ s/[\s]*[-,.:=;!%\/][\s]*$//;
615
                    push @auth_subfields, $last_sub;
615
                    push @auth_subfields, $last_sub;
616
                    my $authfield = MARC::Field->new( $authority_type->auth_tag_to_report, '', '', @auth_subfields );
616
                    my $authfield = MARC::Field->new( $authority_type->auth_tag_to_report, '', '', @auth_subfields );
617
                    $marcrecordauth->insert_fields_ordered($authfield);
617
                    $marcrecordauth->insert_fields_ordered($authfield);
(-)a/C4/Heading/UNIMARC.pm (-2 / +1 lines)
Lines 160-166 sub _get_search_heading { Link Here
160
        my $code    = $subfields[$i]->[0];
160
        my $code    = $subfields[$i]->[0];
161
        my $code_re = quotemeta $code;
161
        my $code_re = quotemeta $code;
162
        my $value   = $subfields[$i]->[1];
162
        my $value   = $subfields[$i]->[1];
163
        $value =~ s/[-,.:=;!%\/]*$//;
163
        $value =~ s/[\s]*[-,.:=;!%\/][\s]*$//;
164
        next unless $subfields =~ qr/$code_re/;
164
        next unless $subfields =~ qr/$code_re/;
165
        if ($first) {
165
        if ($first) {
166
            $first   = 0;
166
            $first   = 0;
167
- 

Return to bug 28628