Changeset 9057
- Timestamp:
- 2005-02-16T12:03:23+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r9056 r9057 277 277 my $quot = '(?:"|"|”|“)'; 278 278 279 my $dont_strip = ''; 280 if ($self->{'no_strip_metadata_html'}) { 281 ($dont_strip = $self->{'no_strip_metadata_html'}) =~ s{,}{|}g; 282 } 283 279 284 my $found_something = 0; my $top = 1; 280 285 while ($$textref =~ s/^(.*?)$opencom(.*?)$closecom//s) { … … 310 315 # metadata. 311 316 $metavalue =~ s/[\cJ\cM]/ /sg; 312 my $dont = '';313 if ($self->{'no_strip_metadata_html'}) {314 ($dont = $self->{'no_strip_metadata_html'}) =~ s{,}{|}g;315 }316 317 $metavalue =~ s/<[^>]+>//sg 317 unless $dont && ($dont eq 'all' || $metaname =~ /^($dont)$/); 318 if ($dont && ($dont eq 'all' || $metaname =~ /^($dont)$/)) { 319 } 318 unless $dont_strip && ($dont_strip eq 'all' || $metaname =~ /^($dont_strip)$/); 320 319 $metavalue =~ s/\s+/ /sg; 321 320 if ($accumulate) {
Note:
See TracChangeset
for help on using the changeset viewer.