Context Navigation

Changeset 77 for trunk/Pages

Timestamp:

Jun 18, 2012, 8:48:28 PM (13 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.

Location:

trunk/Pages

Files:

r70	r77
37	37	begin
38	38	with MainModule do begin
	39	LoadUserInfo(HandlerData);
39	40	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
40	41	Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +

-              r56
+              r77
 procedure TContactPage.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>Kontaktní informace</strong><br/>' +
     'Provozovatel: Ing. Jiří Hajda<br/>' +
 …
     'IČ: 75904535<br/>' +
     'DIČ: CZ8303255884<br/>' +
+    'Bankovní účet: 218098370 / 0300<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/>';
   end;
   MainModule.GeneratePage(HandlerData, Self);

r56	r77
35	35	begin
36	36	with MainModule do begin
	37	LoadUserInfo(HandlerData);
37	38	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
38	39	Text := '<strong>O obci:</strong><br/>' +

r56	r77
38	38	begin
39	39	with MainModule do begin
	40	LoadUserInfo(HandlerData);
40	41	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
41	42	Text := '<table>';

r56	r77
39	39	begin
40	40	with MainModule do begin
41
	41	LoadUserInfo(HandlerData);
42	42	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
43	43	Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +

r70	r77
35	35	begin
36	36	with MainModule do begin
	37	LoadUserInfo(HandlerData);
37	38	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
38	39	Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +

-              r71
+              r77
 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/>' +

r56	r77
37	37	begin
38	38	with MainModule do begin
	39	LoadUserInfo(HandlerData);
39	40	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
40	41	Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +

r56	r77
38	38	begin
39	39	with MainModule do begin
	40	LoadUserInfo(HandlerData);
40	41	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
41	42	Text := '<table>';

-              r76
+              r77
 procedure TServerInfoPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
+  HandlerData.Session.Values['Test'] := 'Tst';
+  MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
+  MainModule.GeneratePage(HandlerData, Self);
+  with MainModule do begin
+    LoadUserInfo(HandlerData);
+    HandlerData.Session.Values['Test'] := 'Tst';
+    WebApp1.HTTPServer.ServerInfo(HandlerData);
+    GeneratePage(HandlerData, Self);
+  end;
 end;

r71	r77
46	46	else PageName := '';
47	47	with MainModule, HtmlDocument.Body do begin
	48	LoadUserInfo(HandlerData);
48	49	if PageName = '' then PageName := 'prihlaseni';
49	50	if PageName = 'prihlaseni' then HandleLogin(HandlerData)

r56	r77
35	35	begin
36	36	with MainModule do begin
	37	LoadUserInfo(HandlerData);
37	38	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
38	39	Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.' +

r74	r77
44	44	begin
45	45	with MainModule do begin
	46	LoadUserInfo(HandlerData);
46	47	with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
47	48	Text := '';

Note: See TracChangeset for help on using the changeset viewer.