Changeset 139 for devel/web/UNews.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)
• UNews.pas (modified) (6 diffs)

devel/web

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

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

devel/web/UNews.pas

@@ -6 +6 @@
 
 uses 
-  USqlDatabase, SysUtils, UCore, Classes, DOM;
+  USqlDatabase, SysUtils, UCore, Classes, UDatabase;
 
 type
@@ -12 +12 @@
   { TNewsCategory }
 
-  TNewsCategory = class
-    Id: Integer;
+  TNewsCategory = class(TDbObject)
     Title: string;
     Permission: Integer;
     procedure LoadFromDbRecord(DbRow: TAssocArray);
+    procedure Store; override;
   end;
   
-  TNewsItem = class
-    Id: Integer;
+  { TNewsItem }
+
+  TNewsItem = class(TDbObject)
     Title: string;
     Content: string;
@@ -28 +29 @@
     Category: Integer;
     procedure LoadFromDbRecord(DbRow: TAssocArray);
+    procedure Store; override;
   end;
 
@@ -37 +39 @@
     destructor Destroy; override;
     procedure LoadFromDb;
+    function ShowNews(Category: Integer): string;
   end;
 
@@ -59 +62 @@
 end;
 
+procedure TNewsItem.Store;
+var
+  Values: TAssocArray;
+begin
+  Values := TAssocArray.Create;
+  Values.AddKeyValue('content', Content);
+  Values.AddKeyValue('title', Title);
+  Values.AddKeyValue('author', Author);
+  Values.AddKeyValue('ip', IPAddress);
+  Values.AddKeyValue('time', IntToStr(DateTimeToUnix(Time)));
+  Values.AddKeyValue('category', IntToStr(Category));
+  Database.Update('news', Values, 'id=' + IntToStr(Id));
+  Values.Free;
+  inherited;
+end;
+
 function GenerateRSS: string;
 const
   MaxNewsItemCount = 15;
-  UploadedFilesFolder = 'uploads/';
+//  UploadedFilesFolder = 'uploads/';
 var
   RSSChannel:  TRSSChannel;
@@ -168 +187 @@
 end;
 
+procedure TNewsCategory.Store;
+var
+  Values: TAssocArray;
+begin
+  Values := TAssocArray.Create;
+  Values.AddKeyValue('permission', IntToStr(Permission));
+  Values.AddKeyValue('title', Title);
+  Database.Update('news_category', Values, 'id=' + IntToStr(Id));
+  Values.Free;
+  inherited;
+end;
+
+function TNews.ShowNews(Category: Integer): string;
+var
+  DbRows: TDbRows;
+  FontSize: Integer;
+  I: Integer;
+  II: Integer;
+  Enclosures: TArrayOfString;
+  Content: string;
+const
+  NewsCountPerCategory = 5;
+//  UploadedFilesFolder = 'aktuality/uploads/';
+begin
+//  global $NewsCategoryNames, $NewsCountPerCategory, $UploadedFilesFolder;
+  Result := '<table class="MainTable"><tr>' +
+    '<td>' + TNewsCategory(NewsCategoryList[Category]).Title + '</td><td align="right">'+
+    '<a href="?p=news-list&amp;category=' + IntToStr(Category) + '">Zobrazit všechny aktuality</a>&nbsp;';
+  if TNewsCategory(NewsCategoryList[Category]).Permission = 1 then
+    Result := Result + '<a href="?p=news-add&amp;category=' + IntToStr(Category) + '">Přidat aktualitu</a>&nbsp;';
+  Result := Result + '</td></tr><tr><td colspan="2" style="NewsTable">' +
+    '<table class="NewsTable" cellspacing="0" cellpadding="0">';
+  FontSize := 12;
+  DbRows := Database.Select('news', '*', 'category=' + IntToStr(Category) + ' ORDER BY date DESC LIMIT 0,' + IntToStr(NewsCountPerCategory));
+  for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
+    Content := Values['content'];
+    Content := StringReplace(Content, '<br>', '<br />', [rfReplaceAll]);
+    Result := Result + '<tr><td  onclick="window.location=''?p=news-item&amp;id=' + Values['id'] + '''" onmouseover="zobraz(''new' + Values['id'] + ''')" class="NewsTableItemTitle">' +
+      '<table class="NewsTableItemTitle">' +
+      '<tr><td style="font-size: ' + IntToStr(FontSize) + 'pt"><strong>' + Values['title'] + '</strong></td>'+
+      '<td align="right" style="font-size: ' + IntToStr(FontSize) + 'pt">' + Values['author'] + ' (' + HumanDate(Values['date']) + ')' +
+      '</td></tr></table>' +
+      '<div id="new' + Values['id'] + '" class="NewsTableItem">' + Content;
+
+    if Values['enclosure'] <> '' then begin
+      Result := Result + '<br />Přílohy: ';
+      Enclosures := Explode(';', Values['enclosure']);
+            for II := 0 to High(Enclosures) do begin
+              // if(file_exists($UploadedFilesFolder.$Enclosure)) echo(' <a href="'.$UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>')
+      end;
+    end;
+    Result := Result + '</div></td></tr>';
+    FontSize := FontSize - 1;
+  end;
+  Result := Result + '</table></td></tr></table>';
+end;
+
 end.

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