paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Remove duplicates from "Available for installation list".

Browse Source 
git-svn-id: trunk@56979 -
This commit is contained in:
balazs 2018-01-06 10:55:20 +00:00
parent 69e9b23842
commit 061b9d15f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/lpkcache.pas
View File

@ -358,10 +358,10 @@ begin
if APackage is TLazPackage then if APackage is TLazPackage then
fAvailableFiles.Add(TLazPackage(APackage).Filename) fAvailableFiles.Add(TLazPackage(APackage).Filename)
else if APackage is TLazPackageLink then begin else if APackage is TLazPackageLink then begin
if (OPMInterface<>nil) and (TLazPackageLink(APackage).Origin=ploOnline) and {if (OPMInterface<>nil) and (TLazPackageLink(APackage).Origin=ploOnline) and
(not OPMInterface.IsPackageAvailable(TLazPackageLink(APackage), 2)) then (not OPMInterface.IsPackageAvailable(TLazPackageLink(APackage), 2)) then
fAvailableFiles.Add(TLazPackageLink(APackage).OPMFileName) fAvailableFiles.Add(TLazPackageLink(APackage).OPMFileName)
else else}
fAvailableFiles.Add(TLazPackageLink(APackage).LPKFilename); fAvailableFiles.Add(TLazPackageLink(APackage).LPKFilename);
end; end;
end; end;