Changeset 22349 for main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2010-07-05T15:46:54+12:00 (14 years ago)

Author:

kjdon

Message:

if metadata extracted from item file has a namespace, then prefix it with ex. so that it shows up in GLI

File:

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

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

@@ -472 +472 @@
     $self->{'current_section'} = $doc_obj->get_parent_section($self->{'current_section'});
     } elsif ($element eq "Metadata") {
-    
-    $doc_obj->add_utf8_metadata ($self->{'current_section'}, $self->{'metadata_name'}, $self->{'metadata_value'});
+    my $meta_name = $self->{'metadata_name'};
+    if ($meta_name =~ /\./) {
+        $meta_name = "ex.$meta_name";
+    }
+    $doc_obj->add_utf8_metadata ($self->{'current_section'}, $meta_name, $self->{'metadata_value'});
     $self->{'metadata_name'} = "";
     $self->{'metadata_value'} = "";
@@ -565 +568 @@
     next if $line =~ /^#/; # ignore comment lines
     if ($line =~ /^<([^>]*)>\s*(.*?)\s*$/) {
-        $doc_obj->set_utf8_metadata_element ($topsection, $1, $2);
+        my $meta_name = $1;
+        my $meta_value = $2;
+        if ($meta_name =~ /\./) {
+        $meta_name = "ex.$meta_name";
+        }
+        $doc_obj->set_utf8_metadata_element ($topsection, $meta_name, $meta_value);
         #$meta->{$1} = $2;
     } else {