Changeset 33451

Timestamp:

2019-09-03T12:55:13+12:00 (5 years ago)

Author:

kjdon

Message:

added a comment

File:

• main/trunk/greenstone2/perllib/sorttools.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/sorttools.pm

@@ -78 +78 @@
     $$stringref =~ s/&[^\;]+\;//g; # html entities
     $$stringref =~ s/^\s*(the|a|an)\b//; # articles
-    $$stringref =~ s/[^[:alnum:]]//g;
+    $$stringref =~ s/[^[:alnum:]]//g; # remove any non-alphanumeric chars from start of the string
     $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;