Changeset 286 for branches/web/UNews.pas

Timestamp:

Sep 8, 2010, 10:08:43 AM (14 years ago)

Author:

george

Message:

• Odstraněno: Nadále nebude používána sada knihoven powutils.
• Přidáno: Vlastní třída pro obsluhu a podporu zpracování CGI programů.
• Upraveno: Korekce názvů sloupců a tabulek databáze.

File:

• branches/web/UNews.pas (modified) (7 diffs)

branches/web/UNews.pas

@@ -55 +55 @@
 procedure TNewsItem.LoadFromDbRecord(DbRow: TAssociativeArray);
 begin
-  Id := StrToInt(DbRow.Values['id']);
-  Title := DbRow.Values['title'];
-  Content := DbRow.Values['content'];
-  Time := UnixToDateTime(StrToInt(DbRow.Values['time']));
-  Author := DbRow.Values['author'];
-  IPAddress := DbRow.Values['ip'];
-  Category := StrToInt(DbRow.Values['category']);
+  Id := StrToInt(DbRow.Values['Id']);
+  Title := DbRow.Values['Title'];
+  Content := DbRow.Values['Content'];
+  Time := UnixToDateTime(StrToInt(DbRow.Values['Time']));
+  Author := DbRow.Values['Author'];
+  IPAddress := DbRow.Values['IP'];
+  Category := StrToInt(DbRow.Values['Category']);
 end;
 
@@ -69 +69 @@
 begin
   Values := TAssociativeArray.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.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;
@@ -116 +116 @@
   Where := '';
   for I := 0 to High(SelectParts) do
-    Where := Where + 'OR (category=' + SelectParts[I] + ')';
+    Where := Where + 'OR (Category=' + SelectParts[I] + ')';
   Where := Copy(Where, 3, Length(Where));
   if Where = '' then Where := '1';
 
-  DbRows := Database.Query('SELECT *,UNIX_TIMESTAMP(date) as time FROM news WHERE ' + Where + ' ORDER BY date DESC LIMIT 0,' + IntToStr(MaxNewsItemCount));  for I := 0 to DbRows.Count - 1 do begin
+  DbRows := Database.Query('SELECT *,UNIX_TIMESTAMP(Date) AS Time FROM News WHERE ' + Where + ' ORDER BY Date DESC LIMIT 0,' + IntToStr(MaxNewsItemCount));  for I := 0 to DbRows.Count - 1 do begin
     NewsItem.LoadFromDbRecord(DbRows[I]);
     NewItem := TRSSChannelItem.Create;
@@ -171 +171 @@
   NewCategory: TNewsCategory;
 begin
-  DbRows := Database.Select('news_category', '*');
+  DbRows := Database.Select('NewsCategory', '*');
   for I := 0 to DbRows.Count - 1 do begin
     NewCategory := TNewsCategory.Create;
@@ -184 +184 @@
 procedure TNewsCategory.LoadFromDbRecord(DbRow: TAssociativeArray);
 begin
-  Id := StrToInt(DbRow.Values['id']);
-  Title := DbRow.Values['caption'];
-  Permission := StrToInt(DbRow.Values['permission']);
+  Id := StrToInt(DbRow.Values['Id']);
+  Title := DbRow.Values['Caption'];
+  Permission := StrToInt(DbRow.Values['Permission']);
 end;
 
@@ -194 +194 @@
 begin
   Values := TAssociativeArray.Create;
-  Values.AddKeyValue('permission', IntToStr(Permission));
-  Values.AddKeyValue('title', Title);
-  Database.Update('news_category', Values, 'id=' + IntToStr(Id));
+  Values.AddKeyValue('Permission', IntToStr(Permission));
+  Values.AddKeyValue('Title', Title);
+  Database.Update('NewsCategory', Values, 'Id=' + IntToStr(Id));
   Values.Free;
   inherited;
@@ -222 +222 @@
     '<table class="NewsTable" cellspacing="0" cellpadding="0">';
   FontSize := 12;
-  DbRows := Database.Select('news', '*', 'category=' + IntToStr(Category) + ' ORDER BY date DESC LIMIT 0,' + IntToStr(NewsCountPerCategory));
+  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 := 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">' +
+    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']) + ')' +
+      '<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
+      '<div id="new' + Values['Id'] + '" class="NewsTableItem">' + Content;
+
+    if Values['Enclosure'] <> '' then begin
       Result := Result + '<br />Přílohy: ';
-      Enclosures := Explode(';', Values['enclosure']);
+      Enclosures := Explode(';', Values['Enclosure']);
             for II := 0 to High(Enclosures) do begin
               // if(file_exists($UploadedFilesFolder.$Enclosure)) echo(' <a href="'.$UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>')