Changeset 21800 for main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm

Timestamp:

2010-03-17T12:33:06+13:00 (14 years ago)

Author:

kjdon

Message:

added a new option, metadata_field_separator, which specifies what to split on for multi-valued metadata

File:

• main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm

@@ -75 +75 @@
     'type' => "string",
     'deft' => "Title" },
+      { 'name' => "metadata_field_separator",
+    'desc' => "{HTMLPlugin.metadata_field_separator}",
+    'type' => "string",
+    'deft' => "" },
       { 'name' => "hunt_creator_metadata",
     'desc' => "{HTMLPlugin.hunt_creator_metadata}",
@@ -923 +927 @@
     return if (!defined $self->{'metadata_fields'});
 
+    my $separator = $self->{'metadata_field_separator'};
+    if ($separator eq "") {
+    undef $separator;
+    }
+
     # metadata fields to extract/save. 'key' is the (lowercase) name of the
     # html meta, 'value' is the metadata name for greenstone to use
@@ -1036 +1045 @@
     #    $tag = lc($tag);
     #}
-
-    $doc_obj->add_utf8_metadata($section, $tag, $value);
-
+    if (defined $separator) {
+        my @values = split($separator, $value);
+        foreach my $v (@values) {
+        $doc_obj->add_utf8_metadata($section, $tag, $v) if $v =~ /\S/;
+        }
+    }
+    else {
+        $doc_obj->add_utf8_metadata($section, $tag, $value);
+    }
     }