Browse Source

* Packages can only be broken when they are installed

git-svn-id: trunk@35541 -
joost 8 years ago
parent
commit
910c05f942
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/fppkg/src/pkgfppkg.pp

+ 6 - 0
packages/fppkg/src/pkgfppkg.pp

@@ -333,6 +333,12 @@ var
 begin
 begin
   result:=false;
   result:=false;
 
 
+  if Assigned(APackage.Repository) and (APackage.Repository.RepositoryType <> fprtInstalled) then
+    begin
+    Result := False;
+    Exit;
+    end;
+
   EnterFindBrokenPackages;
   EnterFindBrokenPackages;
   try
   try
     HashPtr := PtrInt(FBrokenPackagesDictionary.Find(APackage.Name));
     HashPtr := PtrInt(FBrokenPackagesDictionary.Find(APackage.Name));