Changeset 146 for trunk/Modules/News/ModuleNews.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/News/ModuleNews.pas (moved) (moved from trunk/Modules/News/UModuleNews.pas ) (6 diffs)

trunk/Modules/News/ModuleNews.pas

@@ -1 @@
-unit UModuleNews;
+unit ModuleNews;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UModuleBase, UNews, UHTTPServer, UModuleUser;
+  Classes, SysUtils, UModularSystem, ModuleBase, News, UHTTPServer, ModuleUser;
 
 type
@@ -27 +27 @@
 
 uses
-  UCore, UUserControlPage, USqlDatabase;
+  Core, UserControlPage, USqlDatabase;
 
 { TModuleNews }
@@ -83 +83 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `News` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -103 +103 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `NewsCategory` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -116 +116 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; ');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'ALTER TABLE `News`' +
     '  ADD CONSTRAINT `News_ibfk_1` FOREIGN KEY (`Category`) REFERENCES `NewsCategory` (`Id`);');
@@ -133 +133 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `News`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NewsGroup`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `News`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NewsGroup`');
   finally
     DbRows.Free;