.

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 0bb9827dc675221af7066b1f0cf21031f78e14aa..7ae62a73f675e0310a9cae90ade36f6c8153aba6 100755 (executable)
--- 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 46dfbe84f833ba786df0bd96086ba8cd9df55924..a6cecb12fc8a7ee12dbdb68527f8dc5af7536b82 100644 (file)
--- 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);
     };
 }