Changeset 9057

Timestamp:

2005-02-16T12:03:23+13:00 (19 years ago)

Author:

kjdon

Message:

tidied up previous commit

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -277 +277 @@
     my $quot = '(?:"|"|”|“)';
 
+    my $dont_strip = '';
+    if ($self->{'no_strip_metadata_html'}) {
+        ($dont_strip = $self->{'no_strip_metadata_html'}) =~ s{,}{|}g;
+    }
+
     my $found_something = 0; my $top = 1;
     while ($$textref =~ s/^(.*?)$opencom(.*?)$closecom//s) {
@@ -310 +315 @@
             # metadata.
             $metavalue =~ s/[\cJ\cM]/ /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)$/)) {
-            }
+            unless $dont_strip && ($dont_strip eq 'all' || $metaname =~ /^($dont_strip)$/);
             $metavalue =~ s/\s+/ /sg;
             if ($accumulate) {