Treat a Polish l as an ASCII l in full-text search

Is this code path even hit these days? Would have expected
naco_normalize to be poking around here if that was the case...

Signed-off-by: Dan Scott <dscott@laurentian.ca>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/fts.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/fts.pm
index 429f9d7..504960b 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/fts.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/fts.pm
@@ -24,6 +24,9 @@
         $term =~ s/(\pM+)//gos;
         $term =~ s/(\b\.\b)//gos;
 
+        $term =~ s/\x{142}/l/sgo; # Convert Polish l (lowercase)
+        $term =~ s/\x{141}/l/sgo; # Convert Polish l (uppercase)
+
         # hack to normalize ratio-like strings
         while ($term =~ /\b\d{1}:[, ]?\d+(?:[ ,]\d+[^:])+/o) {
             $term = $` . join ('', split(/[, ]/, $&)) . $';