Changeset 9053
- Timestamp:
- 2005-02-16T11:34:40+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r8914 r9053 291 291 } elsif ($tag =~ /^Metadata name=$quot(.*?)$quot/s) { 292 292 my $metaname = $1; 293 my $accumulate = $tag =~ /mode=${quot}accumulate${quot}/ ? 1 : 0; 293 294 $comment =~ s/^(.*?)$lt\/Metadata$gt//s; 294 295 my $metavalue = $1; … … 302 303 $metavalue =~ s/<[^>]+>//sg; 303 304 $metavalue =~ s/\s+/ /sg; 304 $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue); 305 if ($accumulate) { 306 $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue); 307 } else { 308 $doc_obj->set_utf8_metadata_element($cursection, $metaname, $metavalue); 309 } 305 310 } elsif ($tag eq "Description" || $tag eq "/Description") { 306 311 # do nothing with containing Description tags
Note:
See TracChangeset
for help on using the changeset viewer.