Changeset 1920

Timestamp:

2001-02-07T13:46:55+13:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/perllib/sorttools.pm

@@ -37 +37 @@
 
     $$stringref =~ tr/A-Z/a-z/;
-    $$stringref =~ s/&\S;//g;
+    $$stringref =~ s/&\S+;//g;
     $$stringref =~ s/[^a-z0-9 ]//g;
     $$stringref =~ s/^\s*(the|a|an)\b//;
@@ -50 +50 @@
 
     $$stringref =~ tr/A-Z/a-z/;
-    $$stringref =~ s/&\S;//g;
+    $$stringref =~ s/&\S+;//g;
     $$stringref =~ s/[^a-z0-9 ]//g;
     $$stringref =~ s/\s+/ /g;