Changeset 9056

Timestamp:

2005-02-16T11:59:50+13:00 (19 years ago)

Author:

kjdon

Message:

added an option to not strip html tags from metadata in description tags. contributed by jens wille

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -91 +91 @@
       { 'name' => "description_tags",
     'desc' => "{HTMLPlug.description_tags}",
-    'type' => "flag" } ];
+    'type' => "flag" } ,
+      { 'name' => "no_strip_metadata_html",
+    'desc' => "{HTMLPlug.no_strip_metadata_html}",
+    'type' => "string",
+    'deft' => "",
+    'reqd' => "no"}
+      ];
 
 my $options = { 'name'     => "HTMLPlug",
@@ -119 +125 @@
              q^title_sub/.*/^, \$self->{'title_sub'},
              q^description_tags^, \$self->{'description_tags'},
+             q^no_strip_metadata_html/.*/^, \$self->{'no_strip_metadata_html'},
              "allow_extra_options")) {
 
@@ -300 +307 @@
                     # were probably introduced when converting to HTML from
                     # some other format).
+            # actually some people want to have html tags in their 
+            # metadata.
             $metavalue =~ s/[\cJ\cM]/ /sg;
-            $metavalue =~ s/<[^>]+>//sg;
+            my $dont = '';
+            if ($self->{'no_strip_metadata_html'}) {
+            ($dont = $self->{'no_strip_metadata_html'}) =~ s{,}{|}g;
+            }
+            $metavalue =~ s/<[^>]+>//sg
+            unless $dont && ($dont eq 'all' || $metaname =~ /^($dont)$/);
+            if ($dont && ($dont eq 'all' || $metaname =~ /^($dont)$/)) {
+            }
             $metavalue =~ s/\s+/ /sg;
             if ($accumulate) {