Changeset 16178

Timestamp:

2008-06-25T14:20:59+12:00 (15 years ago)

Author:

mdewsnip

Message:

Greatly improved SQLite database writing speed by adding "BEGIN TRANSACTION" and "END TRANSACTION" around all the write commands.

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (2 diffs)

gsdl/trunk/perllib/dbutil.pm

@@ -217 +217 @@
     my $infodb_handle = shift(@_);
 
+    print $infodb_handle "END TRANSACTION;\n";
+
     close($infodb_handle);
 }
@@ -245 +247 @@
     print $infodb_handle "CREATE TABLE data (key TEXT, value TEXT, PRIMARY KEY(key));\n";
     print $infodb_handle "CREATE TABLE document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n";
+
+    # This is very important for efficiency, otherwise each command will be actioned one at a time
+    print $infodb_handle "BEGIN TRANSACTION;\n";
 
     return $infodb_handle;