Changeset 79 for trunk/Pages/UPlansPage.pas

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.

File:

• trunk/Pages/UPlansPage.pas (modified) (2 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/>' +