Changeset 23827 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2011-03-28T10:54:36+13:00 (13 years ago)

Author:

sjm84

Message:

Phase four of commiting the files changed to extend the DSpace exporting capabilities to include more than just dublin core metadata

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/doc.pm

@@ -842 +842 @@
 }
 
+sub get_metadata_hashmap {
+    my $self = shift (@_);
+    my ($section, $opt_namespace) = @_;
+    
+    my $section_ptr = $self->_lookup_section($section);
+    if (!defined $section_ptr) {
+            print STDERR "doc::get_metadata couldn't find section ",
+            $section, "\n";
+            return;
+        }
+
+    my $metadata_hashmap = {};
+    foreach my $data (@{$section_ptr->{'metadata'}}) {
+            my $metaname = $data->[0];
+          
+            if ((!defined $opt_namespace) || ($metaname =~ m/^$opt_namespace\./)) {
+                if (!defined $metadata_hashmap->{$metaname}) {
+                    $metadata_hashmap->{$metaname} = [];
+                  }
+                my $metaval_list = $metadata_hashmap->{$metaname};
+                push(@$metaval_list, $data->[1]); 
+              }
+          }
+    
+    return $metadata_hashmap;
+}
+
 # returns a list of the form [[field,value],[field,value],...]
 sub get_all_metadata {