paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 15:07:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

More bugfix.

Browse Source 
git-svn-id: trunk@53641 -
This commit is contained in:
balazs 2016-12-11 19:07:44 +00:00
parent 4713fdef72
commit 61466674a4
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/onlinepackagemanager/opkman_updates.pas
View File

@ -83,7 +83,6 @@ type
procedure DoOnUpdate; procedure DoOnUpdate;
procedure Load; procedure Load;
procedure Save; procedure Save;
procedure SetPaused(const AValue: Boolean);
procedure AssignPackageData(APackage: TPackage); procedure AssignPackageData(APackage: TPackage);
procedure ResetPackageData(APackage: TPackage); procedure ResetPackageData(APackage: TPackage);
procedure CheckForOpenSSL; procedure CheckForOpenSSL;
@ -282,7 +281,8 @@ var
Package: TPackage; Package: TPackage;
PackageFile: TPackageFile; PackageFile: TPackageFile;
begin begin
FNeedToBreak := True; if SerializablePackages.Count = 0 then
Exit;
FXML.Clear; FXML.Clear;
FXML.SetDeleteValue('Version/Value', OpkVersion, 0); FXML.SetDeleteValue('Version/Value', OpkVersion, 0);
FXML.SetDeleteValue('Count/Value', SerializablePackages.Count, 0); FXML.SetDeleteValue('Count/Value', SerializablePackages.Count, 0);
@ -308,16 +308,6 @@ begin
FXML.Flush; FXML.Flush;
end; end;
procedure TUpdates.SetPaused(const AValue: Boolean);
begin
if FPaused <> AValue then
begin
FPaused := AValue;
if FPaused then
Save;
end;
end;
procedure TUpdates.AssignPackageData(APackage: TPackage); procedure TUpdates.AssignPackageData(APackage: TPackage);
var var
I: Integer; I: Integer;