paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

printers4lazarus: undo debug

Browse Source 
git-svn-id: trunk@50171 -
This commit is contained in:
mattias 2015-10-26 09:28:57 +00:00
parent fb15809cef
commit 67a8e3a52e
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -851,14 +851,9 @@ var
var
CurPath: String;
begin
Result:=false;
writeln('TryTemporaryPath AAA1 ',Path);
CurPath:=CleanAndExpandDirectory(Path);
writeln('TryTemporaryPath AAA2 ',CurPath);
if CurPath='' then exit(false);
if not DirectoryIsWritable(CurPath) then exit;
NewPath:=CurPath;
Result:=true;
Result:=DirPathExists(CurPath);
if Result then NewPath:=CurPath;
end;
begin
@ -867,11 +862,10 @@ begin
inherited DoBeginDoc;
inc(FBeginDocCount);
if (not TryTemporaryPath('~/tmp1/'))
and (not TryTemporaryPath('/tmp2/'))
if (not TryTemporaryPath('~/tmp/'))
and (not TryTemporaryPath('/tmp/'))
and (not TryTemporaryPath('/var/tmp/')) then
NewPath:='';
Halt;
FOutputFileName := AppendPathDelim(NewPath)+
'OutPrinter_'+FormatDateTime('yyyymmmddd-hhnnss',Now);