Changeset 114 for trunk/Application/UWebSession.pas

Timestamp:

May 1, 2016, 11:13:57 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Build under FPC 3.0 and Lazarus 1.6.
• Modified: Updated internet tariffs page.

File:

• trunk/Application/UWebSession.pas (modified) (1 diff)

trunk/Application/UWebSession.pas

@@ -108 +108 @@
             THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)).
               Text := Format(SError, [E.Message]);
-            if Assigned(GeneratePage) then ModuleBase.GeneratePage(Self, Page.Page)
+            if Assigned(ModuleBase) then ModuleBase.GeneratePage(Self, Page.Page)
               else GeneratePageDefault(Self, Page.Page);
           end;