Changeset 23172

Timestamp:

2010-10-19T14:56:03+13:00 (14 years ago)

Author:

kjdon

Message:

when using gdbm-txtgz infodb type, the runtime system will generate gdb version the first time it accesses the collection. Then it doesn't check again. So if we modify the txtgz version, we need to delete the gdb version so it can be regenerated

File:

• main/trunk/greenstone2/perllib/basebuilder.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/basebuilder.pm

@@ -486 +486 @@
 
     &dbutil::close_infodb_write_handle($infodb_type, $infodb_handle) if !$self->{'debug'};
-
+    
+    if ($infodb_type eq "gdbm-txtgz") {
+    my $gdb_infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $self->{'collection'}, $textdir);
+    if (-e $gdb_infodb_file_path) {
+        &util::rm($gdb_infodb_file_path);
+    }
+    }
     print STDERR "</Stage>\n" if $self->{'gli'};
 }