Changeset 146 for trunk/Modules/TV/ModuleTV.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/TV/ModuleTV.pas (moved) (moved from trunk/Modules/TV/UModuleTV.pas ) (4 diffs)

trunk/Modules/TV/ModuleTV.pas

@@ -1 @@
-unit UModuleTV;
+unit ModuleTV;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UModuleBase, UWebPage;
+  Classes, SysUtils, UModularSystem, ModuleBase, UWebPage;
 
 type
@@ -28 +28 @@
 
 uses
-  UCore, UPageTV, USqlDatabase;
+  Core, PageTV, USqlDatabase;
 
 { TModuleTV }
@@ -73 +73 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `TV` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -102 +102 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `TV`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `TV`');
   finally
     DbRows.Free;