Changeset 20008 for gsdl/trunk/perllib/classify/SimpleList.pm

Timestamp:

2009-07-17T19:05:24+12:00 (15 years ago)

Author:

ak19

Message:

Adjusted the code to deal with 1. semicolons and commas separating metadata fieldnames, 2. Greenstone extracted metadata fieldnames being referred to with the ex. prefix, 3. List's partition_type_within_level option is to be an enumerated type (dropdown list).

File:

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

gsdl/trunk/perllib/classify/SimpleList.pm

@@ -75 +75 @@
     my (@meta_list,$meta1);
     if ($self->{"metadata"}) {
-    @meta_list = split(/,/, $self->{"metadata"});
+    @meta_list = split(/,|;/, $self->{"metadata"});
     $meta1 = $meta_list[0];
     $self->{'meta_list'} = \@meta_list;