Changeset 1396 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2000-08-11T13:46:39+12:00 (24 years ago)

Author:

say1

Message:

changed initialisation code for acronyms

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -137 +137 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+    $self->initialise_extractors();
 }
 
 sub end {
     my ($self) = @_;
+    $self->finalise_extractors();
 }
 
@@ -282 +284 @@
         $doc_obj->add_utf8_metadata ($cursection, $field, $metadata->{$field}); 
     }
+    }
+}
+
+# initialise metadata extractors
+sub initialise_extractors {
+    my $self = shift (@_);
+
+    if ($self->{'extract_acronyms'} || $self->{'markup_acronyms'}) {
+    &acronym::initialise_acronyms();
+    }
+}
+
+# finalise metadata extractors
+sub finalise_extractors {
+    my $self = shift (@_);
+
+    if ($self->{'extract_acronyms'} || $self->{'markup_acronyms'}) {
+    &acronym::finalise_acronyms();
     }
 }