Changeset 22349
- Timestamp:
- 2010-07-05T15:46:54+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm
r21721 r22349 472 472 $self->{'current_section'} = $doc_obj->get_parent_section($self->{'current_section'}); 473 473 } elsif ($element eq "Metadata") { 474 475 $doc_obj->add_utf8_metadata ($self->{'current_section'}, $self->{'metadata_name'}, $self->{'metadata_value'}); 474 my $meta_name = $self->{'metadata_name'}; 475 if ($meta_name =~ /\./) { 476 $meta_name = "ex.$meta_name"; 477 } 478 $doc_obj->add_utf8_metadata ($self->{'current_section'}, $meta_name, $self->{'metadata_value'}); 476 479 $self->{'metadata_name'} = ""; 477 480 $self->{'metadata_value'} = ""; … … 565 568 next if $line =~ /^#/; # ignore comment lines 566 569 if ($line =~ /^<([^>]*)>\s*(.*?)\s*$/) { 567 $doc_obj->set_utf8_metadata_element ($topsection, $1, $2); 570 my $meta_name = $1; 571 my $meta_value = $2; 572 if ($meta_name =~ /\./) { 573 $meta_name = "ex.$meta_name"; 574 } 575 $doc_obj->set_utf8_metadata_element ($topsection, $meta_name, $meta_value); 568 576 #$meta->{$1} = $2; 569 577 } else {
Note:
See TracChangeset
for help on using the changeset viewer.