Changeset 279 for branches/web/index.pas


Ignore:
Timestamp:
Mar 5, 2010, 8:52:50 PM (15 years ago)
Author:
george
Message:
  • Upraveno: Aktualizována třída TSqlDatabase.
  • Upraveno: Binární sestavené soubory se nyní vytváří v podsložce bin.
Location:
branches/web
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/web

    • Property svn:ignore

      •  

        old new  
        33*.o
        44backup
        5 
        65index.cgi
        7 
        86index.compiled
        9 
        107UConfig.pas
         8bin

  • branches/web/index.pas

    r142 r279  
    44
    55uses
    6   UCore, USqlDatabase, SysUtils, UMainPage, pwinit, pwmain,
     6  UCore, USqlDatabase, SysUtils, UMainPage,
    77  UFinancePage, UNewsPage, UUserPage, UBill;
    88
    … …  
    1212  PageName: string;
    1313begin
    14   SetHeader('Content-Type', 'text/html; charset=utf-8');
    15   PageName := GetCgiVar('p');
     14//  SetHeader('Content-Type', 'text/html; charset=utf-8');
     15  //PageName := GetCgiVar('p');
    1616  if PageName = '' then PageName := 'index';
    1717  I := 0;
    … …  
    1919  if I < Length(Pages) then Output := Pages[I].Producer
    2020    else Output := 'Stránka nenalezena';
    21   WebWriteLn(FormatOutput(Output));
     21//  WebWriteLn(FormatOutput(Output));
    2222end.
Note: See TracChangeset for help on using the changeset viewer.