Changeset 27 for branches/lazarus/Application/UCustomCGIApplication.pas

Timestamp:

Sep 10, 2010, 8:09:21 AM (14 years ago)

Author:

george

Message:

• Přidáno: Systém navigace pomocí "pěkných" URL.

File:

• branches/lazarus/Application/UCustomCGIApplication.pas (modified) (4 diffs)

branches/lazarus/Application/UCustomCGIApplication.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UCGIApplication, Contnrs, USqlDatabase, UConfig, DateUtils,
-  UXmlClasses, UHtmlClasses, UCore;
+  UXmlClasses, UHtmlClasses, UCore, UStringListEx;
 
 type
@@ -89 +89 @@
   TitleTag: THtmlString;
 begin
-  //SysInfo;
-  Style := 'Basic';
+  Style := ConfigStyle;
+  BaseURL := ConfigBaseURL;
 
   HtmlDocument.ContentLanguage := 'cs';
   GlobalTitle := 'ZděchovNET';
-  HtmlDocument.Styles.Add('Style/' + Style + '/Style.css');
-  HtmlDocument.Scripts.Add('Style/' + Style + '/Global.js');
-  HtmlDocument.Scripts.Add('Style/' + Style + '/jquery.js');
-
-  PageName := Query.Values['p'];
-  if PageName = '' then PageName := '';
-  ModuleName := Query.Values['m'];
-  if ModuleName = '' then ModuleName := 'Main';
+  HtmlDocument.Styles.Add(NavigationLink('/Style/' + Style + '/Style.css'));
+  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/Global.js'));
+  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
+
+  if QueryParts.Count > 0 then PageName := QueryParts[0]
+    else PageName := '';
   I := 0;
-  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> ModuleName) do Inc(I);
-  if I < Pages.Count then begin
+  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> PageName) do Inc(I);
+  if (I < Pages.Count) then begin
     TitleTag := THtmlString.Create;
     HtmlDocument.Body.SubItems.Add(TitleTag);
@@ -111 +109 @@
     TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
     '</span> - ' + HtmlDocument.Title + '</div>';
-    with HtmlDocument.AsXmlDocument do begin
+    HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
+    with HtmlDocument.AsXmlDocument do try
       Formated := ConfigFormatHTML;
       Output.Add(AsString);
+    finally
       Free;
     end;
@@ -211 +211 @@
     // Visitor
     Text := Text + '<ul class="MenuItem">' +
-      '<li>' + MakeLink('O síti', NavigationMakeLink('Main', 'About')) + '</li>' +
-      '<li>' + MakeLink('Internet', NavigationMakeLink('Main', 'Internet')) + '</li>' +
-      '<li>' + MakeLink('Hosting', NavigationMakeLink('Main', 'Hosting')) + '</li>' +
-      '<li>' + MakeLink('VoIP', NavigationMakeLink('Main', 'VoIP')) + '</li>' +
+      '<li>' + MakeLink('O síti', NavigationLink('/')) + '</li>' +
+      '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
+      '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
+      '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
       '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
-      '<li>' + MakeLink('Historie', NavigationMakeLink('Main', 'History')) + '</li>' +
-      '<li>' + MakeLink('Dokumenty', NavigationMakeLink('Main', 'Documents')) + '</li>' +
-      '<li>' + MakeLink('Odkazy', NavigationMakeLink('Main', 'Links')) + '</li>' +
-      '<li>' + MakeLink('Kontakt', NavigationMakeLink('Main', 'Contact')) + '</li>';
+      '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' +
+      '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' +
+      '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
+      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>';
     Text := Text + '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
 (*    if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin