From dce6093a4d783e160de933e0c492916061a8e697 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 3 Nov 2007 17:08:52 +0000
Subject: [PATCH] IDE: ignore read only PO output directories for packages

git-svn-id: trunk@12720 -
---
 ide/idetranslations.pas    | 5 +++++
 packager/packagesystem.pas | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ide/idetranslations.pas b/ide/idetranslations.pas
index ec11d1cd58..c6ca8e7104 100644
--- a/ide/idetranslations.pas
+++ b/ide/idetranslations.pas
@@ -427,6 +427,11 @@ begin
   Result:=true;
   if (RSTDirectory='') then exit;// nothing to do
   RSTDirectory:=AppendPathDelim(RSTDirectory);
+  if not DirectoryIsWritableCached(RSTDirectory) then begin
+    // only update writable directories
+    DebugLn(['ConvertRSTFiles skipping read only directory ',RSTDirectory]);
+    exit(true);
+  end;
 
   // find all .rst files in package output directory
   PODirectory:=AppendPathDelim(PODirectory);
diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas
index 4e5236d262..47c636b1b2 100644
--- a/packager/packagesystem.pas
+++ b/packager/packagesystem.pas
@@ -2709,6 +2709,7 @@ begin
     exit(mrOK);
   end;
 
+  PkgOutputDirectory:=AppendPathDelim(APackage.GetOutputDirectory);
   if not ConvertRSTFiles(PkgOutputDirectory,RSTOutputDirectory) then begin
     DebugLn(['TLazPackageGraph.ConvertPackageRSTFiles FAILED: PkgOutputDirectory=',PkgOutputDirectory,' RSTOutputDirectory=',RSTOutputDirectory]);
     exit(mrCancel);