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