Changeset 91 for branches/DirectWeb/URSS.pas

Timestamp:

Dec 21, 2009, 1:19:39 PM (15 years ago)

Author:

george

Message:

• Upraveno: Třída TWebServer oddělena do samostatné jednotky.

File:

• branches/DirectWeb/URSS.pas (modified) (2 diffs)

branches/DirectWeb/URSS.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, pwmain, dateutils;
+  Classes, SysUtils, DateUtils;
 
 type
@@ -56 +56 @@
   with TRSSChannelItem(Items[I]) do begin
     Result := Result + '<item>' +
-      '<title>' + FilterHTML(Title) + '</title>' +
-      '<description>' + FilterHTML(Description) + '</description>' +
+      '<title>' + Title + '</title>' +
+      '<description>' + Description + '</description>' +
       '<pubDate>' + RFC2822TimeFormat(Time) + '</pubDate>' +
       '<link>' + Link + '</link>' +