Changeset 289 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-06-25T11:34:31+12:00 (25 years ago)

Author:

rjmcnab

Message:

Included seperate method for finding 'paragraphs' so that it could
be overriden for different collections.

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -491 +491 @@
 }
 
+sub find_paragraphs {
+    $_[1] =~ s/(<p\b)/\cC$1/gi;
+}
+
 sub text {
     my $self = shift (@_);
@@ -559 +563 @@
             $new_text = $doc_obj->get_text ($section);
             $new_text =~ s/[\cB\cC]//g;
-            $new_text =~ s/(<p\b)/\cC$1/gi;
+            $self->find_paragraphs($new_text);
             
             } else {