Ignore:
Timestamp:
Sep 9, 2022, 8:20:25 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Removed TemplateGenerics package. Generics usage replaced by standard Generics.Collections.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UPageAdmin.pas

    r137 r138  
    6161begin
    6262  with TWebSession(HandlerData) do begin
    63     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     63    with HtmlDocument.Body, SubItems.AddString do begin
    6464      TModuleSystem(ModuleManager.FindModuleByName('System')).UpdateModuleList;
    6565      Text := 'Seznam modulů synchronizován';
    … …  
    7676begin
    7777  with TWebSession(HandlerData) do begin
    78     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     78    with HtmlDocument.Body, SubItems.AddString do begin
    7979      Text := Text + '<strong>Registred modules:</strong><br/>' +
    8080        '<table class="WideTable"><tr><th>Name</th><th>Installed</th><th>Title</th><th>Version</th>' +
    … …  
    9999  ModuleName: string;
    100100  Module: TModule;
     101  Name: string;
    101102begin
    102103  with TWebSession(HandlerData) do begin
    103     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    104       if Request.Query.SearchKey('name') <> -1 then begin
    105         ModuleName := Request.Query.Values['name'];
     104    with HtmlDocument.Body, SubItems.AddString do begin
     105      if Request.Query.TryGetValue('name', Name) then begin
     106        ModuleName := Name;
    106107        Module := ModuleManager.FindModuleByName(ModuleName);
    107108        if Assigned(Module) then begin
    … …  
    121122  ModuleName: string;
    122123  Module: TModule;
     124  Name: string;
    123125begin
    124126  with TWebSession(HandlerData) do begin
    125     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    126       if Request.Query.SearchKey('name') <> -1 then begin
    127         ModuleName := Request.Query.Values['name'];
     127    with HtmlDocument.Body, SubItems.AddString do begin
     128      if Request.Query.TryGetValue('name', Name) then begin
     129        ModuleName := Name;
    128130        Module := ModuleManager.FindModuleByName(ModuleName);
    129131        if Assigned(Module) then begin
Note: See TracChangeset for help on using the changeset viewer.