Changeset 108 for trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

Timestamp:

Oct 10, 2012, 3:30:34 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Opět zprovozněno zobrazování oficiálního webu sítě.

File:

• trunk/Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (1 diff)

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -75 +75 @@
   BeforeStart;
   ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  ModuleBase.GeneratePage := GeneratePage;
   ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
   with ModuleBase, Pages do begin
     //GeneratePage := GeneratePage;
     InternetPage := TInternetPage.Create(nil);
+    InternetPage.ModuleUser := ModuleUser;
     RegisterPage(InternetPage, 'internet');
     HostingPage := THostingPage.Create(nil);
+    HostingPage.ModuleUser := ModuleUser;
     RegisterPage(HostingPage, 'hosting');
     HistoryPage := THistoryPage.Create(nil);
+    HistoryPage.ModuleUser := ModuleUser;
     RegisterPage(HistoryPage, 'historie');
     DocumentsPage := TDocumentsPage.Create(nil);
+    DocumentsPage.ModuleUser := ModuleUser;
     RegisterPage(DocumentsPage, 'dokumenty');
     VoIPPage := TVoIPPage.Create(nil);
+    VoIPPage.ModuleUser := ModuleUser;
     RegisterPage(VoIPPage, 'voip');
     LinksPage := TLinksPage.Create(nil);
+    LinksPage.ModuleUser := ModuleUser;
     RegisterPage(LinksPage, 'odkazy');
     ContactPage := TContactPage.Create(nil);
+    ContactPage.ModuleUser := ModuleUser;
     RegisterPage(ContactPage, 'kontakt');
     ServerInfoPage := TServerInfoPage.Create(nil);
+    ServerInfoPage.ModuleUser := ModuleUser;
     RegisterPage(ServerInfoPage, 'serverinfo');
     WebCamPage := TWebCamPage.Create(nil);
+    WebCamPage.ModuleUser := ModuleUser;
     RegisterPage(WebCamPage, 'kamery');
     PlansPage := TPlansPage.Create(nil);
+    PlansPage.ModuleUser := ModuleUser;
     RegisterPage(PlansPage, 'plany');
     NetworkPage := TNetworkPage.Create(nil);
+    NetworkPage.ModuleUser := ModuleUser;
     RegisterPage(NetworkPage, 'sit');
     ProjectsPage := TProjectsPage.Create(nil);
+    ProjectsPage.ModuleUser := ModuleUser;
     RegisterPage(ProjectsPage, 'projekty');
     AboutPage := TAboutPage.Create(nil);
+    AboutPage.ModuleUser := ModuleUser;
     RegisterPage(AboutPage, '');
   end;