From 52ec3afd42fb64095b51657b2d09fcbe33e799e0 Mon Sep 17 00:00:00 2001
From: Regis Houssin <regis@dolibarr.fr>
Date: Fri, 30 Nov 2007 12:48:50 +0000
Subject: [PATCH] =?UTF-8?q?Fix:=20On=20test=20si=20le=20r=E9pertoire=20ins?=
 =?UTF-8?q?tall=20est=20executable?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 htdocs/index.php | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/htdocs/index.php b/htdocs/index.php
index 4f1027825e1..bfc471afa18 100644
--- a/htdocs/index.php
+++ b/htdocs/index.php
@@ -58,14 +58,14 @@ if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD)))
 // Affiche warning répertoire install existe (si utilisateur admin)
 if ($user->admin && ! defined("MAIN_REMOVE_INSTALL_WARNING"))
 {
-    if (is_dir(DOL_DOCUMENT_ROOT."/install") && is_readable(DOL_DOCUMENT_ROOT."/install"))
-    {
-        $langs->load("other");
-        $message=$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install");
-        $message.=$langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install");
+	if (is_dir(DOL_DOCUMENT_ROOT."/install") && is_readable(DOL_DOCUMENT_ROOT."/install") && is_executable(DOL_DOCUMENT_ROOT."/install"))
+  {
+  	$langs->load("other");
+    $message=$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install");
+    $message.=$langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install");
 		print info_admin($message);
-        print "<br>\n";
-    }
+    print "<br>\n";
+  }
 }
 
 print '<table width="100%" class="notopnoleftnoright">';