Changeset 20422

Show
Ignore:
Timestamp:
28.08.2009 12:51:24 (10 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify/HFileHierarchy.pm

    r18455 r20422  
    109109     
    110110    $self->{'buttonname'} = $self->generate_title_from_metadata($metadata) unless ($self->{'buttonname'}); 
    111  
    112     #$self->{'metaname'} = $metadata; 
     111    # strip ex from metadata 
     112    $metadata =~ s/^ex\.//; 
     113    $metadata =~ s/,ex\./,/g; 
     114 
    113115    my @meta_list = split(/,/, $metadata); 
    114116    $self->{'meta_list'} = \@meta_list; 
     
    118120    $self->{'sort'} = undef; 
    119121    } 
    120  
    121     # sortname is handled a bit differently - kjdon 
    122     # undef means to sort, but use the metadata value from -metadata 
    123     # because there is no one metadata value to get for sorting when  
    124     # we have a list of possible metadata. 
    125     # To get no sorting, set sortname = 'nosort' 
    126     # we don't need to set it to undef if its not defined do we??? 
    127  
    128 #    if (!$self->{'sort'}) { 
    129 #   if (defined ($metadata)) { 
    130 #       $sortname = undef; 
    131 #   } else { 
    132 #       $sortname = "nosort"; 
    133 #   } 
    134 #    } 
    135  #   $self->{'sortname'} = $sortname; 
    136  
    137     #if (defined $self->{'sort'} && $reverse_sort) { 
    138 #   $self->{'reverse_sort'} = 1; 
    139  #   } 
     122    if (defined $self->{'sort'}) { # remove ex. namespace 
     123    $self->{'sort'} =~ s/^ex\.//; 
     124    } 
    140125     
    141126    if ($self->{'hfile'}) {