Changeset 139 for devel/web/UNewsPage.pas

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:

• . (modified) (1 prop)
• UNewsPage.pas (modified) (4 diffs)

devel/web

@@ -7 +7 @@
 
 index.compiled
+
+UConfig.pas

@@ -7 +7 @@
 
 index.compiled
+
+UConfig.pas

devel/web/UNewsPage.pas

@@ -12 +12 @@
 
 uses 
-  USqlDatabase, UCore, SysUtils, pwmain, UNews;
+  USqlDatabase, UCore, SysUtils, pwmain, UNews, UConfig;
+
+function NewsChannelBuild: string;
+var
+  URL: string;
+  I: Integer;
+  Count: Integer;
+  Index: string;
+begin
+  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
+  URL := '';
+  Count := CountCgiVars;
+  for I := 0 to Count - 1 do begin
+    Index := FetchCgiVarName(I);
+    if Copy(Index, 1, 8) = 'category' then URL := URL + '-' + Copy(Index, 9, Length(Index));
+  end;
+  URL := WebServerAddress + '?p=news-rss&amp;select=' + Copy(URL, 2, Length(URL));
+  Result := Result + 'Výsledný RSS kanál: <a href="' + URL + '">' + URL + '</a>';
+  Result := Result + ShowFooter;
+end;
 
 function NewsChannelSelection: string;
+var
+  DbRows: TDbRows;
+  I: Integer;
 begin
   Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
+  Result := Result + 'Vytvořte si vlastní RSS kanál, díky kterému budete moci automaticky sledovat novinky pomocí vaší RSS čtečky. ' +
+  'Informace o technologii RSS a programech pro čtení kanálů najdete např. <a href="http://www.lupa.cz/clanky/prehled-rss-ctecek/">zde</a><br />' +
+  '<br />Kategorie:<br />';
+  Result := Result + '<form action="?p=news-build" method="post">';
+  DbRows := Database.Select('news_category', '*', '1 ORDER BY caption');
+  for I := 0 to DbRows.Count - 1 do
+    Result := Result + '<input type="checkbox" name="category' + DbRows[I].Values['id'] + '">' +
+      DbRows[I].Values['caption']+ '<br />';
+  Result := Result + '<input type="submit" value="Sestavit ">' +
+    '</form>';
   Result := Result + ShowFooter;
 end;
@@ -36 +68 @@
   Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
   if GetCgiVar('id') = '' then Id := 1 else Id := StrToInt(GetCgiVar('id'));  
-  DbRows := Database.Query('SELECT `news`.*, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE  `news`.`id`=' + IntToStr(Id));
+  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));
   if DbRows.Count > 0 then begin
     NewsItem.LoadFromDbRecord(DbRows[0]);
@@ -89 +121 @@
   Result := Result + PagesList('?p=news-list&amp;category=' + IntToStr(Category) + '&amp;page=', Page, PageMax, PerPage);
 
-  DbRows := Database.Query('SELECT `news`.*, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE `category`=' + IntToStr(Category) + ' ORDER BY `news`.`id` DESC LIMIT ' + IntToStr(Page * PerPage) + ',' + IntToStr(PerPage));
+  DbRows := Database.Query('SELECT `news`.*, UNIX_TIMESTAMP(`news`.date) as time, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE `category`=' + IntToStr(Category) + ' ORDER BY `news`.`id` DESC LIMIT ' + IntToStr(Page * PerPage) + ',' + IntToStr(PerPage));
   for I := 0 to DbRows.Count - 1 do begin
     NewsItem.LoadFromDbRecord(DbRows[I]);
@@ -128 +160 @@
 RegisterPage('news-rss', @RSSChannel);
 RegisterPage('news-selection', @NewsChannelSelection);
+RegisterPage('news-build', @NewsChannelBuild);
 
 end.

@@ -7 +7 @@
 
 index.compiled
+
+UConfig.pas