Changeset 103 for trunk/Modules/User/UUserControlPage.pas

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

• trunk/Modules/User/UUserControlPage.pas (modified) (4 diffs)

trunk/Modules/User/UUserControlPage.pas

@@ -32 +32 @@
 
 uses
-  UCore, UUtils, UUser;
+  UCore, UUtils, UUser, UWebSession;
 
   { TUserControlPage }
@@ -85 +85 @@
         end;
       end;
-      with AddNewAction do begin
-        Caption := 'Přihlásit';
-        Action := 'Login';
-      end;
+      AddNewAction('Přihlásit', 'Login');
     end;
     if HandlerData.Request.Post.SearchKey('Login') <> -1 then begin
@@ -145 +142 @@
         end;
       end;
-      with AddNewAction do begin
-        Caption := 'Registrovat';
-        Action := 'Register';
-      end;
+      AddNewAction('Registrovat', 'Register');
     end;
     if HandlerData.Request.Post.SearchKey('Register') <> -1 then
@@ -217 +211 @@
         end;
       end;
-      with AddNewAction do begin
-        Caption := 'Uložit';
-        Action := 'Save';
-      end;
+      AddNewAction('Uložit', 'Save');
     end;
     if HandlerData.Request.Post.SearchKey('Save') <> -1 then