Ignore:
Timestamp:
2010-01-21T15:59:35+13:00 (14 years ago)
Author:
mdewsnip
Message:

Changed lots of occurrences of "GDBM" in comments, variable names and function names, where the code isn't GDBM-specific. Part of making the code less GDBM-specific.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm

    r21563 r21564  
    119119    $collect_tail =~ s/^.*[\/|\\]//;
    120120
    121     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    122     my $gdbm_db = &util::filename_cat($gdbm_directory,"live-$collect_tail.gdb");
     121    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     122    my $gdbm_db = &util::filename_cat($index_text_directory,"live-$collect_tail.gdb");
    123123
    124124    my $cmd = "gdbmget $gdbm_db $dbkey";
    … …  
    179179    $collect_tail =~ s/^.*[\/\\]//;
    180180
    181     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    182     my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb");
     181    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     182    my $gdbm_db = &util::filename_cat($index_text_directory,"$collect_tail.gdb");
    183183
    184184    my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid);
    … …  
    239239    $collect_tail =~ s/^.*[\/\\]//;
    240240
    241     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    242     my $gdbm_db = &util::filename_cat($gdbm_directory,"live-$collect_tail.gdb");
     241    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     242    my $gdbm_db = &util::filename_cat($index_text_directory,"live-$collect_tail.gdb");
    243243
    244244    my $cmd = "gdbmset \"$gdbm_db\" \"$dbkey\" \"$metavalue\"";
    … …  
    296296    $collect_tail =~ s/^.*[\/\\]//;
    297297
    298     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    299     my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb");
     298    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     299    my $gdbm_db = &util::filename_cat($index_text_directory,"$collect_tail.gdb");
    300300
    301301    my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid);
    … …  
    755755    $collect_tail =~ s/^.*[\/\\]//;
    756756
    757     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    758     my $gdbm_db = &util::filename_cat($gdbm_directory,"live-$collect_tail.gdb");
     757    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     758    my $gdbm_db = &util::filename_cat($index_text_directory,"live-$collect_tail.gdb");
    759759
    760760    my $cmd = "gdbmdel \"$gdbm_db\" \"$dbkey\"";
    … …  
    811811    $collect_tail =~ s/^.*[\/\\]//;
    812812
    813     my $gdbm_directory = &util::filename_cat($collect_dir,$collect,"index","text");
    814     my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb");
     813    my $index_text_directory = &util::filename_cat($collect_dir,$collect,"index","text");
     814    my $gdbm_db = &util::filename_cat($index_text_directory,"$collect_tail.gdb");
    815815
    816816    my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid);
Note: See TracChangeset for help on using the changeset viewer.