Changeset 139 for devel/web/UCore.pas


Ignore:
Timestamp:
Jan 16, 2009, 1:41:07 PM (15 years ago)
Author:
george
Message:
  • Opraveno: Zobrazní aktualit na hlavní stránce.
  • Přidáno: Nástřel databázové objektové vrstvy.
Location:
devel/web
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • devel/web

    • Property svn:ignore

      •  

        old new  
        77
        88index.compiled
         9
         10UConfig.pas

  • devel/web/UCore.pas

    r137 r139  
    3636
    3737uses 
    38   pwenvvar, pwmain, SysUtils;
     38  pwenvvar, pwmain, SysUtils, UConfig;
    3939
    4040procedure RegisterPage(Name: string; Producer: TPageProducer);
    … …  
    6565    '  <title>Centrála - ' + Path + '</title>' +
    6666    '  </head><body>' +
    67     '<div id="Title">' + Title + '</div>'+
     67    '<div class="PageTitle">' + Title + '</div>'+
    6868    '<div class="Navigation"><strong>Navigace &gt;&gt;</strong> ' + Navigace + '</div>';
    6969end;
    … …  
    7676  UpdateDate := '2.5.2007';
    7777  GenerateTime := '1 s';
    78   Result := '<div id="Footer">| Web mistr: Jiří Hajda | e-mail: robie@centrum.cz | ICQ: 277158770 | Vygenerováno za ' + GenerateTime + ' s | Verze: 1.0 | Naposledy aktualizováno: ' + UpdateDate + ' |' +
     78  Result := '<div class="Footer">| Web mistr: Jiří Hajda | e-mail: robie@centrum.cz | ICQ: 277158770 | Vygenerováno za ' + GenerateTime + ' s | Verze: 1.0 | Naposledy aktualizováno: ' + UpdateDate + ' |' +
    7979    '</div>';
    8080  //ShowArray($GLOBALS);
    … …  
    117117  Database := TSqlDatabase.Create;
    118118  with Database do begin
    119     Hostname := 'localhost';
    120     Database := 'is';
    121     UserName := 'root';
    122     Password := 'severjih';
     119    Hostname := DatabaseHostName;
     120    Database := DatabaseDatabase;
     121    UserName := DatabaseUserName;
     122    Password := DatabasePassword;
    123123    Connect;
    124124  end;
Note: See TracChangeset for help on using the changeset viewer.