Changeset 16223 for gsdl

Timestamp:

2008-06-27T14:45:21+12:00 (16 years ago)

Author:

mdewsnip

Message:

Added a couple of comments and now creates an index on the document_metadata table's "element" field, to greatly improve the speed of queries.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -217 +217 @@
     my $infodb_handle = shift(@_);
 
+    # Close the transaction we began after opening the file
     print $infodb_handle "END TRANSACTION;\n";
+
+    # This is crucial for efficient queries on the database!
+    print $infodb_handle "CREATE INDEX dme ON document_metadata(element);\n";
 
     close($infodb_handle);
@@ -245 +249 @@
     }
 
-    print $infodb_handle "CREATE TABLE data (key TEXT, value TEXT, PRIMARY KEY(key));\n";
+    print $infodb_handle "CREATE TABLE data (key TEXT PRIMARY KEY, value TEXT);\n";
     print $infodb_handle "CREATE TABLE document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n";