Changeset 22316 for main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm

Timestamp:

2010-06-28T15:24:56+12:00 (14 years ago)

Author:

kjdon

Message:

store extracted namespaced metadata as ex.metadata, eg ex.dc.Title, then it will show up in GLI.

File:

• main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm (modified) (2 diffs)

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

@@ -212 +212 @@
     my $document_metadata_field = $self->{'document_field'};
     my $url_array = $new_metadata->{$document_metadata_field};
+    if (!defined $url_array) {
+    # try ex.
+    $url_array = $new_metadata->{"ex.$document_metadata_field"};
+    }
     my $num_urls = (defined $url_array) ? scalar(@$url_array) : 0;
     ##print STDERR "$num_urls urls for $file\n";
@@ -517 +521 @@
         $metavalue =~ s/\]/]/g;
 
-        if (defined $metadata->{$metaname})
+        # so that GLI can see this metadata, store here as ex.dc.Title etc
+        my $ex_metaname = "ex.$metaname";
+
+        if (defined $metadata->{$ex_metaname})
         {
-        push(@{$metadata->{$metaname}},$metavalue);
+        push(@{$metadata->{$ex_metaname}},$metavalue);
 
         }
         else
         {
-        $metadata->{$metaname} = [ $metavalue ];
+        $metadata->{$ex_metaname} = [ $metavalue ];
         }
 
+        # but don't add ex to the pretty print line
         $self->add_prettyprint_metadata_line($metaname, $metavalue);