source: trunk/Modules/ZdechovNET/PlansPage.pas

unit PlansPage;

interface

uses
  Classes, SysUtils, FileUtil, WebPage, HtmlClasses, HTTPServer, SqlDatabase,
  ModuleUser;

type

  { TPlansPage }

  TPlansPage = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  PlansPage: TPlansPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

{ TPlansPage }

procedure TPlansPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  DbRows: TDbRows;
  I: Integer;
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData) do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    if Request.Path.Count > 1 then begin
      PageNotFound;
      Exit;
    end;

    ModuleUser.LoadUserInfo;
    with HtmlDocument.Body, SubItems.AddString do begin
      Text := '<table>';
      try
        DbRows := TDbRows.Create;
        Text := '<br/><strong>Plánované úkoly:</strong><br />' +
          '<div><ul>';
        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].Items['Description'] + '</li>';
        end;
        Text := Text + '</ul></div><br/>';

        Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
          '<div><ul>';
        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].Items['Description'] + '<br/>' +
            '<i style="padding-left: 30px;">' + DbRows[I].Items['Conclusion'] + '</i></li>';
        end;
        Text := Text + '</ul></div><br/>';

      finally
        DbRows.Free;
      end;
      Text := Text + '</table>';
    end;
    GeneratePage(Self);
  end;
end;

end.