From: Will Budic <redacted>
Date: Sun, 23 Feb 2020 10:13:18 +0000 (+1100)
Subject: .
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=863f92f3b5c93bd5e1f24772f04de147d9735ef0;p=LifeLog.git

.
---

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 0bb9827..7ae62a7 100755
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -202,6 +202,7 @@ sub checkCreateTables {
     #
     if($hasLogTbl && $DEF_VERSION > $DB_VERSION && $DB_VERSION < 1.8){
         # We must upgrade now. If existing LOG table is now invalid old version containing boolean RTF.
+        Settings::debug(1);
         my @names = @{Settings::getTableColumnNames($db, 'LOG')};
         #perl 5.28+ <--
         #if ( 'RTF' ~~ @names ) {
diff --git a/htdocs/cgi-bin/system/modules/Settings.pm b/htdocs/cgi-bin/system/modules/Settings.pm
index 46dfbe8..a6cecb1 100644
--- a/htdocs/cgi-bin/system/modules/Settings.pm
+++ b/htdocs/cgi-bin/system/modules/Settings.pm
@@ -231,7 +231,7 @@ sub selectRecords {
                 return 0 if(!$pst);
                 return $pst;
     }catch{
-                SettingsException->throw(error=>"Database error encountered. Settings::selectRecords[sql]", show_trace=>$DEBUG);
+                SettingsException->throw(error=>"Database error encountered. Settings::selectRecords[$sql]", show_trace=>$DEBUG);
     };
 }