Changeset 286 for branches/web/Pages/UMainPage.pas

Timestamp:

Sep 8, 2010, 10:08:43 AM (14 years ago)

Author:

george

Message:

• Odstraněno: Nadále nebude používána sada knihoven powutils.
• Přidáno: Vlastní třída pro obsluhu a podporu zpracování CGI programů.
• Upraveno: Korekce názvů sloupců a tabulek databáze.

File:

• branches/web/Pages/UMainPage.pas (modified) (1 diff)

branches/web/Pages/UMainPage.pas

@@ -86 +86 @@
   // Zobrazení seznamu online počítačů
   Output := Output + '<strong>Online počítače:</strong><br /><span style="font-size: smaller;">';
-  DbRows := Database.Select('hosts', 'name', 'online=1 AND show_online=1 ORDER BY name');
+  DbRows := Database.Query('SELECT NetworkDevice.Name FROM NetworkDevice LEFT JOIN NetworkDeviceType ' +
+  ' ON NetworkDeviceType.Id = NetworkDevice.Type WHERE (NetworkDeviceType.ShowOnline = 1) AND (NetworkDevice.Online = 1) ORDER BY NetworkDevice.Name');
   for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
-    Output := Output + Values['name'] + '<br />';
+    Output := Output + Values['Name'] + '<br />';
   end;
   DbRows.Free;