paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 16:31:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Fixed regression. Description and license are not updated after install. Bug reported by @minesadorada.

Browse Source 
git-svn-id: trunk@53750 -
This commit is contained in:
balazs 2016-12-21 20:12:27 +00:00
parent 925cc1d5ef
commit 1e4d0ca5e8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1109,7 +1109,7 @@ end;
procedure TVisualTree.UpdatePackageUStatus;
var
Node: PVirtualNode;
Data: PData;
Data, ParentData: PData;
Package: TPackage;
PackageFile: TPackageFile;
begin
@ -1146,14 +1146,15 @@ begin
if Data^.DataType in [3..19] then
begin
FVST.IsDisabled[Node] := FVST.IsDisabled[Node^.Parent];
ParentData := FVST.GetNodeData(Node^.Parent);
if (Data^.DataType = 3) or (Data^.DataType = 9) then
begin
case Data^.DataType of
3: if Data^.InstalledVersion <> '' then
3: if ParentData^.InstalledVersion <> '' then
Data^.Description := PackageFile.InstalledFileDescription
else
Data^.Description := PackageFile.Description;
9: if Data^.InstalledVersion <> '' then
9: if ParentData^.InstalledVersion <> '' then
Data^.License := PackageFile.InstalledFileLincese
else
Data^.License := PackageFile.License;