Changeset 20008 for gsdl/trunk/perllib/classify/AZCompactList.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/AZCompactList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/AZCompactList.pm

@@ -190 +190 @@
 
     $metaname =~ s/(\/|\|).*//; # grab first name in n1/n2/n3 or n1|n2|n3 list
-    my @commameta_list = split(/,/, $metaname);
+    my @commameta_list = split(/,|;/, $metaname);
 
     if ($self->{'doclevel'} =~ /^top(level)?/i)