Changeset 98 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

• Upraveno: Přihlašování, odhlašování, registrace a nastavení profilu uživatele.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -88 +88 @@
   UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin;
 
+resourcestring
+  SError = '<div>Error: %s</div>';
+
 { TWebSession }
 
@@ -366 +369 @@
       NewSession.Database.UserName := DatabaseUserName;
       NewSession.InitDatabase;
-      Page.Page.OnProduce(NewSession);
+      try
+        Page.Page.OnProduce(NewSession);
+      except
+        on E: Exception do begin
+          THTMLString(TWebSession(NewSession).HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)).
+            Text := Format(SError, [E.Message]);
+          NewSession.GeneratePage(Page.Page);
+        end;
+      end;
       HandlerData.Assign(NewSession);
     end else begin