From 7a782b5005e642e48718f2a0d7b492e06e341b10 Mon Sep 17 00:00:00 2001
From: Will Budic <vilijanc@gmail.com>
Date: Sun, 23 Feb 2020 11:40:48 +1100
Subject: [PATCH] Added future LOGCATSREF, for multiple categories per log.

---
 htdocs/cgi-bin/login_ctr.cgi              | 5 +++++
 htdocs/cgi-bin/system/modules/Settings.pm | 1 +
 2 files changed, 6 insertions(+)

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 2d2112a..04cfe22 100755
--- 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 b48ec7d..3ef07bd 100644
--- 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;
-- 
2.34.1