Changeset 1231 for trunk/gsdl/perllib/plugins/HTMLPlug.pm
- Timestamp:
- 2000-06-23T11:54:30+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r1230 r1231 418 418 my $tmptext = $$textref; 419 419 $tmptext =~ s/\s+/ /gs; 420 $tmptext =~ s/.*<H1[^>]*>//i; 421 $tmptext =~ s/<\/H1[^>]*>.*//i; 422 $tmptext =~ s/^\s+//; 423 $tmptext =~ s/\s+$//; 424 $doc_obj->add_utf8_metadata ($section, $field, $tmptext); 420 if ($tmptext =~ /<H1[^>]*>/i) { 421 $tmptext =~ s/.*<H1[^>]*>//i; 422 $tmptext =~ s/<\/H1[^>]*>.*//i; 423 $tmptext =~ s/^\s+//; 424 $tmptext =~ s/\s+$//; 425 $doc_obj->add_utf8_metadata ($section, $field, $tmptext); 426 } 425 427 next; 426 428 }
Note:
See TracChangeset
for help on using the changeset viewer.