Fix: evite erreur si champ mal renseign

This commit is contained in:
Regis Houssin
2007-09-26 19:13:21 +00:00
parent d4cf3efc70
commit ef95ffb749

View File

@@ -2683,6 +2683,8 @@ function dol_entity_decode($StringHtml)
\return string CleanUrl \return string CleanUrl
*/ */
function clean_url($url,$http=1) function clean_url($url,$http=1)
{
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 //Todo: voir plus tard pour les url avec accent
$url = unaccent(trim($url)); $url = unaccent(trim($url));
@@ -2699,6 +2701,7 @@ function clean_url($url,$http=1)
return $url; return $url;
} }
}
/** /**
\brief Supprime le code html \brief Supprime le code html