Changeset 78 for trunk/Pages/UAboutPage.pas

Timestamp:

Jun 18, 2012, 10:44:21 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Obsluha stránek rozdělena do samostatných sezení(TWebSession). Každé sezení si tak alokuje vlastní instanci TSqlDatabase. Zároveň při obsluze jednoduchých souborů se nyní již nenačítá info o přihlášeném uživateli a nevytváří se tak pro každé načítání souboru instance databázového připojení.

File:

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

trunk/Pages/UAboutPage.pas

@@ -36 +36 @@
   TextBlock: THtmlString;
 begin
-  with MainModule do begin
-    LoadUserInfo(HandlerData);
+  with TWebSession(HandlerData) do begin
+    LoadUserInfo;
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
@@ -80 +80 @@
       '<i>Aktualizováno: 21.1.2011</i>';
     end;
+    GeneratePage(Self);
   end;
-  MainModule.GeneratePage(HandlerData, Self);
 end;