Changeset 138 for devel/web/UNewsPage.pas

Timestamp:

Jan 15, 2009, 9:57:44 PM (16 years ago)

Author:

george

Message:

• Přidáno: Zobrazení RSS kanálu aktualit.

File:

• devel/web/UNewsPage.pas (modified) (4 diffs)

devel/web/UNewsPage.pas

@@ -6 +6 @@
 
 function NewsShowItemPage: string;
-  
+function NewsShowListPage: string;
+function RSSChannel: string;
+
 implementation
 
 uses 
-  USqlDatabase, UCore, UHtmlClasses, SysUtils, pwmain, UNews;
+  USqlDatabase, UCore, SysUtils, pwmain, UNews;
+
+function NewsChannelSelection: string;
+begin
+  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
+  Result := Result + ShowFooter;
+end;
+
+function RSSChannel: string;
+begin
+//  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
+  Result := GenerateRSS;
+//  Result := Result + ShowFooter;
+end;
 
 function NewsShowItemPage: string;
@@ -26 +41 @@
     Result := Result + '<div style="border: thin dotted #97ADFF; background: #F6F7FF; margin-top: 5px; ' + 
           'padding: 0px 5px 5px 5px;"><div style="padding-bottom: 1px; border-bottom-width: 1; border-bottom-style: ' + 
-          'solid; border-bottom-color: silver;"><strong>' + NewsItem.Title + ' (' + DateToStr(NewsItem.Date) + ', ' + NewsItem.Author + ')</strong>';
+          'solid; border-bottom-color: silver;"><strong>' + NewsItem.Title + ' (' + DateToStr(NewsItem.Time) + ', ' + NewsItem.Author + ')</strong>';
 (*            if($this->System->Modules['User']->User['Id'] == $Row['User'])
             { 
@@ -79 +94 @@
         Result := Result + '<div style="border: thin dotted #97ADFF; background: #F6F7FF; margin-top: 5px; padding: 0px 5px 5px 5px;"><div style="padding-bottom: 1px; border-bottom-width: 1;' +
          'border-bottom-style: solid; border-bottom-color: silver;"><strong><a href="?p=news-item&amp;id=' + 
-          IntToStr(NewsItem.Id) + '">' + NewsItem.Title + '</a> (' + DateToStr(NewsItem.Date) + ', ' + NewsItem.Author + ')</strong>';
+          IntToStr(NewsItem.Id) + '">' + NewsItem.Title + '</a> (' + DateToStr(NewsItem.Time) + ', ' + NewsItem.Author + ')</strong>';
       (*
           if($this->System->Modules['User']->User['Id'] == $Row['User'])
@@ -111 +126 @@
 RegisterPage('news-item', @NewsShowItemPage);   
 RegisterPage('news-list', @NewsShowListPage);   
+RegisterPage('news-rss', @RSSChannel);
+RegisterPage('news-selection', @NewsChannelSelection);
 
 end.