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

printers4lazarus: cups: checkif tmp dir writable

Browse Source 
git-svn-id: trunk@50172 -
This commit is contained in:
mattias 2015-10-26 09:29:29 +00:00
parent 67a8e3a52e
commit 7cdf5a2bb6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/printers/unix/cupsprinters.inc
View File

@ -851,9 +851,12 @@ var
var
CurPath: String;
begin
Result:=false;
CurPath:=CleanAndExpandDirectory(Path);
Result:=DirPathExists(CurPath);
if Result then NewPath:=CurPath;
if CurPath='' then exit(false);
if not DirectoryIsWritable(CurPath) then exit;
NewPath:=CurPath;
Result:=true;
end;
begin