Changeset 15714

Show
Ignore:
Timestamp:
27.05.2008 12:55:55 (11 years ago)
Author:
mdewsnip
Message:

(Adding new DB support) Removed the last of the GDBM-specific code from lucenebuilder.pm.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/lucenebuilder.pm

    r15712 r15714  
    352352 
    353353# /** A modified version of the basebuilder.pm's function that generates the 
    354 #  *  information database (GDBM) from the GA documents. We need to change this 
     354#  *  information database from the GA documents. We need to change this 
    355355#  *  so that if we've been asked to do an incremental build we only add 
    356356#  *  metadata to autohierarchy classifiers via the IncrementalBuildUtils 
     
    362362    my $outhandle = $self->{'outhandle'}; 
    363363 
    364     my $dbext = ".bdb"; 
    365     $dbext = ".ldb" if &util::is_little_endian(); 
    366  
    367     my $collect_tail = &util::get_dirsep_tail($self->{'collection'}); 
    368     my $infodb_file = &util::filename_cat($self->{'build_dir'}, "text", $collect_tail . $dbext); 
     364    # Get info database file path 
     365    my $text_directory_path = &util::filename_cat($self->{'build_dir'}, "text"); 
     366    my $infodb_file_path = &dbutil::get_infodb_file_path($self->{'collection'}, $text_directory_path); 
    369367 
    370368    # If we aren't doing an incremental addition, then we just call the super- 
    371369    # classes version 
    372     # Note: Incremental addition can only occur if a text/<collection>.ldb 
     370    # Note: Incremental addition can only occur if an information database 
    373371    #       already exists. If it doesn't, let the super classes function be 
    374372    #       called once to generate it. 
    375     if (!$self->{'incremental_dlc'} || !(-e $infodb_file)) 
     373    if (!$self->{'incremental_dlc'} || !-e $infodb_file_path) 
    376374    { 
    377375        # basebuilder::make_infodatabase(@_);