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 2857e2a..a07196b 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(/[, ]/, $&)) . $';