Changeset 100 for trunk/Modules/TV/UPageTV.pas

Timestamp:

Oct 2, 2012, 2:52:20 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.

File:

• trunk/Modules/TV/UPageTV.pas (modified) (1 diff)

trunk/Modules/TV/UPageTV.pas

@@ -108 +108 @@
 
       Text := '#EXTM3U' + LineEnding;
-      if Request.Query.IndexOf('id') <> -1 then begin
+      if Request.Query.SearchKey('id') <> -1 then begin
         Database.Select(DbRows, 'TV', '*', ' (`Stream` <> "") AND (`ShortName`="' + Database.EscapeString(Request.Query.Values['id']) + '") ');
         if DbRows.Count > 0 then begin