Changeset 15004 for gsdl/trunk/perllib/metadatautil.pm

Timestamp:

2008-02-22T11:32:38+13:00 (16 years ago)

Author:

davidb

Message:

In response to developing a custom plugin that stores metadata similar to MetadataXMLPlug, some functionality was shifted around so the custom plugin could also access it, and a couple of edits made so the two worked properly side by side.

File:

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

gsdl/trunk/perllib/metadatautil.pm

@@ -112 +112 @@
 }
 
+
+sub store_saved_metadata
+{
+    my ($plug,$mname,$mvalue,$md_accumulate) = @_;
+
+    if (defined $plug->{'saved_metadata'}->{$mname}) {
+    if ($md_accumulate) {
+        # accumulate mode - add value to existing value(s)
+        if (ref ($plug->{'saved_metadata'}->{$mname}) eq "ARRAY") {
+        push (@{$plug->{'saved_metadata'}->{$mname}}, $mvalue);
+        } else {
+        $plug->{'saved_metadata'}->{$mname} = 
+            [$plug->{'saved_metadata'}->{$mname}, $mvalue];
+        }
+    } else {
+        # override mode
+        $plug->{'saved_metadata'}->{$mname} = $mvalue;
+    }
+    } else {
+    if ($md_accumulate) {
+        # accumulate mode - add value into (currently empty) array
+        $plug->{'saved_metadata'}->{$mname} = [$mvalue];
+    } else {
+        # override mode
+        $plug->{'saved_metadata'}->{$mname} = $mvalue;
+    }
+    }
+}
+
+
 1;