Changeset 106

Timestamp:

Oct 9, 2012, 2:05:24 PM (12 years ago)

Author:

chronos

Message:

 

Location:

trunk

Files:

• Application/UWebSession.pas (modified) (1 diff)
• Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (3 diffs)

trunk/Application/UWebSession.pas

@@ -180 +180 @@
     DbRows.Free;
   end;
+
+  // Set all modules to already installed state
+  for I := 0 to ModuleManager.Modules.Count - 1 do
+    TModule(ModuleManager.Modules[I]).SetInstalledState(True);
 end;
 

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -73 +73 @@
 procedure TModuleZdechovNET.Start;
 begin
+  BeforeStart;
   ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
   ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
@@ -104 +105 @@
     RegisterPage(AboutPage, '');
   end;
-  inherited;
+  AfterStart;
 end;
 
 procedure TModuleZdechovNET.Stop;
 begin
-  inherited Stop;
+  BeforeStop;
   with ModuleBase, Pages do begin
     UnregisterPage(AboutPage);
@@ -140 +141 @@
   ModuleBase := nil;
   ModuleUser := nil;
+  AfterStop;
 end;