Changeset 15746 for gsdl/trunk/perllib/dbutil.pm
- Timestamp:
- 2008-05-28T14:08:45+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/dbutil.pm
r15727 r15746 72 72 my $infodb_map = shift(@_); 73 73 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); 75 81 } 76 82 … … 95 101 96 102 # ---------------------------------------------------------------------------------------- 97 # GDBM FUNCTIONS103 # GDBM IMPLEMENTATION 98 104 # ---------------------------------------------------------------------------------------- 99 105 … … 181 187 182 188 # ---------------------------------------------------------------------------------------- 183 # SQLITE FUNCTIONS189 # SQLITE IMPLEMENTATION 184 190 # ---------------------------------------------------------------------------------------- 185 191 … … 212 218 213 219 220 sub read_infodb_file_sqlite 221 { 222 my $infodb_file_path = shift(@_); 223 my $infodb_map = shift(@_); 224 225 # !! TO IMPLEMENT 226 } 227 228 214 229 sub write_infodb_entry_sqlite 215 230 {
Note:
See TracChangeset
for help on using the changeset viewer.