FIX: Bug [0002248] Multiple errors and issues with file operations on Webdav

This commit is contained in:
Alexander Koblov 2019-03-09 10:06:48 +00:00
commit 032c4dc095

View file

@ -485,11 +485,8 @@ var
TargetFileSource: IFileSource;
begin
TargetFileSource := Self;
theTargetFiles.Path:= FCurrentAddress + theTargetFiles.Path;
Result := TGioSetFilePropertyOperation.Create(
TargetFileSource,
theTargetFiles,
theNewProperties);
if not StrBegins(theTargetFiles.Path, FCurrentAddress) then theTargetFiles.Path:= FCurrentAddress + theTargetFiles.Path;
Result := TGioSetFilePropertyOperation.Create(TargetFileSource, theTargetFiles, theNewProperties);
end;
end.