Changeset 11030

Timestamp:

2006-01-13T11:19:35+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now removes extra spaces around the '|' (separator) characters.

File:

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

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -106 +106 @@
     foreach my $folderName (@chunks) 
     {
+        # Removing leading and trailing spaces
+        $folderName =~ s/^(\s+)//;
+        $folderName =~ s/(\s+)$//;
         if ($folderName ne ""){ #sometimes the tokens are empty
         $current_pos = $self->add_To_Hash($path_hash, $folderName, $nosort);