Changeset 139 for devel/web/index.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/index.pas

    r138 r139  
    55uses
    66  UCore, USqlDatabase, SysUtils, UMainPage, pwinit, pwmain,
    7   UFinancePage, UNewsPage;
     7  UFinancePage, UNewsPage, UUserPage;
    88
    99var
    … …  
    1414  SetHeader('Content-Type', 'text/html; charset=utf-8');
    1515  PageName := GetCgiVar('p');
    16   if PageName = '' then PageName := 'news-rss';
     16  if PageName = '' then PageName := 'index';
    1717  I := 0;
    1818  while (I < Length(Pages)) and (Pages[I].Name <> PageName) do Inc(I);
Note: See TracChangeset for help on using the changeset viewer.