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

Opkman: Fixed bug in package update.

Browse Source 
git-svn-id: trunk@54500 -
This commit is contained in:
balazs 2017-03-30 05:03:58 +00:00
parent cdcf32e873
commit 7928345fb3
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/onlinepackagemanager/opkman_updates.pas
View File

@ -479,8 +479,14 @@ begin
begin begin
MS.Position := 0; MS.Position := 0;
SetLength(AJSON, MS.Size); SetLength(AJSON, MS.Size);
MS.Read(Pointer(AJSON)^, Length(AJSON)); MS.Read(Pointer(AJSON)^, Length(AJSON));
Result := Length(AJSON) > 0; Result := Length(AJSON) > 0;
{since the class name has changed form "UpdatePackageFiles" to "UpdateLazPackages",
we have to replace the references in the old JSONs(we don't have access to the files, they are
located at the developers update page.}
if Result then
AJSON := StringReplace(AJSON, 'UpdatePackageFiles', 'UpdateLazPackages', [rfReplaceAll, rfIgnoreCase]);
end; end;
end; end;
except except