Changeset 14955 for gsdl/trunk/perllib/plugins/MetadataXMLPlug.pm

Timestamp:

2008-02-07T13:32:26+13:00 (16 years ago)

Author:

mdewsnip

Message:

Fixed MetadataXMLPlug.pm so empty values in metadata.xml files aren't ignored. It's sometimes important to be able to specify empty values (which are quite different from no value at all).

File:

• gsdl/trunk/perllib/plugins/MetadataXMLPlug.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/MetadataXMLPlug.pm

@@ -222 +222 @@
     elsif ($element eq "Metadata") {
     $self->{'metadata_name'} = $_{'name'};
+    $self->{'metadata_value'} = "";
     if ((defined $_{'mode'}) && ($_{'mode'} eq "accumulate")) {
         $self->{'metadata_accumulate'} = 1;
@@ -250 +251 @@
     }
     elsif ($element eq "Metadata") {
+    $self->store_saved_metadata($self->{'metadata_name'}, $self->{'metadata_value'}, $self->{'metadata_accumulate'});
     $self->{'metadata_name'} = "";
     }
@@ -263 +265 @@
     elsif (defined ($self->{'metadata_name'}) && $self->{'metadata_name'} ne "") {
     # $_ == Metadata content
-    my $mname = $self->{'metadata_name'};
-    my $mvalue = $_;
-    my $md_accumulate = $self->{'metadata_accumulate'};
-    $self->store_saved_metadata($mname,$mvalue,$md_accumulate);
+    $self->{'metadata_value'} = $_;
     }
 }