Changeset 20429

Show
Ignore:
Timestamp:
28.08.2009 13:37:36 (10 years ago)
Author:
kjdon
Message:

strip ex from metadata and sort arguments

Files:
1 modified

Legend:

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

    r20008 r20429  
    139139    } 
    140140 
     141    $self->{'metadata'} = $self->strip_ex_from_metadata($self->{'metadata'}); 
    141142    # Manually set $self parameters. 
    142143    $self->{'list'} = {}; 
     
    156157     
    157158    $self->{'recopt'} = ($self->{'recopt'} == 0) ? undef : "on"; 
    158  
     159     
     160    if (defined $self->{'sort'}) { 
     161    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'}); 
     162    } 
    159163    # Clean out the unused keys 
    160164    if($self->{"removeprefix"} eq "") {delete $self->{"removeprefix"};}