Changeset 15746

Show
Ignore:
Timestamp:
28.05.2008 14:08:45 (11 years ago)
Author:
mdewsnip
Message:

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

Files:
1 modified

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{