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/UNewsPage.pas

    r139 r279  
    1212
    1313uses
    14   USqlDatabase, UCore, SysUtils, pwmain, UNews, UConfig;
     14  USqlDatabase, UCore, SysUtils, UNews, UConfig;
    1515
    1616function NewsChannelBuild: string;
    … …  
    2323  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
    2424  URL := '';
    25   Count := CountCgiVars;
     25  //Count := CountCgiVars;
    2626  for I := 0 to Count - 1 do begin
    27     Index := FetchCgiVarName(I);
     27    //Index := FetchCgiVarName(I);
    2828    if Copy(Index, 1, 8) = 'category' then URL := URL + '-' + Copy(Index, 9, Length(Index));
    2929  end;
    … …  
    6767  NewsItem := TNewsItem.Create;
    6868  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
    69   if GetCgiVar('id') = '' then Id := 1 else Id := StrToInt(GetCgiVar('id')); 
     69  //if GetCgiVar('id') = '' then Id := 1 else Id := StrToInt(GetCgiVar('id'));
    7070  DbRows := Database.Query('SELECT `news`.*, UNIX_TIMESTAMP(`news`.date) as time, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE  `news`.`id`=' + IntToStr(Id));
    7171  if DbRows.Count > 0 then begin
    … …  
    110110begin
    111111  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
    112   if GetCgiVar('category') = '' then Category := 1 else Category := StrToInt(GetCgiVar('category')); 
     112//  if GetCgiVar('category') = '' then Category := 1 else Category := StrToInt(GetCgiVar('category'));
    113113  NewsItem := TNewsItem.Create;
    114114  DbRows := TDbRows.Create;
    … …  
    116116  PageMax := StrToInt(DbRows[0].ValuesAtIndex[0]);
    117117  DbRows.Free;
    118   if GetCgiVar('page') = '' then Page := 0 else Page := StrToInt(GetCgiVar('page'));
     118//  if GetCgiVar('page') = '' then Page := 0 else Page := StrToInt(GetCgiVar('page'));
    119119  CategoryName := '';
    120120  Result := Result + '<strong>Seznam aktualit kategorie ' + CategoryName + ':</strong><div style="font-size: small;">';
Note: See TracChangeset for help on using the changeset viewer.