Changeset 24460 for main/trunk/greenstone2/perllib/basebuilder.pm

Timestamp:

2011-08-24T15:52:02+12:00 (13 years ago)

Author:

davidb

Message:

Code changes to support indexers that are provided through the extension mechanism

File:

• main/trunk/greenstone2/perllib/basebuilder.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/basebuilder.pm

@@ -329 +329 @@
     my $outhandle = $self->{'outhandle'};
 
+    $self->pre_build_indexes();
+
     my $indexes = [];
     if (defined $indexname && $indexname =~ /\w/) {
@@ -352 +354 @@
     }
 
-    $self->build_indexes_extra();
-
+    $self->post_build_indexes();
+
+}
+
+# implement this in subclass if want to do extra stuff at before building
+# all the indexes
+sub pre_build_indexes {
+    my $self = shift(@_);
+    my ($indexname) = @_; # optional parameter
 }
 
 # implement this in subclass if want to do extra stuff at the end of building
 # all the indexes
-sub build_indexes_extra {
-    my $self = shift(@_);
-    
+sub post_build_indexes {
+    my $self = shift(@_);   
 }