Changeset 22451 for main/trunk/greenstone2/perllib/plugins/EmbeddedMetadataPlugin.pm

Timestamp:

2010-07-20T15:18:11+12:00 (14 years ago)

Author:

kjdon

Message:

added metadata_field_separator option. if set eg to ;, will split all metadata on this character. used for multivalued metadata

File:

• main/trunk/greenstone2/perllib/plugins/EmbeddedMetadataPlugin.pm (modified) (4 diffs)

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

@@ -44 +44 @@
 
 my $arguments =
-    [ ];
+    [ { 'name' => "metadata_field_separator",
+    'desc' => "{HTMLPlugin.metadata_field_separator}",
+    'type' => "string",
+    'deft' => "" }
+
+];
 
 
@@ -105 +110 @@
     my $metadata_count = 0;
     
+    my $separator = $self->{'metadata_field_separator'};
+    if ($separator eq "") {
+    undef $separator;
+    }
+
     my @group_list = Image::ExifTool::GetAllGroups(0);
     foreach my $group (@group_list)
@@ -132 +142 @@
         }
 
-        my $array = 0;
+        my $metadata_done = 0;
         if (ref $value eq 'SCALAR') {
             
@@ -146 +156 @@
         }
         elsif (ref $value eq 'ARRAY') {
-            $array = 1;
+            $metadata_done = 1;
             foreach my $v (@$value) {
             push (@{$exif_metadata{$field}}, $self->gsSafe($v));
-            #print STDERR "**** adding array $field: $v\n";
             ++$metadata_count;
             }
         }
-        if (!$array) {
+        else {
+            if (defined $separator) {
+            my @vs = split($separator, $value);
+            $metadata_done = 1;
+            foreach my $v (@vs) {
+                if ($v =~ /\S/) {
+                push (@{$exif_metadata{$field}}, $self->gsSafe($v));
+                ++$metadata_count; 
+                }
+            }
+            }
+        }
+        if (!$metadata_done) {
             push (@{$exif_metadata{$field}}, $self->gsSafe($value));
-            #print STDERR "**** adding $field: $value\n";
-            
             ++$metadata_count;
         }