Changeset 15714

Timestamp:

2008-05-27T12:55:55+12:00 (16 years ago)

Author:

mdewsnip

Message:

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

File:

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

gsdl/trunk/perllib/lucenebuilder.pm

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