Changeset 15003 for gsdl/trunk/perllib/basebuilder.pm

Timestamp:

2008-02-22T11:29:52+13:00 (16 years ago)

Author:

davidb

Message:

With the new ability to group collections within a top-level collection, import.pl and buildcol.pl commands can now be given collection names such as "mygroup/demo". Some of the building code -- mostly involved with generating the index files and GDBM files -- had to be updated to correctly handle such compound collection names

File:

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

gsdl/trunk/perllib/basebuilder.pm

@@ -322 +322 @@
     my $dbext = ".bdb";
     $dbext = ".ldb" if &util::is_little_endian();
-    my $fulldbname = &util::filename_cat ($textdir, "$self->{'collection'}$dbext");
+    my $dbname = &util::get_dirsep_tail($self->{'collection'}).$dbext;
+    my $fulldbname = &util::filename_cat ($textdir, $dbname);
     $fulldbname =~ s/\//\\/g if ($ENV{'GSDLOS'} =~ /^windows$/i);
 
@@ -430 +431 @@
     $build_cfg->{'builddate'} = time;
     $build_cfg->{'buildtype'} = $self->{'buildtype'};
-    $build_cfg->{'indexstem'} = $self->{'collection'};
+    $build_cfg->{'indexstem'} = &util::get_dirsep_tail($self->{'collection'});
     $build_cfg->{'stemindexes'} = $self->{'stemindexes'};