Added future LOGCATSREF, for multiple categories per log.

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 2d2112a1ecf91835f00eca18d717582d0f9c427d..04cfe2241d531255cab216dd8f31aae223286de1 100755 (executable)
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -287,6 +287,11 @@ sub checkCreateTables {
     #Have cats been wiped out?
     $changed = 1 if Settings::countRecordsIn($db, 'CAT') == 0;
 
+    #TODO Multiple cats per log future table.
+    if(!$curr_tables{'LOGCATSREF'}) {
+        $db->do(&Settings::createLOGCATSREFStmt);
+    }
+
     if(!$curr_tables{'AUTH'}) {
         $db->do(&Settings::createAUTHStmt);
         my $st = $db->prepare('INSERT INTO AUTH VALUES (?,?,?,?);');

diff --git a/htdocs/cgi-bin/system/modules/Settings.pm b/htdocs/cgi-bin/system/modules/Settings.pm
index b48ec7d624f6d879d59d4224da48bd31f5c3d2a5..3ef07bd2d646e8155737369e6c2e9ae43d7485b3 100644 (file)
--- a/htdocs/cgi-bin/system/modules/Settings.pm
+++ b/htdocs/cgi-bin/system/modules/Settings.pm
@@ -119,6 +119,7 @@ return qq(
     CREATE INDEX idx_auth_name_passw ON AUTH (ALIAS, PASSW);
 )}
 sub createNOTEStmt {return qq(CREATE TABLE NOTES (LID INTEGER PRIMARY KEY NOT NULL, DOC TEXT);)}
+sub createLOGCATSREFStmt {return qq(CREATE TABLE LOGCATSREF (LID INTEGER NOT NULL, CID TINY NOT NULL);)}
 
 sub getConfiguration {
     my $db = shift;