Changeset 20428

Timestamp:

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

Author:

kjdon

Message:

strip ex from metadata argument before using it

File:

• gsdl/trunk/perllib/classify/AZList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/AZList.pm

@@ -89 +89 @@
 
     # Transfer value from Auto Parsing to the variable name that used in previous GreenStone.
-    my @meta_list = split(/,/, $self->{"metadata"});
+    my $metadata = $self->{"metadata"};
+    $metadata = $self->strip_ex_from_metadata($metadata);
+    my @meta_list = split(/,/, $metadata);
     $self->{'meta_list'} = \@meta_list;
 
-    $self->{'buttonname'} = $self->generate_title_from_metadata($self->{'metadata'}) unless ($self->{'buttonname'});
+    $self->{'buttonname'} = $self->generate_title_from_metadata($metadata) unless ($self->{'buttonname'});
 
     # Further setup