Changeset 24402 for main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm

Timestamp:

2011-08-12T18:00:18+12:00 (13 years ago)

Author:

ak19

Message:

DSpacePlugout modified to make use of embedded dc (ex.dc) metadata for those metadata fields for which dc.meta was not assigned. Tested with DSpace example re-exported as DSpace.

File:

• main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm

@@ -61 +61 @@
     my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists);    
 
-    print STDERR "***** metadata prefix = \"", $self->{'metadata_prefix'}, "\"\n";
+#    print STDERR "***** metadata prefix = \"", $self->{'metadata_prefix'}, "\"\n";
 
     return bless $self, $class;
@@ -89 +89 @@
     my $metadata_hashmap = $doc_obj->get_metadata_hashmap($doc_obj->get_top_section(),
                                                           $metadata_prefix);
+
+    if(defined $metadata_prefix && $metadata_prefix ne "") {
+    # merge dc with any ex.dc
+
+    my $ex_dc_metadata_hashmap = $doc_obj->get_metadata_hashmap($doc_obj->get_top_section(),
+                                                          "ex.dc");
+
+    foreach my $metaname (keys %$ex_dc_metadata_hashmap) {
+        my $metaname_without_ex_prefix = $metaname;
+        $metaname_without_ex_prefix =~ s/^ex\.(.*)/$1/; # remove any ex from the ex.dc prefix
+
+        # if there's an ex.dc value for a metaname for which no dc
+        # value was assigned, put the ex.dc value into the hashmap
+        if(!defined $metadata_hashmap->{$metaname_without_ex_prefix}) { 
+        $metadata_hashmap->{$metaname_without_ex_prefix} = [];
+        push(@{$metadata_hashmap->{$metaname_without_ex_prefix}},@{$ex_dc_metadata_hashmap->{$metaname}}); 
+        }
+    }
+
+    }
 
     foreach my $metaname (keys %$metadata_hashmap) {
@@ -217 +237 @@
 
     my $metadata_prefix_list = $self->{'metadata_prefix'};
-    print STDERR "***!! md prefix = $metadata_prefix_list\n";
+#    print STDERR "***!! md prefix = $metadata_prefix_list\n";
 
     my @metadata_prefixes = split(/,\s*/,$metadata_prefix_list);