Changeset 9053

Timestamp:

2005-02-16T11:34:40+13:00 (19 years ago)

Author:

kjdon

Message:

changed the description tags metadata handling again. now uses an accumulate attribute to determine whether to set or add the metadata

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -291 +291 @@
         } elsif ($tag =~ /^Metadata name=$quot(.*?)$quot/s) {
             my $metaname = $1;
+            my $accumulate = $tag =~ /mode=${quot}accumulate${quot}/ ? 1 : 0;
             $comment =~ s/^(.*?)$lt\/Metadata$gt//s;
             my $metavalue = $1;
@@ -302 +303 @@
             $metavalue =~ s/<[^>]+>//sg;
             $metavalue =~ s/\s+/ /sg;
-            $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue);
+            if ($accumulate) {
+            $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue);
+            } else {
+            $doc_obj->set_utf8_metadata_element($cursection, $metaname, $metavalue);    
+            }
         } elsif ($tag eq "Description" || $tag eq "/Description") {
             # do nothing with containing Description tags