Changeset 20427

Timestamp:

2009-08-28T13:28:48+12:00 (15 years ago)

Author:

kjdon

Message:

strip off ex. from metadata and sort arguments

File:

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

gsdl/trunk/perllib/classify/SimpleList.pm

@@ -75 +75 @@
     my (@meta_list,$meta1);
     if ($self->{"metadata"}) {
+    # strip off ex.
+    $self->{"metadata"} = $self->strip_ex_from_metadata($self->{'metadata'});
+    print STDERR "new meta = $self->{'metadata'}\n";
     @meta_list = split(/,|;/, $self->{"metadata"});
     $meta1 = $meta_list[0];
@@ -104 +107 @@
     }
     }    
+    if (defined $self->{'sort'}) {
+    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'});
+    }
     if (defined  $self->{"sort"} &&  $self->{"sort"} eq "nosort") {
     $self->{'list'} = [];