Changeset 79 for trunk/Pages

Timestamp:

Jun 19, 2012, 10:39:41 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Stránka pro zobrazení všech projektů veřejných i neveřejných v tabulce pro správce.

Location:

trunk/Pages

Files:

• UPlansPage.pas (modified) (2 diffs)
• UProjectsPage.lfm (added)
• UProjectsPage.pas (added)
• UUserControlPage.pas (modified) (3 diffs)

trunk/Pages/UPlansPage.pas

@@ -45 +45 @@
         Text := '<br/><strong>Plánované úkoly:</strong><br />' +
           '<div><ul>';
-        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');
+        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
@@ -53 +53 @@
         Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
           '<div><ul>';
-        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');
+        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NOT NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +

trunk/Pages/UUserControlPage.pas

@@ -63 +63 @@
   UserId: Integer;
 begin
-  with TWebSession(MainModule), HtmlDocument.Body do begin
+  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     Form := TQueryForm.Create;
     with Form do begin
@@ -108 +108 @@
   UserId: Integer;
 begin
-  with TWebSession(MainModule), HtmlDocument.Body do begin
+  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     Form := TQueryForm.Create;
     with Form do begin
@@ -165 +165 @@
 procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
 begin
-  with TWebSession(MainModule), HtmlDocument.Body do begin
+  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     UserOnline.Logout;
     with THtmlString(SubItems.AddNew(THtmlString.Create)) do