Changeset 18902 for gsdl/trunk/perllib

Timestamp:

2009-04-07T16:08:52+12:00 (15 years ago)

Author:

mdewsnip

Message:

Same fix to format_string_fr() and format_string_es() as Katherine made to format_string_en() in June 2005.

File:

• gsdl/trunk/perllib/sorttools.pm (modified) (2 diffs)

gsdl/trunk/perllib/sorttools.pm

@@ -114 +114 @@
     $$stringref = lc($$stringref);
     $$stringref =~ s/&[^\;]+\;//g; # html entities
-    $$stringref =~ s/[^[:alpha:]]//g;
     $$stringref =~ s/^\s*(les?|la|une?)\b//; # articles
+    $$stringref =~ s/[^[:alnum:]]//g;
     $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;
@@ -126 +126 @@
     $$stringref = lc($$stringref);
     $$stringref =~ s/&[^\;]+\;//g; # html entities
-    $$stringref =~ s/[^[:alpha:]]//g;
     $$stringref =~ s/^\s*(la|el)\b//; # articles
+    $$stringref =~ s/[^[:alnum:]]//g;
     $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;