Changeset 20422 for gsdl/trunk/perllib/classify/HFileHierarchy.pm

Timestamp:

2009-08-28T12:51:24+12:00 (15 years ago)

Author:

kjdon

Message:

removed some commented out code. strip ex off metadata and sort arguments

File:

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

gsdl/trunk/perllib/classify/HFileHierarchy.pm

@@ -109 +109 @@
     
     $self->{'buttonname'} = $self->generate_title_from_metadata($metadata) unless ($self->{'buttonname'});
-
-    #$self->{'metaname'} = $metadata;
+    # strip ex from metadata
+    $metadata =~ s/^ex\.//;
+    $metadata =~ s/,ex\./,/g;
+
     my @meta_list = split(/,/, $metadata);
     $self->{'meta_list'} = \@meta_list;
@@ -118 +120 @@
     $self->{'sort'} = undef;
     }
-
-    # sortname is handled a bit differently - kjdon
-    # undef means to sort, but use the metadata value from -metadata
-    # because there is no one metadata value to get for sorting when 
-    # we have a list of possible metadata.
-    # To get no sorting, set sortname = 'nosort'
-    # we don't need to set it to undef if its not defined do we???
-
-#    if (!$self->{'sort'}) {
-#   if (defined ($metadata)) {
-#       $sortname = undef;
-#   } else {
-#       $sortname = "nosort";
-#   }
-#    }
- #   $self->{'sortname'} = $sortname;
-
-    #if (defined $self->{'sort'} && $reverse_sort) {
-#   $self->{'reverse_sort'} = 1;
- #   }
+    if (defined $self->{'sort'}) { # remove ex. namespace
+    $self->{'sort'} =~ s/^ex\.//;
+    }
     
     if ($self->{'hfile'}) {