Changeset 20427

Show
Ignore:
Timestamp:
28.08.2009 13:28:48 (10 years ago)
Author:
kjdon
Message:

strip off ex. from metadata and sort arguments

Files:
1 modified

Legend:

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

    r20008 r20427  
    7575    my (@meta_list,$meta1); 
    7676    if ($self->{"metadata"}) { 
     77    # strip off ex. 
     78    $self->{"metadata"} = $self->strip_ex_from_metadata($self->{'metadata'}); 
     79    print STDERR "new meta = $self->{'metadata'}\n"; 
    7780    @meta_list = split(/,|;/, $self->{"metadata"}); 
    7881    $meta1 = $meta_list[0]; 
     
    104107    } 
    105108    }     
     109    if (defined $self->{'sort'}) { 
     110    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'}); 
     111    } 
    106112    if (defined  $self->{"sort"} &&  $self->{"sort"} eq "nosort") { 
    107113    $self->{'list'} = [];