Changeset 24342

Show
Ignore:
Timestamp:
29.07.2011 13:07:33 (8 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:
2 added
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/basebuilder.pm

    r24070 r24342  
    206206    # if a buildproc class has been created for this collection, use it 
    207207    # otherwise, use the default buildproc for the builder we are initialising 
    208     my ($buildprocdir, $buildproctype); 
     208    my $buildprocdir = undef; 
     209    my $buildproctype; 
     210 
    209211    my $collection = $self->{'collection'}; 
    210212    if (-e "$ENV{'GSDLCOLLECTDIR'}/custom/${collection}/perllib/custombuildproc.pm") { 
     
    218220    $buildproctype = "${collection}buildproc"; 
    219221    } else { 
    220     $buildprocdir = "$ENV{'GSDLHOME'}/perllib"; 
    221222    $buildproctype = $self->default_buildproc(); 
    222223    } 
    223     require "$buildprocdir/$buildproctype.pm"; 
     224    if (defined $buildprocdir) { 
     225    require "$buildprocdir/$buildproctype.pm"; 
     226    } 
     227    else { 
     228    require "$buildproctype.pm"; 
     229    } 
    224230 
    225231    eval("\$self->{'buildproc'} = new $buildproctype(\$self->{'collection'}, " .