Changeset 10190

Timestamp:

2005-06-28T14:51:36+12:00 (19 years ago)

Author:

kjdon

Message:

reversed the order, in format_string_en, of the 'remove everything not alphanum' and 'remove leading articles' (which depends on word breaks which have been removed in the first line

File:

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

trunk/gsdl/perllib/sorttools.pm

@@ -57 +57 @@
     }
     }
-
+    
     return $metavalue;
 }
@@ -70 +70 @@
 sub format_string_en {
     my $stringref = shift;
-
     $$stringref = lc($$stringref);
     $$stringref =~ s/&[^\;]+\;//g; # html entities
+    $$stringref =~ s/^\s*(the|a|an)\b//; # articles
     $$stringref =~ s/[^[:alnum:]]//g;
-    $$stringref =~ s/^\s*(the|a|an)\b//; # articles
     $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;