Changeset 146 for trunk/Modules/IS/ModuleIS.pas

Timestamp:

Dec 29, 2023, 11:44:26 PM (11 months ago)

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/IS/ModuleIS.pas (moved) (moved from trunk/Modules/IS/UModuleIS.pas ) (5 diffs)

trunk/Modules/IS/ModuleIS.pas

@@ -1 @@
-unit UModuleIS;
+unit ModuleIS;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, USqlDatabase, UModuleBase, UGenerics;
+  Classes, SysUtils, UModularSystem, USqlDatabase, ModuleBase, UGenerics;
 
 type
@@ -27 +27 @@
 
 uses
-  UCore, UPagePortal;
+  Core, PagePortal;
 
 { TModuleIS }
@@ -72 +72 @@
     Data := TDictionaryStringString.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `User` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -91 +91 @@
     Data.Add('Salt', '');
     Data.Add('Email', '');
-    Core.CommonDatabase.Insert('User', Data);
+    Core.Core.CommonDatabase.Insert('User', Data);
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `UserOnline` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -120 +120 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');
   finally
     DbRows.Free;