Changeset 29 for branches/lazarus/Application/UCustomCGIApplication.pas

Timestamp:

Sep 13, 2010, 6:54:58 AM (14 years ago)

Author:

george

Message:

• Upraveno: Odkaz na wiki.

File:

• branches/lazarus/Application/UCustomCGIApplication.pas (modified) (1 diff)

branches/lazarus/Application/UCustomCGIApplication.pas

@@ -215 +215 @@
       '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
       '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
-      '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
       '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' +
       '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' +
       '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
-      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>';
-    Text := Text + '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
+      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' +
+      '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
+      '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
+      '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
 (*    if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin
       Text := Text + '</ul>' +