- Timestamp:
- 2008-02-07T13:32:26+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MetadataXMLPlug.pm
r13822 r14955 222 222 elsif ($element eq "Metadata") { 223 223 $self->{'metadata_name'} = $_{'name'}; 224 $self->{'metadata_value'} = ""; 224 225 if ((defined $_{'mode'}) && ($_{'mode'} eq "accumulate")) { 225 226 $self->{'metadata_accumulate'} = 1; … … 250 251 } 251 252 elsif ($element eq "Metadata") { 253 $self->store_saved_metadata($self->{'metadata_name'}, $self->{'metadata_value'}, $self->{'metadata_accumulate'}); 252 254 $self->{'metadata_name'} = ""; 253 255 } … … 263 265 elsif (defined ($self->{'metadata_name'}) && $self->{'metadata_name'} ne "") { 264 266 # $_ == Metadata content 265 my $mname = $self->{'metadata_name'}; 266 my $mvalue = $_; 267 my $md_accumulate = $self->{'metadata_accumulate'}; 268 $self->store_saved_metadata($mname,$mvalue,$md_accumulate); 267 $self->{'metadata_value'} = $_; 269 268 } 270 269 }
Note:
See TracChangeset
for help on using the changeset viewer.