Changeset 16226
- Timestamp:
- 2008-06-27 15:24:51 (6 months ago)
- Files:
-
- gsdl/trunk/perllib/dbutil.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
gsdl/trunk/perllib/dbutil.pm
r16225 r16226 285 285 286 286 my $safe_infodb_key = &sqlite_safe($infodb_key); 287 print $infodb_handle "DELETE FROM data WHERE key='" . $safe_infodb_key . "';\n"; 288 print $infodb_handle "INSERT INTO data (key, value) VALUES ('" . $safe_infodb_key . "', '" . &sqlite_safe($infodb_entry_value) . "');\n"; 287 print $infodb_handle "INSERT OR REPLACE INTO data (key, value) VALUES ('" . $safe_infodb_key . "', '" . &sqlite_safe($infodb_entry_value) . "');\n"; 289 288 290 289 # If this infodb entry is for a document, add all the interesting document metadata to the
