Changeset 105 for trunk/Modules/Portal/UModulePortal.pas

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

File:

• trunk/Modules/Portal/UModulePortal.pas (modified) (5 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
-  UUtils, UWebSession, SpecializedList, UUser, UWebPage, UHtmlClasses;
+  UUtils, UWebSession, SpecializedList, UUser, UWebPage, UHtmlClasses,
+  UModuleBase, UModuleUser;
 
 type
@@ -16 +17 @@
   private
     Time: TDateTime;
+    WebPagePortal: TWebPage;
     function ShowFooter(Session: TWebSession): string;
     function ShowHeader(Session: TWebSession): string;
     procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
   public
+    ModuleBase: TModuleBase;
+    ModuleUser: TModuleUser;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -46 +50 @@
   Author := 'Chronosoft';
   Dependencies.Add('User');
+  Dependencies.Add('Finance');
+  Dependencies.Add('News');
 end;
 
@@ -55 +61 @@
 procedure TModulePortal.Start;
 begin
-  Core.GeneratePage := GeneratePage;
-  Core.Pages.RegisterPage(TWebPagePortal, WebPagePortal, 'portal');
-  inherited;
+  BeforeStart;
+  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  ModuleBase.GeneratePage := GeneratePage;
+  WebPagePortal := TWebPagePortal.Create(nil);
+  ModuleBase.Pages.RegisterPage(WebPagePortal, '');
+  TWebPagePortal(WebPagePortal).ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
+  AfterStart;
 end;
 
 procedure TModulePortal.Stop;
 begin
-  inherited;
-  Core.Pages.UnregisterPage('portal');
+  BeforeStop;
+  ModuleBase.Pages.UnregisterPage(WebPagePortal);
+  FreeAndNil(WebPagePortal);
+  ModuleBase := nil;
+  AfterStop;
 end;
 
@@ -208 +221 @@
     '<div class="Navigation"><span class="MenuItem"><strong>Navigace :: </strong> ';
     Output := Output + Navigation + '</span><div class="MenuItem2">';
-    if Session.User.Id = UnknownUser then
+    if ModuleUser.User.Id = UnknownUser then
       Output := Output + '<a href="' + MakeLink('Přihlášení',
         NavigationLink('/?Action=LoginForm')) + ' ' +
         MakeLink('Registrace', NavigationLink('/?Action=UserRegister'))
-      else Output := Output + Session.User.Name + ' ' + MakeLink('Odhlásit',
+      else Output := Output + ModuleUser.User.Name + ' ' + MakeLink('Odhlásit',
         NavigationLink('/?Action=Logout'));
 // <a href="'.$this->System->Config['Web']['RootFolder'].'/?Action=UserOptions">Nastavení</a>';