Changeset 18902

Show
Ignore:
Timestamp:
07.04.2009 16:08:52 (11 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/sorttools.pm

    r15894 r18902  
    114114    $$stringref = lc($$stringref); 
    115115    $$stringref =~ s/&[^\;]+\;//g; # html entities 
    116     $$stringref =~ s/[^[:alpha:]]//g; 
    117116    $$stringref =~ s/^\s*(les?|la|une?)\b//; # articles 
     117    $$stringref =~ s/[^[:alnum:]]//g; 
    118118    $$stringref =~ s/\s+/ /g; 
    119119    $$stringref =~ s/^\s+//; 
     
    126126    $$stringref = lc($$stringref); 
    127127    $$stringref =~ s/&[^\;]+\;//g; # html entities 
    128     $$stringref =~ s/[^[:alpha:]]//g; 
    129128    $$stringref =~ s/^\s*(la|el)\b//; # articles 
     129    $$stringref =~ s/[^[:alnum:]]//g; 
    130130    $$stringref =~ s/\s+/ /g; 
    131131    $$stringref =~ s/^\s+//;