Changeset 24342

Timestamp:

2011-07-29T13:07:33+12:00 (13 years ago)

Author:

davidb

Message:

Support for building non-text indexes that are orthogonol to the usual text-based index

Location:

main/trunk/greenstone2/perllib

Files:

• basebuilder.pm (modified) (2 diffs)
• extrabuilder.pm (added)
• extrabuildproc.pm (added)

main/trunk/greenstone2/perllib/basebuilder.pm

@@ -206 +206 @@
     # if a buildproc class has been created for this collection, use it
     # otherwise, use the default buildproc for the builder we are initialising
-    my ($buildprocdir, $buildproctype);
+    my $buildprocdir = undef;
+    my $buildproctype;
+
     my $collection = $self->{'collection'};
     if (-e "$ENV{'GSDLCOLLECTDIR'}/custom/${collection}/perllib/custombuildproc.pm") {
@@ -218 +220 @@
     $buildproctype = "${collection}buildproc";
     } else {
-    $buildprocdir = "$ENV{'GSDLHOME'}/perllib";
     $buildproctype = $self->default_buildproc();
     }
-    require "$buildprocdir/$buildproctype.pm";
+    if (defined $buildprocdir) {
+    require "$buildprocdir/$buildproctype.pm";
+    }
+    else {
+    require "$buildproctype.pm";
+    }
 
     eval("\$self->{'buildproc'} = new $buildproctype(\$self->{'collection'}, " .