From ef95ffb749f94e69ab474bb5c0977d6ee80c9edd Mon Sep 17 00:00:00 2001
From: Regis Houssin <regis@dolibarr.fr>
Date: Wed, 26 Sep 2007 19:13:21 +0000
Subject: [PATCH] =?UTF-8?q?Fix:=20evite=20erreur=20si=20champ=20mal=20rens?=
 =?UTF-8?q?eign=E9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 htdocs/lib/functions.inc.php | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/htdocs/lib/functions.inc.php b/htdocs/lib/functions.inc.php
index 64d64741ff3..d88e90cb4b6 100644
--- a/htdocs/lib/functions.inc.php
+++ b/htdocs/lib/functions.inc.php
@@ -2684,20 +2684,23 @@ function dol_entity_decode($StringHtml)
 */
 function clean_url($url,$http=1)
 {
-	//Todo: voir plus tard pour les url avec accent
-	$url = unaccent(trim($url));
+	if (eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url))
+	{
+		//Todo: voir plus tard pour les url avec accent
+	  $url = unaccent(trim($url));
 
-	// Si défini on supprime le http
-	// TODO: supprimer les slashs en trop
-	if ($http==0) $url = eregi_replace('^http(s)?:[\\\/]+','',$url);
+	  // Si défini on supprime le http
+	  // TODO: supprimer les slashs en trop
+	  if ($http==0) $url = eregi_replace('^http(s)?:[\\\/]+','',$url);
 
-	// On récupère le nom de domaine
-	$domain = eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url,$regs);
+	  // On récupère le nom de domaine
+	  $domain = eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url,$regs);
 
-	// On passe le nom de domaine en minuscule
-	$url = eregi_replace($regs[0],strtolower($regs[0]),$url);
+	  // On passe le nom de domaine en minuscule
+	  $url = eregi_replace($regs[0],strtolower($regs[0]),$url);
 
-	return $url;
+	  return $url;
+	}
 }
 
 /**