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

trunk/Pages/UContactPage.pas

@@ -32 +32 @@
 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-    LoadUserInfo(HandlerData);
+  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    LoadUserInfo;
     Text := '<strong>Kontaktní informace</strong><br/>' +
-    'Provozovatel: Ing. Jiří Hajda<br/>' +
-    'Adresa: Zděchov 208, 75607<br/>' +
-    'Telefon: 737785792<br/>' +
+    'Provozovatel: <strong>Ing. Jiří Hajda</strong><br/>' +
+    'Adresa: <strong>Zděchov 208, 75607</strong><br/>' +
+    'Telefon: <strong>737785792</strong><br/>' +
     'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
-    'Jabber: chronos@jabbim.cz<br/>' +
+    'Jabber: <strong>chronos@jabbim.cz</strong><br/>' +
     'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
-    'IČ: 75904535<br/>' +
-    'DIČ: CZ8303255884<br/>' +
-    'Bankovní spojení pro platby v CZK v ČR: 2600134781 / 2010' +
-    'Bankovní spojení pro platby v EUR v SR: 2600134781 / 8330' +
-    'Starý bankovní účet: 218098370 / 0300<br/>';
+    'IČ: <strong>75904535</strong><br/>' +
+    'DIČ: <strong>CZ8303255884</strong><br/>' +
+    'Bankovní spojení pro platby v CZK v ČR: <strong>2600134781 / 2010</strong><br/>' +
+    'Bankovní spojení pro platby v EUR v SR: <strong>2600134781 / 8330</strong><br/>' +
+    'Starý bankovní účet: <strong>218098370 / 0300</strong><br/>';
+    GeneratePage(Self);
   end;
-  MainModule.GeneratePage(HandlerData, Self);
 end;