Changeset 7042 for trunk/gsdl/perllib/classify/AZCompactList.pm

Timestamp:

2004-03-15T11:47:57+13:00 (20 years ago)

Author:

davidb

Message:

Code add to remove white space from around metadata values
that takes account of line breaks in XML

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -266 +266 @@
     foreach $metavalue (@$metavalues) 
     {
+        # Tidy up use of white space in metavalue for classifying
+        $metavalue =~ s/^\s*//s;
+        $metavalue =~ s/\s*$//s;
+        $metavalue =~ s/\n/ /s;
+        $metavalue =~ s/\s{2,}/ /s;
+
         # if this document doesn't contain the metadata element we're
         # sorting by we won't include it in this classification