Changeset 100 for trunk/Pages/UPageAdmin.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/Pages/UPageAdmin.pas (modified) (2 diffs)

trunk/Pages/UPageAdmin.pas

@@ -104 +104 @@
   with TWebSession(HandlerData) do begin
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-      if Request.Query.IndexOfName('name') <> -1 then begin
+      if Request.Query.SearchKey('name') <> -1 then begin
         ModuleName := Request.Query.Values['name'];
         Module := Core.ModuleManager.FindModuleByName(ModuleName);
@@ -126 +126 @@
   with TWebSession(HandlerData) do begin
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-      if Request.Query.IndexOfName('name') <> -1 then begin
+      if Request.Query.SearchKey('name') <> -1 then begin
         ModuleName := Request.Query.Values['name'];
         Module := Core.ModuleManager.FindModuleByName(ModuleName);