Changeset 23172

Show
Ignore:
Timestamp:
19.10.2010 14:56:03 (9 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

Files:
1 modified

Legend:

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

    r23159 r23172  
    486486 
    487487    &dbutil::close_infodb_write_handle($infodb_type, $infodb_handle) if !$self->{'debug'}; 
    488  
     488     
     489    if ($infodb_type eq "gdbm-txtgz") { 
     490    my $gdb_infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $self->{'collection'}, $textdir); 
     491    if (-e $gdb_infodb_file_path) { 
     492        &util::rm($gdb_infodb_file_path); 
     493    } 
     494    } 
    489495    print STDERR "</Stage>\n" if $self->{'gli'}; 
    490496}