Changeset 15746


Ignore:
Timestamp:
05/28/08 14:08:45 (13 years ago)
Author:
mdewsnip
Message:

(Adding new DB support) Added stub for read_infodb_file_sqlite().

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/dbutil.pm

    r15727 r15746  
    7272    my $infodb_map = shift(@_);
    7373
    74     &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
     74    if ($infodb_type eq "sqlite")
     75    {
     76    return &read_infodb_file_sqlite($infodb_file_path, $infodb_map);
     77    }
     78
     79    # Use GDBM if the infodb type is empty or not one of the values above
     80    return &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
    7581}
    7682
     
    95101
    96102# ----------------------------------------------------------------------------------------
    97 #   GDBM FUNCTIONS
     103#   GDBM IMPLEMENTATION
    98104# ----------------------------------------------------------------------------------------
    99105
     
    181187
    182188# ----------------------------------------------------------------------------------------
    183 #   SQLITE FUNCTIONS
     189#   SQLITE IMPLEMENTATION
    184190# ----------------------------------------------------------------------------------------
    185191
     
    212218
    213219
     220sub read_infodb_file_sqlite
     221{
     222    my $infodb_file_path = shift(@_);
     223    my $infodb_map = shift(@_);
     224
     225    # !! TO IMPLEMENT
     226}
     227
     228
    214229sub write_infodb_entry_sqlite
    215230{
Note: See TracChangeset for help on using the changeset viewer.