Changeset 77 for trunk/Pages/UUserControlPage.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/UUserControlPage.pas (modified) (1 diff)

trunk/Pages/UUserControlPage.pas

@@ -46 +46 @@
     else PageName := '';
   with MainModule, HtmlDocument.Body do begin
+    LoadUserInfo(HandlerData);
     if PageName = '' then PageName := 'prihlaseni';
     if PageName = 'prihlaseni' then HandleLogin(HandlerData)