Changeset 77 for trunk/Pages/ULinksPage.pas

Timestamp:

Jun 18, 2012, 8:48:28 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Obsluhuj generování stránek dle vlastního seznamu stránek a pokud nenajdeš přímou obsluhu, tak zkus generovat ze souboru.

File:

• trunk/Pages/ULinksPage.pas (modified) (1 diff)

trunk/Pages/ULinksPage.pas

@@ -34 +34 @@
 procedure TLinksPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with MainModule.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+  with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    LoadUserInfo(HandlerData);
     Text := '<strong>Odkazy související s obcí:</strong><br/>' +