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

(-)a/C4/AuthoritiesMarc.pm (-2 / +1 lines)
Lines 853-859 sub FindDuplicateAuthority { Link Here
853
        $op = 'and';
853
        $op = 'and';
854
    }
854
    }
855
    my $query='at:'.$authtypecode.' ';
855
    my $query='at:'.$authtypecode.' ';
856
    my $filtervalues=qr([\001-\040\!\'\"\`\#\$\%\&\*\+,\-\./:;<=>\?\@\(\)\{\[\]\}_\|\~]);
856
    my $filtervalues=qr([\001-\040\Q!'"`#$%&*+,-./:;<=>?@(){[}_|~\E\]]);
857
    if ($record->field($auth_tag_to_report)) {
857
    if ($record->field($auth_tag_to_report)) {
858
        foreach ($record->field($auth_tag_to_report)->subfields()) {
858
        foreach ($record->field($auth_tag_to_report)->subfields()) {
859
            $_->[1]=~s/$filtervalues/ /g; $query.= " $op he:\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/);
859
            $_->[1]=~s/$filtervalues/ /g; $query.= " $op he:\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/);
860
- 

Return to bug 12654