Changeset 24306 for main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm

Timestamp:

2011-07-22T20:24:23+12:00 (13 years ago)

Author:

ak19

Message:

More changes to do with the ex. prefixed to embedded metadata (that may have an additional metadata set as namespace qualifier). The C code now removes the ex. prefix only if there are no other metadataset qualifiers in the metadata name.

File:

• main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm (modified) (3 diffs)

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

@@ -286 +286 @@
     }
 
-    my $mimetype_list = $self->{'saved_metadata'}->{'dc.Format^mimetype'};
+    my $mimetype_list = $self->{'saved_metadata'}->{'ex.dc.Format^mimetype'};
     my ($doc_file_mimes, $assoc_file_mimes) = $self->read_content($dir, $only_first_doc, $first_inorder_ext, 
                                   $first_inorder_mime, $mimetype_list);
@@ -300 +300 @@
     push(@$extrametakeys,$file_re);
 
-    if (defined $self->{'saved_metadata'}->{'dc.Format^extent'}) {
-    delete $self->{'saved_metadata'}->{'dc.Format^extent'};
+    if (defined $self->{'saved_metadata'}->{'ex.dc.Format^extent'}) {
+    delete $self->{'saved_metadata'}->{'ex.dc.Format^extent'};
     }
 
     if (defined $mimetype_list) {
-    delete $self->{'saved_metadata'}->{'dc.Format^mimetype'};
+    delete $self->{'saved_metadata'}->{'ex.dc.Format^mimetype'};
 
     # Temporarily store associate file info in metadata table
@@ -369 +369 @@
     if ($metaname ne "description" || $qualifier ne "provenance") {
         $metaname .= "^$qualifier" if ($qualifier ne "none" && $qualifier ne "");
-        $self->{'metaname'} = "dc.\u$metaname";
+        $self->{'metaname'} = "ex.dc.\u$metaname";
     }
     }