Changeset 79


Ignore:
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
Files:
3 added
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/UMainModule.lfm

    r78 r79  
    77  object WebApp1: TWebApp
    88    OnPageProduce = WebApp1PageProduce
    9     ServerType = stCGI
     9    ServerType = stTCP
    1010    left = 160
    1111    top = 88

  • trunk/Modules/UMainModule.lrs

    r78 r79  
    55  +'HorizontalOffset'#3'*'#2#14'VerticalOffset'#3#10#1#5'Width'#3#175#1#0#7'TWe'
    66  +'bApp'#7'WebApp1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'#7
    7   +#5'stCGI'#4'left'#3#160#0#3'top'#2'X'#0#0#0
     7  +#5'stTCP'#4'left'#3#160#0#3'top'#2'X'#0#0#0
    88]);

  • trunk/Modules/UMainModule.pas

    r78 r79  
    8181  UApplicationInfo, UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
    8282  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
    83   UNetworkPage, UAboutPage, UContactPage;
     83  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
    8484
    8585{ TWebSession }
    … …  
    181181    RegisterPage(TPlansPage, PlansPage, 'plany');
    182182    RegisterPage(TNetworkPage, NetworkPage, 'sit');
     183    RegisterPage(TProjectsPage, ProjectsPage, 'projekty');
    183184    RegisterPage(TAboutPage, AboutPage, '');
    184185    //RegisterPage(TUserControlPage, UserControlPage, '');

  • trunk/Pages/UPlansPage.pas

    r78 r79  
    4545        Text := '<br/><strong>Plánované úkoly:</strong><br />' +
    4646          '<div><ul>';
    47         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');
     47        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
    4848        for I := 0 to DbRows.Count - 1 do begin
    4949          Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
    … …  
    5353        Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
    5454          '<div><ul>';
    55         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');
     55        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NOT NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
    5656        for I := 0 to DbRows.Count - 1 do begin
    5757          Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +

  • trunk/Pages/UUserControlPage.pas

    r78 r79  
    6363  UserId: Integer;
    6464begin
    65   with TWebSession(MainModule), HtmlDocument.Body do begin
     65  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    6666    Form := TQueryForm.Create;
    6767    with Form do begin
    … …  
    108108  UserId: Integer;
    109109begin
    110   with TWebSession(MainModule), HtmlDocument.Body do begin
     110  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    111111    Form := TQueryForm.Create;
    112112    with Form do begin
    … …  
    165165procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    166166begin
    167   with TWebSession(MainModule), HtmlDocument.Body do begin
     167  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    168168    UserOnline.Logout;
    169169    with THtmlString(SubItems.AddNew(THtmlString.Create)) do

  • trunk/ZdechovNET.lpi

    r77 r79  
    5959      </Item6>
    6060    </RequiredPackages>
    61     <Units Count="21">
     61    <Units Count="22">
    6262      <Unit0>
    6363        <Filename Value="ZdechovNET.lpr"/>
    … …  
    193193        <UnitName Value="UApplicationInfo"/>
    194194      </Unit20>
     195      <Unit21>
     196        <Filename Value="Pages/UProjectsPage.pas"/>
     197        <IsPartOfProject Value="True"/>
     198        <ComponentName Value="ProjectsPage"/>
     199        <ResourceBaseClass Value="DataModule"/>
     200        <UnitName Value="UProjectsPage"/>
     201      </Unit21>
    195202    </Units>
    196203  </ProjectOptions>
Note: See TracChangeset for help on using the changeset viewer.