Filtering those signs in order not to have them interpreted.
---
C4/AuthoritiesMarc.pm | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 6080c39..638cc52 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -796,7 +796,8 @@ sub FindDuplicateAuthority {
# warn "record :".$record->as_formatted." auth_tag_to_report
:$auth_tag_to_report";
# build a request for SearchAuthorities
my $query='at='.$authtypecode.' ';
- map {$query.= " and he=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/)}
$record->field($auth_tag_to_report)->subfields() if
$record->field($auth_tag_to_report);
+ my $filtervalues=qr([\001-\040\!\'\"\`\#\$\%\&\*\+,\-\./:;<=>[EMAIL
PROTECTED](\)\{\[\]\}_\|\~]);
+ map {$_->[1]=~s/$filtervalues/ /g; warn $_->[1]; $query.= " and
he,wrdl=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/)}
$record->field($auth_tag_to_report)->subfields() if
$record->field($auth_tag_to_report);
my ($error, $results, $total_hits)=SimpleSearch( $query, 0, 1, [
"authorityserver" ] );
# there is at least 1 result => return the 1st one
if (@$results>0) {
--
1.6.0.2
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
