lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix: On test si le rpertoire install est executable

Browse Source
This commit is contained in:
Regis Houssin 2007-11-30 12:48:50 +00:00
parent cc6b14543f
commit 52ec3afd42
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
htdocs/index.php
View File

@ -58,14 +58,14 @@ if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD)))
// Affiche warning répertoire install existe (si utilisateur admin) // Affiche warning répertoire install existe (si utilisateur admin)
if ($user->admin && ! defined("MAIN_REMOVE_INSTALL_WARNING")) if ($user->admin && ! defined("MAIN_REMOVE_INSTALL_WARNING"))
{ {
if (is_dir(DOL_DOCUMENT_ROOT."/install") && is_readable(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"); $langs->load("other");
$message=$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install"); $message=$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install");
$message.=$langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install"); $message.=$langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install");
print info_admin($message); print info_admin($message);
print "<br>\n"; print "<br>\n";
} }
} }
print '<table width="100%" class="notopnoleftnoright">'; print '<table width="100%" class="notopnoleftnoright">';