Changeset 5679

Timestamp:

2003-10-17T10:27:52+13:00 (21 years ago)

Author:

mdewsnip

Message:

Fixed a bug in format_string_english which was removing more of the metadata value than it should when multiple HTML entities were present.

File:

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

trunk/gsdl/perllib/sorttools.pm

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