forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed data migration code

This commit is contained in:
Basile Burg 2016-02-22 04:14:11 +01:00
parent b9350ca3b1
commit a710c6d3ab
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/ce_common.pas
View File

@ -263,36 +263,6 @@ type
implementation
{$IFDEF LINUX}
var
// flag that indicates that migration is to be done on first call to getCoeditData...
doneLinuxDataMigration: boolean = false;
procedure MigrateOldData;
var
oldLocation: string;
newLocation: string;
err: boolean;
begin
err := false;
doneLinuxDataMigration := true;
oldLocation := sysutils.GetEnvironmentVariable('HOME') +'/Coedit';
if not oldLocation.dirExists then exit;
newLocation := getUserDataPath + 'Coedit';
try
try
CopyDirTree(oldLocation, newLocation,
[cffOverwriteFile,cffCreateDestDirectory,cffPreserveTime]);
except
err := true;
end;
finally
if not err then
FileUtil.DeleteDirectory(oldLocation, false);
end;
end;
{$ENDIF}
procedure TCEPersistentShortcut.assign(aValue: TPersistent);
var
src: TCEPersistentShortcut;
@ -634,10 +604,6 @@ end;
function getCoeditDocPath: string;
begin
{$IFDEF LINUX}
if not doneLinuxDataMigration then
MigrateOldData;
{$ENDIF}
result := getUserDataPath + 'Coedit' + directorySeparator;
end;