Changeset 20429

Timestamp:

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

Author:

kjdon

Message:

strip ex from metadata and sort arguments

File:

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

gsdl/trunk/perllib/classify/AZCompactList.pm

@@ -139 +139 @@
     }
 
+    $self->{'metadata'} = $self->strip_ex_from_metadata($self->{'metadata'});
     # Manually set $self parameters.
     $self->{'list'} = {};
@@ -156 +157 @@
     
     $self->{'recopt'} = ($self->{'recopt'} == 0) ? undef : "on";
-
+    
+    if (defined $self->{'sort'}) {
+    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'});
+    }
     # Clean out the unused keys
     if($self->{"removeprefix"} eq "") {delete $self->{"removeprefix"};}