Changeset 41 for trunk/Pages/UMainPage.pas

Timestamp:

Nov 17, 2010, 7:58:30 PM (14 years ago)

Author:

george

Message:

• Opraveno: Nezobrazovat prázdný odkaz v seznamu hostovaných serverů.
• Přidáno: Kontakt na Jabber.

File:

• trunk/Pages/UMainPage.pas (modified) (2 diffs)

trunk/Pages/UMainPage.pas

@@ -241 +241 @@
         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
         for I := 0 to DbRows.Count - 1 do
+          if DbRows[I].Values['Homepage'] <> '' then
           Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
-            DbRows[I].Values['Name'] + '</a></li>';
+            DbRows[I].Values['Name'] + '</a></li>'
+            else Text := Text + '<li>' + DbRows[I].Values['Name'] + '</li>';
         Text := Text + '</ul>';
       finally
@@ -349 +351 @@
     'Telefon: 737785792<br/>' +
     'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
+    'Jabber: chronos@jabbim.cz<br/>' +
     'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
     'IČ: 75904535<br/>' +