Changeset 839 for trunk

Timestamp:

1999-12-13T16:56:57+13:00 (24 years ago)

Author:

davidb

Message:

added extra_metadata function

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -33 +33 @@
 }
 
+sub begin {
+    my $self = shift (@_);
+    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+}
+
+sub end {
+    my ($self) = @_;
+}
+
 # return 1 if this class might recurse using $pluginfo
 sub is_recursive {
@@ -52 +61 @@
 }
 
+sub extra_metadata
+{
+    my ($self,$doc_obj,$cursection, $metadata) = @_;
+
+    foreach $field (keys(%$metadata)) {
+    # $metadata->{$field} may be an array reference
+    if (ref ($metadata->{$field}) eq "ARRAY") {
+        map { 
+        $doc_obj->add_metadata ($cursection, $field, $_); 
+        } @{$metadata->{$field}};
+    } else {
+        $doc_obj->add_metadata ($cursection, $field, $metadata->{$field}); 
+    }
+    }
+}
 
 1;