Changeset 137 for trunk/Modules/System/UModuleSystem.pas

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

• trunk/Modules/System/UModuleSystem.pas (modified) (6 diffs)

trunk/Modules/System/UModuleSystem.pas

@@ -1 +1 @@
 unit UModuleSystem;
-
-{$mode delphi}
 
 interface
@@ -63 +61 @@
 destructor TModuleSystem.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -74 +72 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Select(DbRows, 'SystemModule', 'Name, Installed');
+    Core.CommonDatabase.Select(DbRows, 'SystemModule', '`Name`, `Installed`');
     for I := 0 to DbRows.Count - 1 do
     with DbRows[I] do begin
@@ -102 +100 @@
   try
     DbRows := TDbRows.Create;
-  Core.CommonDatabase.Query(DbRows,
-    'CREATE TABLE IF NOT EXISTS `SystemModule` (' +
-    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
-    '  `Name` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  `Title` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  `Creator` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  `Version` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  `License` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  `Installed` int(11) NOT NULL,' +
-    '  `Description` text COLLATE utf8_czech_ci NOT NULL,' +
-    '  `Dependencies` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
-    '  PRIMARY KEY (`Id`)' +
-    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+    Core.CommonDatabase.Query(DbRows,
+      'CREATE TABLE IF NOT EXISTS `SystemModule` (' +
+      '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+      '  `Name` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  `Title` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  `Creator` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  `Version` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  `License` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  `Installed` int(11) NOT NULL,' +
+      '  `Description` text COLLATE utf8_czech_ci NOT NULL,' +
+      '  `Dependencies` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+      '  PRIMARY KEY (`Id`)' +
+      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
   finally
     DbRows.Free;
   end;
   UpdateModuleList;
-  inherited Install;
+  inherited;
 end;
 
@@ -126 +124 @@
   DbRows: TDbRows;
 begin
-  inherited Uninstall;
+  inherited;
   try
     DbRows := TDbRows.Create;
@@ -137 +135 @@
 procedure TModuleSystem.Upgrade;
 begin
-  inherited Upgrade;
+  inherited;
 end;