- Timestamp:
- 1999-06-25T11:34:31+12:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgbuildproc.pm
r255 r289 491 491 } 492 492 493 sub find_paragraphs { 494 $_[1] =~ s/(<p\b)/\cC$1/gi; 495 } 496 493 497 sub text { 494 498 my $self = shift (@_); … … 559 563 $new_text = $doc_obj->get_text ($section); 560 564 $new_text =~ s/[\cB\cC]//g; 561 $ new_text =~ s/(<p\b)/\cC$1/gi;565 $self->find_paragraphs($new_text); 562 566 563 567 } else {
Note:
See TracChangeset
for help on using the changeset viewer.