Changeset 22485 for main/trunk/greenstone2/perllib/dbutil/sqlite.pm
- Timestamp:
- 2010-07-22T18:55:18+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/sqlite.pm
r22076 r22485 141 141 } 142 142 143 } 144 145 146 sub read_infodb_keys 147 { 148 my $infodb_file_path = shift(@_); 149 my $infodb_map = shift(@_); 150 151 152 my $keys_str = read_infodb_cmd($infodb_file_path,"SELECT key FROM data;"); 153 154 my @keys = split(/\n/,$keys_str); 155 156 foreach my $key (@keys) 157 { 158 $infodb_map->{$key} = 1; 159 } 143 160 } 144 161
Note:
See TracChangeset
for help on using the changeset viewer.