Changeset 16225

Timestamp:

2008-06-27T15:21:00+12:00 (15 years ago)

Author:

mdewsnip

Message:

Added "IF NOT EXISTS" to the two "CREATE TABLE" commands, to prevent errors in some cases.

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (1 diff)

gsdl/trunk/perllib/dbutil.pm

@@ -249 +249 @@
     }
 
-    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";
+    print $infodb_handle "CREATE TABLE IF NOT EXISTS data (key TEXT PRIMARY KEY, value TEXT);\n";
+    print $infodb_handle "CREATE TABLE IF NOT EXISTS 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