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

Fix: Bug 23775

Browse Source
This commit is contained in:
Laurent Destailleur 2008-07-15 00:57:36 +00:00
parent 7cd10d94c2
commit 3088596dc0
7 changed files with 188 additions and 153 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
htdocs/comm/propal.php
View File

@ -331,7 +331,7 @@ if ($_POST['addfile'])
} }
else else
{ {
// Echec transfert (fichier dépassant la limite ?) // Echec transfert (fichier d<EFBFBD>passant la limite ?)
$mesg = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>'; $mesg = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>';
// print_r($_FILES); // print_r($_FILES);
} }
@ -512,7 +512,7 @@ if ($_GET['action'] == 'modif' && $user->rights->propale->creer)
$propal->fetch($_GET['propalid']); $propal->fetch($_GET['propalid']);
$propal->set_draft($user); $propal->set_draft($user);
//regénération pdf //reg<EFBFBD>n<EFBFBD>ration pdf
if ($_REQUEST['lang_id']) if ($_REQUEST['lang_id'])
{ {
$outputlangs = new Translate("",$conf); $outputlangs = new Translate("",$conf);
@ -1634,7 +1634,7 @@ if ($_GET['propalid'] > 0)
if ($conf->use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX) if ($conf->use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX)
{ {
$url = $_SERVER["PHP_SELF"].'?propalid='.$propal->id.'&action=confirm_validate&confirm=yes'; $url = $_SERVER["PHP_SELF"].'?propalid='.$propal->id.'&action=confirm_validate&confirm=yes';
print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.$langs->trans('ConfirmValidateProp').'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"'; print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.dol_escape_js($langs->trans('ConfirmValidateProp')).'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"';
} }
else else
{ {

6
htdocs/commande/fiche.php
View File

@ -601,7 +601,7 @@ if ($_POST['addfile'])
} }
else else
{ {
// Echec transfert (fichier dépassant la limite ?) // Echec transfert (fichier d<EFBFBD>passant la limite ?)
$mesg = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>'; $mesg = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>';
// print_r($_FILES); // print_r($_FILES);
} }
@ -925,7 +925,7 @@ if ($_GET['action'] == 'create' && $user->rights->commande->creer)
print '<textarea name="note_public" wrap="soft" cols="70" rows="'.ROWS_3.'">'; print '<textarea name="note_public" wrap="soft" cols="70" rows="'.ROWS_3.'">';
print '</textarea></td></tr>'; print '</textarea></td></tr>';
// Note privée // Note priv<EFBFBD>e
if (! $user->societe_id) if (! $user->societe_id)
{ {
print '<tr>'; print '<tr>';
@ -1753,7 +1753,7 @@ else
$num = $commande->ref; $num = $commande->ref;
} }
$url = $_SERVER["PHP_SELF"].'?id='.$commande->id.'&action=confirm_validate&confirm=yes'; $url = $_SERVER["PHP_SELF"].'?id='.$commande->id.'&action=confirm_validate&confirm=yes';
print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.$langs->trans('ConfirmValidateOrder',$num).'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"'; print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.dol_escape_js($langs->trans('ConfirmValidateOrder',$num)).'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"';
} }
else else
{ {

24
htdocs/compta/facture.php
View File

@ -233,7 +233,7 @@ if ($_POST['action'] == 'set_ref_client')
} }
// Classe à "validée" // Classe à "validée"
if ($_POST['action'] == 'confirm_valid' && $_POST['confirm'] == 'yes' && $user->rights->facture->valider) if ($_REQUEST['action'] == 'confirm_valid' && $_REQUEST['confirm'] == 'yes' && $user->rights->facture->valider)
{ {
$fac = new Facture($db); $fac = new Facture($db);
$fac->fetch($_GET['facid']); $fac->fetch($_GET['facid']);
@ -2791,7 +2791,27 @@ else
{ {
if ($user->rights->facture->valider) if ($user->rights->facture->valider)
{ {
print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?facid='.$fac->id.'&amp;action=valid">'.$langs->trans('Validate').'</a>'; print '<a class="butAction" ';
if ($conf->use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX)
{
// on verifie si la commande est en numerotation provisoire
$ref = substr($fac->ref, 1, 4);
if ($ref == 'PROV')
{
$num = $fac->getNextNumRef($soc);
}
else
{
$num = $fac->ref;
}
$url = $_SERVER["PHP_SELF"].'?facid='.$fac->id.'&amp;action=confirm_valid&confirm=yes';
print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.dol_escape_js($langs->trans('ConfirmValidateBill',$num)).'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"';
}
else
{
print 'href="'.$_SERVER["PHP_SELF"].'?facid='.$fac->id.'&amp;action=valid"';
}
print '>'.$langs->trans('Validate').'</a>';
} }
} }

2
htdocs/fichinter/fiche.php
View File

@ -895,7 +895,7 @@ elseif ($_GET["id"] > 0)
if ($conf->use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX) if ($conf->use_javascript_ajax && $conf->global->MAIN_CONFIRM_AJAX)
{ {
$url = $_SERVER["PHP_SELF"].'?id='.$fichinter->id.'&action=confirm_validate&confirm=yes'; $url = $_SERVER["PHP_SELF"].'?id='.$fichinter->id.'&action=confirm_validate&confirm=yes';
print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.$langs->trans('ConfirmValidateIntervention').'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"'; print 'href="#" onClick="dialogConfirm(\''.$url.'\',\''.dol_escape_js($langs->trans('ConfirmValidateIntervention')).'\',\''.$langs->trans("Yes").'\',\''.$langs->trans("No").'\',\'validate\')"';
} }
else else
{ {

290
htdocs/lib/functions.lib.php
View File

@ -29,7 +29,7 @@
\version $Id$ \version $Id$
*/ */
// Pour compatibilité lors de l'upgrade // Pour compatibilit<EFBFBD> lors de l'upgrade
if (! defined('DOL_DOCUMENT_ROOT')) define('DOL_DOCUMENT_ROOT', '..'); if (! defined('DOL_DOCUMENT_ROOT')) define('DOL_DOCUMENT_ROOT', '..');
if (! defined('ADODB_DATE_VERSION')) include_once(DOL_DOCUMENT_ROOT."/includes/adodbtime/adodb-time.inc.php"); if (! defined('ADODB_DATE_VERSION')) include_once(DOL_DOCUMENT_ROOT."/includes/adodbtime/adodb-time.inc.php");
@ -56,7 +56,7 @@ function ValidEmail($address)
} }
/** /**
\brief Renvoi vrai si l'email a un nom de domaine qui résoud via dns \brief Renvoi vrai si l'email a un nom de domaine qui r<EFBFBD>soud via dns
\param mail adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>") \param mail adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
\return boolean true si email valide, false sinon \return boolean true si email valide, false sinon
*/ */
@ -114,17 +114,31 @@ function sanitize_string($str)
} }
/**
* \brief Returns text escaped for inclusion in javascript code
* \param $stringtoescape String to escape
* \return string Escaped string
*/
function dol_escape_js($stringtoescape)
{
// escape quotes and backslashes, newlines, etc.
return strtr($stringtoescape, array('\\'=>'\\\\',"'"=>"\\'",'"'=>'\\"',"\r"=>'\\r',"\n"=>'\\n','</'=>'<\/'));
}
/** /**
\brief Envoi des messages dolibarr dans un fichier ou dans syslog \brief Envoi des messages dolibarr dans un fichier ou dans syslog
Pour fichier: fichier défini par SYSLOG_FILE Pour fichier: fichier defini par SYSLOG_FILE
Pour syslog: facility défini par SYSLOG_FACILITY Pour syslog: facility defini par SYSLOG_FACILITY
\param message Message a tracer. Ne doit pas etre traduit si level = LOG_ERR \param message Message a tracer. Ne doit pas etre traduit si level = LOG_ERR
\param level Niveau de l'erreur \param level Niveau de l'erreur
\remarks Cette fonction n'a un effet que si le module syslog est activé. \remarks Cette fonction n'a un effet que si le module syslog est activ<EFBFBD>.
Warning, les fonctions syslog sont buggués sous Windows et générent des Warning, les fonctions syslog sont buggu<EFBFBD>s sous Windows et g<EFBFBD>n<EFBFBD>rent des
fautes de protection mémoire. Pour résoudre, utiliser le loggage fichier, fautes de protection m<EFBFBD>moire. Pour r<EFBFBD>soudre, utiliser le loggage fichier,
au lieu du loggage syslog (configuration du module). au lieu du loggage syslog (configuration du module).
Si SYSLOG_FILE_NO_ERROR défini, on ne gére pas erreur ecriture log Si SYSLOG_FILE_NO_ERROR d<EFBFBD>fini, on ne g<EFBFBD>re pas erreur ecriture log
\remarks On Windows LOG_ERR=4, LOG_WARNING=5, LOG_NOTICE=LOG_INFO=LOG_DEBUG=6 \remarks On Windows LOG_ERR=4, LOG_WARNING=5, LOG_NOTICE=LOG_INFO=LOG_DEBUG=6
On Linux LOG_ERR=3, LOG_WARNING=4, LOG_INFO=6, LOG_DEBUG=7 On Linux LOG_ERR=3, LOG_WARNING=4, LOG_INFO=6, LOG_DEBUG=7
*/ */
@ -185,7 +199,7 @@ function dolibarr_syslog($message, $level=LOG_INFO)
} }
else else
{ {
//define_syslog_variables(); déja définit dans master.inc.php //define_syslog_variables(); d<EFBFBD>ja d<>finit dans master.inc.php
if (defined("MAIN_SYSLOG_FACILITY") && MAIN_SYSLOG_FACILITY) if (defined("MAIN_SYSLOG_FACILITY") && MAIN_SYSLOG_FACILITY)
{ {
$facility = MAIN_SYSLOG_FACILITY; $facility = MAIN_SYSLOG_FACILITY;
@ -269,11 +283,11 @@ function dolibarr_fiche_head($links, $active='0', $title='', $notab=0)
/** /**
\brief Sauvegarde parametrage personnel \brief Sauvegarde parametrage personnel
\param db Handler d'accés base \param db Handler d'acc<EFBFBD>s base
\param user Objet utilisateur \param user Objet utilisateur
\param url Si defini, on sauve parametre du tableau tab dont clé = (url avec sortfield, sortorder, begin et page) \param url Si defini, on sauve parametre du tableau tab dont cl<EFBFBD> = (url avec sortfield, sortorder, begin et page)
Si non defini on sauve tous parametres du tableau tab Si non defini on sauve tous parametres du tableau tab
\param tab Tableau (clé=>valeur) des paramétres a sauvegarder \param tab Tableau (cl<EFBFBD>=>valeur) des param<EFBFBD>tres a sauvegarder
\return int <0 si ko, >0 si ok \return int <0 si ko, >0 si ok
*/ */
function dolibarr_set_user_page_param($db, &$user, $url='', $tab) function dolibarr_set_user_page_param($db, &$user, $url='', $tab)
@ -283,7 +297,7 @@ function dolibarr_set_user_page_param($db, &$user, $url='', $tab)
$db->begin(); $db->begin();
// On efface anciens paramétres pour toutes les clé dans $tab // On efface anciens param<EFBFBD>tres pour toutes les cl<63> dans $tab
$sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param"; $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param";
$sql.= " WHERE fk_user = ".$user->id; $sql.= " WHERE fk_user = ".$user->id;
if ($url) $sql.=" AND page='".$url."'"; if ($url) $sql.=" AND page='".$url."'";
@ -309,7 +323,7 @@ function dolibarr_set_user_page_param($db, &$user, $url='', $tab)
foreach ($tab as $key => $value) foreach ($tab as $key => $value)
{ {
// On positionne nouveaux paramétres // On positionne nouveaux param<EFBFBD>tres
if ($value && (! $url || in_array($key,array('sortfield','sortorder','begin','page')))) if ($value && (! $url || in_array($key,array('sortfield','sortorder','begin','page'))))
{ {
$sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value)"; $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value)";
@ -339,7 +353,7 @@ function dolibarr_set_user_page_param($db, &$user, $url='', $tab)
/** /**
\brief Formattage des nombres \brief Formattage des nombres
\param ca valeur a formater \param ca valeur a formater
\return int valeur formatée \return int valeur format<EFBFBD>e
*/ */
function dolibarr_print_ca($ca) function dolibarr_print_ca($ca)
{ {
@ -367,10 +381,10 @@ function dolibarr_print_ca($ca)
/** /**
\brief Effectue un décalage de date par rapport a une durée \brief Effectue un d<EFBFBD>calage de date par rapport a une dur<EFBFBD>e
\param time Date timestamp ou au format YYYY-MM-DD \param time Date timestamp ou au format YYYY-MM-DD
\param duration_value Valeur de la durée a ajouter \param duration_value Valeur de la dur<EFBFBD>e a ajouter
\param duration_unit Unité de la durée a ajouter (d, m, y) \param duration_unit Unit<EFBFBD> de la dur<EFBFBD>e a ajouter (d, m, y)
\return int Nouveau timestamp \return int Nouveau timestamp
*/ */
function dolibarr_time_plus_duree($time,$duration_value,$duration_unit) function dolibarr_time_plus_duree($time,$duration_value,$duration_unit)
@ -393,13 +407,13 @@ function dolibarr_time_plus_duree($time,$duration_value,$duration_unit)
"%d/%m/%Y %H:%M", "%d/%m/%Y %H:%M",
"%d/%m/%Y %H:%M:%S", "%d/%m/%Y %H:%M:%S",
"day", "daytext", "dayhour", "dayhourldap", "dayhourtext" "day", "daytext", "dayhour", "dayhourldap", "dayhourtext"
\return string Date formatée ou '' si time null \return string Date format<EFBFBD>e ou '' si time null
*/ */
function dolibarr_print_date($time,$format='') function dolibarr_print_date($time,$format='')
{ {
global $conf; global $conf;
// Si format non défini, on prend $conf->format_date_text_short sinon %Y-%m-%d %H:%M:%S // Si format non d<EFBFBD>fini, on prend $conf->format_date_text_short sinon %Y-%m-%d %H:%M:%S
if (! $format) $format=(isset($conf->format_date_text_short) ? $conf->format_date_text_short : '%Y-%m-%d %H:%M:%S'); if (! $format) $format=(isset($conf->format_date_text_short) ? $conf->format_date_text_short : '%Y-%m-%d %H:%M:%S');
if ($format == 'day') $format=$conf->format_date_short; if ($format == 'day') $format=$conf->format_date_short;
@ -435,8 +449,8 @@ function dolibarr_print_date($time,$format='')
/** /**
\brief Retourne une date fabriquée depuis une chaine \brief Retourne une date fabriqu<EFBFBD>e depuis une chaine
\param string Date formatée en chaine \param string Date format<EFBFBD>e en chaine
YYYYMMDD YYYYMMDD
YYYYMMDDHHMMSS YYYYMMDDHHMMSS
DD/MM/YY ou DD/MM/YYYY DD/MM/YY ou DD/MM/YYYY
@ -515,14 +529,14 @@ function dolibarr_getdate($timestamp,$fast=false)
} }
/** /**
\brief Retourne une date fabriquée depuis infos. \brief Retourne une date fabriqu<EFBFBD>e depuis infos.
Remplace la fonction mktime non implémentée sous Windows si année < 1970 Remplace la fonction mktime non impl<EFBFBD>ment<EFBFBD>e sous Windows si ann<EFBFBD>e < 1970
\param hour Heure \param hour Heure
\param minute Minute \param minute Minute
\param second Seconde \param second Seconde
\param month Mois \param month Mois
\param day Jour \param day Jour
\param year Année \param year Ann<EFBFBD>e
\param gm Time gm \param gm Time gm
\param check No check on parameters (Can use day 32, etc...) \param check No check on parameters (Can use day 32, etc...)
\return timestamp Date en timestamp, '' if error \return timestamp Date en timestamp, '' if error
@ -551,7 +565,7 @@ function dolibarr_mktime($hour,$minute,$second,$month,$day,$year,$gm=0,$check=1)
{ {
/* /*
// On peut utiliser strtotime pour obtenir la traduction. // On peut utiliser strtotime pour obtenir la traduction.
// strtotime is ok for range: Vendredi 13 Décembre 1901 20:45:54 GMT au Mardi 19 Janvier 2038 03:14:07 GMT. // strtotime is ok for range: Vendredi 13 D<EFBFBD>cembre 1901 20:45:54 GMT au Mardi 19 Janvier 2038 03:14:07 GMT.
$montharray=array(1=>'january',2=>'february',3=>'march',4=>'april',5=>'may',6=>'june', $montharray=array(1=>'january',2=>'february',3=>'march',4=>'april',5=>'may',6=>'june',
7=>'july',8=>'august',9=>'september',10=>'october',11=>'november',12=>'december'); 7=>'july',8=>'august',9=>'september',10=>'october',11=>'november',12=>'december');
$string=$day." ".$montharray[0+$month]." ".$year." ".$hour.":".$minute.":".$second." GMT"; $string=$day." ".$montharray[0+$month]." ".$year." ".$hour.":".$minute.":".$second." GMT";
@ -636,10 +650,10 @@ function dolibarr_print_object_info($object)
} }
/** /**
\brief Formatage des numéros de telephone en fonction du format d'un pays \brief Formatage des num<EFBFBD>ros de telephone en fonction du format d'un pays
\param phone Numéro de telephone a formater \param phone Num<EFBFBD>ro de telephone a formater
\param country Pays selon lequel formatter \param country Pays selon lequel formatter
\return string Numéro de téléphone formaté \return string Num<EFBFBD>ro de t<EFBFBD>l<EFBFBD>phone format<EFBFBD>
*/ */
function dolibarr_print_phone($phone,$country="FR") function dolibarr_print_phone($phone,$country="FR")
{ {
@ -712,7 +726,7 @@ function dol_phone_link($phone,$option=0)
} }
/** /**
\brief Tronque une chaine a une taille donnée en ajoutant les points de suspension si cela dépasse \brief Tronque une chaine a une taille donn<EFBFBD>e en ajoutant les points de suspension si cela d<EFBFBD>passe
\param string String to truncate \param string String to truncate
\param size Max string size. 0 for no limit. \param size Max string size. 0 for no limit.
\param trunc Where to trunc: right, left, middle \param trunc Where to trunc: right, left, middle
@ -758,12 +772,12 @@ function dolibarr_trunc($string,$size=40,$trunc='right')
} }
/** /**
\brief Compléte une chaine a une taille donnée par des espaces \brief Compl<EFBFBD>te une chaine a une taille donn<EFBFBD>e par des espaces
\param string Chaine a compléter \param string Chaine a compl<EFBFBD>ter
\param size Longueur de la chaine. \param size Longueur de la chaine.
\param side 0=Complétion a droite, 1=Complétion a gauche \param side 0=Compl<EFBFBD>tion a droite, 1=Compl<EFBFBD>tion a gauche
\param char Chaine de complétion \param char Chaine de compl<EFBFBD>tion
\return string Chaine complétée \return string Chaine compl<EFBFBD>t<EFBFBD>e
*/ */
function dolibarr_pad($string,$size,$side,$char=' ') function dolibarr_pad($string,$size,$side,$char=' ')
{ {
@ -779,7 +793,7 @@ function dolibarr_pad($string,$size,$side,$char=' ')
} }
/** /**
\brief Affiche picto propre a une notion/module (fonction générique) \brief Affiche picto propre a une notion/module (fonction g<EFBFBD>n<EFBFBD>rique)
\param alt Texte sur le alt de l'image \param alt Texte sur le alt de l'image
\param object Objet pour lequel il faut afficher le logo (exemple: user, group, action, bill, contract, propal, product, ...) \param object Objet pour lequel il faut afficher le logo (exemple: user, group, action, bill, contract, propal, product, ...)
\return string Retourne tag img \return string Retourne tag img
@ -791,10 +805,10 @@ function img_object($alt, $object)
} }
/** /**
\brief Affiche picto (fonction générique) \brief Affiche picto (fonction g<EFBFBD>n<EFBFBD>rique)
\param alt Texte sur le alt de l'image \param alt Texte sur le alt de l'image
\param picto Nom de l'image a afficher (Si pas d'extension, on met '.png') \param picto Nom de l'image a afficher (Si pas d'extension, on met '.png')
\param options Attribut supplémentaire a la balise img \param options Attribut suppl<EFBFBD>mentaire a la balise img
\param pictoisfullpath If 1, image path is a full path \param pictoisfullpath If 1, image path is a full path
\return string Retourne tag img \return string Retourne tag img
*/ */
@ -952,7 +966,7 @@ function img_delete($alt = "default")
} }
/** /**
\brief Affiche logo désactiver \brief Affiche logo d<EFBFBD>sactiver
\param alt Texte sur le alt de l'image \param alt Texte sur le alt de l'image
\return string Retourne tag img \return string Retourne tag img
*/ */
@ -1055,7 +1069,7 @@ function img_alerte($alt = "default")
} }
/** /**
\brief Affiche logo téléphone \brief Affiche logo t<EFBFBD>l<EFBFBD>phone
\param alt Texte sur le alt de l'image \param alt Texte sur le alt de l'image
\param option Choose of logo \param option Choose of logo
\return string Retourne tag img \return string Retourne tag img
@ -1086,7 +1100,7 @@ function img_next($alt = "default")
} }
/** /**
\brief Affiche logo précédent \brief Affiche logo pr<EFBFBD>c<EFBFBD>dent
\param alt Texte sur le alt de l'image \param alt Texte sur le alt de l'image
\return string Retourne tag img \return string Retourne tag img
*/ */
@ -1365,7 +1379,7 @@ function restrictedArea($user, $feature='societe', $objectid=0, $dbtablename='',
} }
else else
{ {
if (!$dbtablename) $dbtablename = $feature; // Si dbtable non défini, meme nom que le module if (!$dbtablename) $dbtablename = $feature; // Si dbtable non d<EFBFBD>fini, meme nom que le module
$sql = "SELECT dbt.fk_soc"; $sql = "SELECT dbt.fk_soc";
$sql.= " FROM ".MAIN_DB_PREFIX.$dbtablename." as dbt"; $sql.= " FROM ".MAIN_DB_PREFIX.$dbtablename." as dbt";
@ -1384,7 +1398,7 @@ function restrictedArea($user, $feature='societe', $objectid=0, $dbtablename='',
} }
else else
{ {
if (!$dbtablename) $dbtablename = $feature; // Si dbtable non défini, meme nom que le module if (!$dbtablename) $dbtablename = $feature; // Si dbtable non d<EFBFBD>fini, meme nom que le module
$sql = "SELECT sc.fk_soc"; $sql = "SELECT sc.fk_soc";
$sql.= " FROM ".MAIN_DB_PREFIX.$dbtablename." as dbt"; $sql.= " FROM ".MAIN_DB_PREFIX.$dbtablename." as dbt";
@ -1451,12 +1465,12 @@ function accessforbidden($message='',$printheader=1)
/** /**
\brief Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remontée des bugs. \brief Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remont<EFBFBD>e des bugs.
On doit appeler cette fonction quand une erreur technique bloquante est rencontrée. On doit appeler cette fonction quand une erreur technique bloquante est rencontr<EFBFBD>e.
Toutefois, il faut essayer de ne l'appeler qu'au sein de pages php, les classes devant Toutefois, il faut essayer de ne l'appeler qu'au sein de pages php, les classes devant
renvoyer leur erreur par l'intermédiaire de leur propriété "error". renvoyer leur erreur par l'interm<EFBFBD>diaire de leur propri<EFBFBD>t<EFBFBD> "error".
\param db Handler de base utilisé \param db Handler de base utilis<EFBFBD>
\param error Chaine erreur ou tableau de chaines erreur complémentaires a afficher \param error Chaine erreur ou tableau de chaines erreur compl<EFBFBD>mentaires a afficher
*/ */
function dolibarr_print_error($db='',$error='') function dolibarr_print_error($db='',$error='')
{ {
@ -1539,7 +1553,7 @@ function dolibarr_print_error($db='',$error='')
/** /**
* \brief Deplacer les fichiers telechargés, apres quelques controles divers * \brief Deplacer les fichiers telecharg<EFBFBD>s, apres quelques controles divers
* \param src_file Source filename * \param src_file Source filename
* \param dest_file Target filename * \param dest_file Target filename
* \param allowoverwrite Overwrite if exists * \param allowoverwrite Overwrite if exists
@ -1568,7 +1582,7 @@ function dol_move_uploaded_file($src_file, $dest_file, $allowoverwrite)
} }
// Security: // Security:
// On interdit les remontées de repertoire ainsi que les pipes dans // On interdit les remont<EFBFBD>es de repertoire ainsi que les pipes dans
// les noms de fichiers. // les noms de fichiers.
if (eregi('\.\.',$src_file) || eregi('[<>|]',$src_file)) if (eregi('\.\.',$src_file) || eregi('[<>|]',$src_file))
{ {
@ -1577,7 +1591,7 @@ function dol_move_uploaded_file($src_file, $dest_file, $allowoverwrite)
} }
// Security: // Security:
// On interdit les remontées de repertoire ainsi que les pipe dans // On interdit les remont<EFBFBD>es de repertoire ainsi que les pipe dans
// les noms de fichiers. // les noms de fichiers.
if (eregi('\.\.',$dest_file) || eregi('[<>|]',$dest_file)) if (eregi('\.\.',$dest_file) || eregi('[<>|]',$dest_file))
{ {
@ -1618,7 +1632,7 @@ function dol_move_uploaded_file($src_file, $dest_file, $allowoverwrite)
\param begin ("" par defaut) \param begin ("" par defaut)
\param options ("" par defaut) \param options ("" par defaut)
\param td options de l'attribut td ("" par defaut) \param td options de l'attribut td ("" par defaut)
\param sortfield nom du champ sur lequel est effectué le tri du tableau \param sortfield nom du champ sur lequel est effectu<EFBFBD> le tri du tableau
\param sortorder ordre du tri \param sortorder ordre du tri
*/ */
function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="", $sortorder="") function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="", $sortorder="")
@ -1626,7 +1640,7 @@ function print_liste_field_titre($name, $file, $field, $begin="", $options="", $
global $conf; global $conf;
//print "$name, $file, $field, $begin, $options, $td, $sortfield, $sortorder<br>\n"; //print "$name, $file, $field, $begin, $options, $td, $sortfield, $sortorder<br>\n";
// Le champ de tri est mis en évidence. // Le champ de tri est mis en <EFBFBD>vidence.
// Exemple si (sortfield,field)=("nom","xxx.nom") ou (sortfield,field)=("nom","nom") // Exemple si (sortfield,field)=("nom","xxx.nom") ou (sortfield,field)=("nom","nom")
if ($sortfield == $field || $sortfield == ereg_replace("^[^\.]+\.","",$field)) if ($sortfield == $field || $sortfield == ereg_replace("^[^\.]+\.","",$field))
{ {
@ -1681,9 +1695,9 @@ function print_titre($titre)
} }
/** /**
\brief Affichage d'un titre d'une fiche, aligné a gauche \brief Affichage d'un titre d'une fiche, align<EFBFBD> a gauche
\param titre Le titre a afficher \param titre Le titre a afficher
\param mesg Message suplémentaire a afficher a droite \param mesg Message supl<EFBFBD>mentaire a afficher a droite
\param picto Picto pour ligne de titre \param picto Picto pour ligne de titre
\param pictoisfullpath 1=Picto is a full absolute url of image \param pictoisfullpath 1=Picto is a full absolute url of image
*/ */
@ -1720,8 +1734,8 @@ function dol_delete_file($file)
} }
/** /**
\brief Effacement d'un répertoire \brief Effacement d'un r<EFBFBD>pertoire
\param file Répertoire a effacer \param file R<EFBFBD>pertoire a effacer
*/ */
function dol_delete_dir($dir) function dol_delete_dir($dir)
{ {
@ -1729,10 +1743,10 @@ function dol_delete_dir($dir)
} }
/** /**
\brief Effacement d'un répertoire $dir et de son arborescence \brief Effacement d'un r<EFBFBD>pertoire $dir et de son arborescence
\param file Répertoire a effacer \param file R<EFBFBD>pertoire a effacer
\param count Compteur pour comptage nb elements supprimés \param count Compteur pour comptage nb elements supprim<EFBFBD>s
\return int Nombre de fichier+repértoires supprimés \return int Nombre de fichier+rep<EFBFBD>rtoires supprim<EFBFBD>s
*/ */
function dol_delete_dir_recursive($dir,$count=0) function dol_delete_dir_recursive($dir,$count=0)
{ {
@ -1767,7 +1781,7 @@ function dol_delete_dir_recursive($dir,$count=0)
/** /**
\brief Scan les fichiers avec un anti-virus \brief Scan les fichiers avec un anti-virus
\param file Fichier a scanner \param file Fichier a scanner
\return malware Nom du virus si infecté sinon retourne "null" \return malware Nom du virus si infect<EFBFBD> sinon retourne "null"
*/ */
function dol_avscan_file($file) function dol_avscan_file($file)
{ {
@ -1792,7 +1806,7 @@ function dol_avscan_file($file)
/** /**
\brief Fonction print_barre_liste \brief Fonction print_barre_liste
\param titre Titre de la page \param titre Titre de la page
\param page numéro de la page \param page num<EFBFBD>ro de la page
\param file lien \param file lien
\param options parametres complementaires lien ('' par defaut) \param options parametres complementaires lien ('' par defaut)
\param sortfield champ de tri ('' par defaut) \param sortfield champ de tri ('' par defaut)
@ -1887,7 +1901,7 @@ function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $so
/** /**
\brief Fonction servant a afficher les fleches de navigation dans les pages de listes \brief Fonction servant a afficher les fleches de navigation dans les pages de listes
\param page Numéro de la page \param page Num<EFBFBD>ro de la page
\param file Lien \param file Lien
\param options Autres parametres d'url a propager dans les liens ("" par defaut) \param options Autres parametres d'url a propager dans les liens ("" par defaut)
\param nextpage Faut-il une page suivante \param nextpage Faut-il une page suivante
@ -1909,12 +1923,12 @@ function print_fleche_navigation($page,$file,$options='',$nextpage,$betweenarrow
/** /**
* \brief Fonction qui retourne un taux de tva formaté pour visualisation * \brief Fonction qui retourne un taux de tva format<EFBFBD> pour visualisation
* \remarks Fonction utilisée dans les pdf et les pages html * \remarks Fonction utilis<EFBFBD>e dans les pdf et les pages html
* \param rate Rate value to format (19.6 19,6 19.6% 19,6%,...) * \param rate Rate value to format (19.6 19,6 19.6% 19,6%,...)
* \param foundpercent Add a percent % sign in output * \param foundpercent Add a percent % sign in output
* \param info_bits Miscellanous information on vat * \param info_bits Miscellanous information on vat
* \return string Chaine avec montant formaté (19,6 ou 19,6% ou 8.5% *) * \return string Chaine avec montant format<EFBFBD> (19,6 ou 19,6% ou 8.5% *)
*/ */
function vatrate($rate,$addpercent=false,$info_bits=0) function vatrate($rate,$addpercent=false,$info_bits=0)
{ {
@ -1937,14 +1951,14 @@ function vatrate($rate,$addpercent=false,$info_bits=0)
/** /**
* \brief Fonction qui retourne un montant monétaire formaté pour visualisation * \brief Fonction qui retourne un montant mon<EFBFBD>taire format<EFBFBD> pour visualisation
* \remarks Fonction utilisée dans les pdf et les pages html * \remarks Fonction utilis<EFBFBD>e dans les pdf et les pages html
* \param amount Montant a formater * \param amount Montant a formater
* \param html Formatage html ou pas (0 par defaut) * \param html Formatage html ou pas (0 par defaut)
* \param outlangs Objet langs pour formatage text * \param outlangs Objet langs pour formatage text
* \param trunc 1=Tronque affichage si trop de décimales,0=Force le non troncage * \param trunc 1=Tronque affichage si trop de d<EFBFBD>cimales,0=Force le non troncage
* \param nbdecimal Nbre decimals minimum. * \param nbdecimal Nbre decimals minimum.
* \return string Chaine avec montant formaté * \return string Chaine avec montant format<EFBFBD>
* \seealso price2num Fonction inverse de price * \seealso price2num Fonction inverse de price
*/ */
function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2) function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2)
@ -1966,11 +1980,11 @@ function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2)
//print $amount."-"; //print $amount."-";
$datas = split('\.',$amount); $datas = split('\.',$amount);
$decpart = $datas[1]; $decpart = $datas[1];
$decpart = eregi_replace('0+$','',$decpart); // Supprime les 0 de fin de partie décimale $decpart = eregi_replace('0+$','',$decpart); // Supprime les 0 de fin de partie d<EFBFBD>cimale
//print "decpart=".$decpart."<br>"; //print "decpart=".$decpart."<br>";
$end=''; $end='';
// On augmente au besoin si il y a plus de 2 décimales // On augmente au besoin si il y a plus de 2 d<EFBFBD>cimales
if (strlen($decpart) > $nbdecimal) $nbdecimal=strlen($decpart); if (strlen($decpart) > $nbdecimal) $nbdecimal=strlen($decpart);
// Si on depasse max // Si on depasse max
if ($trunc && $nbdecimal > $conf->global->MAIN_MAX_DECIMALS_SHOWN) if ($trunc && $nbdecimal > $conf->global->MAIN_MAX_DECIMALS_SHOWN)
@ -1978,7 +1992,7 @@ function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2)
$nbdecimal=$conf->global->MAIN_MAX_DECIMALS_SHOWN; $nbdecimal=$conf->global->MAIN_MAX_DECIMALS_SHOWN;
if (eregi('\.\.\.',$conf->global->MAIN_MAX_DECIMALS_SHOWN)) if (eregi('\.\.\.',$conf->global->MAIN_MAX_DECIMALS_SHOWN))
{ {
// Si un affichage est tronqué, on montre des ... // Si un affichage est tronqu<EFBFBD>, on montre des ...
$end='...'; $end='...';
} }
} }
@ -1998,7 +2012,7 @@ function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2)
} }
/** /**
\brief Fonction qui retourne un numérique conforme PHP et SQL, depuis un montant au \brief Fonction qui retourne un num<EFBFBD>rique conforme PHP et SQL, depuis un montant au
format utilisateur. format utilisateur.
\remarks Fonction a appeler sur montants saisis avant un insert en base \remarks Fonction a appeler sur montants saisis avant un insert en base
\param amount Montant a formater \param amount Montant a formater
@ -2006,7 +2020,7 @@ function price($amount, $html=0, $outlangs='', $trunc=1, $nbdecimal=2)
'MT'=Round to Max with Tax (MAIN_MAX_DECIMALS_TOT) 'MT'=Round to Max with Tax (MAIN_MAX_DECIMALS_TOT)
'MS'=Round to Max Shown (MAIN_MAX_DECIMALS_SHOWN) 'MS'=Round to Max Shown (MAIN_MAX_DECIMALS_SHOWN)
''=No rounding ''=No rounding
\return string Montant au format numérique PHP et SQL (Exemple: '99.99999') \return string Montant au format num<EFBFBD>rique PHP et SQL (Exemple: '99.99999')
\seealso price Fonction inverse de price2num \seealso price Fonction inverse de price2num
*/ */
function price2num($amount,$rounding='') function price2num($amount,$rounding='')
@ -2049,17 +2063,17 @@ function get_product_vat_for_country($idprod, $countrycode)
/** /**
\brief Fonction qui renvoie la tva d'une ligne (en fonction du vendeur, acheteur et taux du produit) \brief Fonction qui renvoie la tva d'une ligne (en fonction du vendeur, acheteur et taux du produit)
\remarks Si vendeur non assujeti a TVA, TVA par défaut=0. Fin de régle. \remarks Si vendeur non assujeti a TVA, TVA par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
Si le (pays vendeur = pays acheteur) alors TVA par défaut=TVA du produit vendu. Fin de régle. Si le (pays vendeur = pays acheteur) alors TVA par d<EFBFBD>faut=TVA du produit vendu. Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par défaut=0 (La TVA doit étre payé par acheteur au centre d'impots de son pays et non au vendeur). Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par d<EFBFBD>faut=0 (La TVA doit <EFBFBD>tre pay<EFBFBD> par acheteur au centre d'impots de son pays et non au vendeur). Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par défaut=TVA du produit vendu. Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par d<EFBFBD>faut=TVA du produit vendu. Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (acheteur = entreprise avec num TVA) intra alors TVA par défaut=0. Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (acheteur = entreprise avec num TVA) intra alors TVA par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
Sinon TVA proposée par défaut=0. Fin de régle. Sinon TVA propos<EFBFBD>e par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
\param societe_vendeuse Objet société vendeuse \param societe_vendeuse Objet soci<EFBFBD>t<EFBFBD> vendeuse
\param societe_acheteuse Objet société acheteuse \param societe_acheteuse Objet soci<EFBFBD>t<EFBFBD> acheteuse
\param taux_produit Taux par defaut du produit vendu (old way to get product vat rate) \param taux_produit Taux par defaut du produit vendu (old way to get product vat rate)
\param idprod Id product (new way to get product vat rate) \param idprod Id product (new way to get product vat rate)
\return float Taux de tva a appliquer, -1 si ne peut etre déterminé \return float Taux de tva a appliquer, -1 si ne peut etre d<EFBFBD>termin<EFBFBD>
*/ */
function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit, $idprod=0) function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit, $idprod=0)
{ {
@ -2072,49 +2086,49 @@ function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit, $
if (is_numeric($societe_vendeuse->tva_assuj) && ! $societe_vendeuse->tva_assuj) return 0; if (is_numeric($societe_vendeuse->tva_assuj) && ! $societe_vendeuse->tva_assuj) return 0;
if (! is_numeric($societe_vendeuse->tva_assuj) && $societe_vendeuse->tva_assuj=='franchise') return 0; if (! is_numeric($societe_vendeuse->tva_assuj) && $societe_vendeuse->tva_assuj=='franchise') return 0;
// Si le (pays vendeur = pays acheteur) alors la TVA par défaut=TVA du produit vendu. Fin de régle. // Si le (pays vendeur = pays acheteur) alors la TVA par d<EFBFBD>faut=TVA du produit vendu. Fin de r<>gle.
//if (is_object($societe_acheteuse) && ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id) && ($societe_acheteuse->tva_assuj == 1 || $societe_acheteuse->tva_assuj == 'reel')) //if (is_object($societe_acheteuse) && ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id) && ($societe_acheteuse->tva_assuj == 1 || $societe_acheteuse->tva_assuj == 'reel'))
// Le test ci-dessus ne devrait pas etre necessaire. Me signaler l'exemple du cas juridique concercné si le test suivant n'est pas suffisant. // Le test ci-dessus ne devrait pas etre necessaire. Me signaler l'exemple du cas juridique concercn<EFBFBD> si le test suivant n'est pas suffisant.
if ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id) if ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id)
{ {
if ($idprod) return get_product_vat_for_country($idprod,$societe_vendeuse->pays_code); if ($idprod) return get_product_vat_for_country($idprod,$societe_vendeuse->pays_code);
if (strlen($taux_produit) == 0) return -1; // Si taux produit = '', on ne peut déterminer taux tva if (strlen($taux_produit) == 0) return -1; // Si taux produit = '', on ne peut d<EFBFBD>terminer taux tva
return $taux_produit; return $taux_produit;
} }
// Si (vendeur et acheteur dans Communauté européenne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par défaut=0 (La TVA doit étre payé par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de régle. // Si (vendeur et acheteur dans Communaut<EFBFBD> europ<6F>enne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par d<>faut=0 (La TVA doit <20>tre pay<61> par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de r<>gle.
// Non géré // Non g<EFBFBD>r<EFBFBD>
// Si (vendeur et acheteur dans Communauté européenne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par défaut=TVA du produit vendu. Fin de régle. // Si (vendeur et acheteur dans Communaut<EFBFBD> europ<6F>enne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par d<>faut=TVA du produit vendu. Fin de r<>gle.
if (($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && ! $societe_acheteuse->tva_intra) if (($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && ! $societe_acheteuse->tva_intra)
{ {
if ($idprod) return get_product_vat_for_country($idprod,$societe_vendeuse->pays_code); if ($idprod) return get_product_vat_for_country($idprod,$societe_vendeuse->pays_code);
if (strlen($taux_produit) == 0) return -1; // Si taux produit = '', on ne peut déterminer taux tva if (strlen($taux_produit) == 0) return -1; // Si taux produit = '', on ne peut d<EFBFBD>terminer taux tva
return $taux_produit; return $taux_produit;
} }
// Si (vendeur et acheteur dans Communauté européenne) et (acheteur = entreprise avec num TVA intra) alors TVA par défaut=0. Fin de régle. // Si (vendeur et acheteur dans Communaut<EFBFBD> europ<6F>enne) et (acheteur = entreprise avec num TVA intra) alors TVA par d<>faut=0. Fin de r<>gle.
if (($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && $societe_acheteuse->tva_intra) if (($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && $societe_acheteuse->tva_intra)
{ {
return 0; return 0;
} }
// Sinon la TVA proposée par défaut=0. Fin de régle. // Sinon la TVA propos<EFBFBD>e par d<>faut=0. Fin de r<>gle.
// Rem: Cela signifie qu'au moins un des 2 est hors Communauté européenne et que le pays différe // Rem: Cela signifie qu'au moins un des 2 est hors Communaut<EFBFBD> europ<6F>enne et que le pays diff<66>re
return 0; return 0;
} }
/** /**
\brief Fonction qui renvoie si tva doit etre tva percue récupérable \brief Fonction qui renvoie si tva doit etre tva percue r<EFBFBD>cup<EFBFBD>rable
\remarks Si vendeur non assujeti a TVA, TVA par défaut=0. Fin de régle. \remarks Si vendeur non assujeti a TVA, TVA par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
Si le (pays vendeur = pays acheteur) alors TVA par défaut=TVA du produit vendu. Fin de régle. Si le (pays vendeur = pays acheteur) alors TVA par d<EFBFBD>faut=TVA du produit vendu. Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par défaut=0 (La TVA doit étre payé par acheteur au centre d'impots de son pays et non au vendeur). Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par d<EFBFBD>faut=0 (La TVA doit <EFBFBD>tre pay<EFBFBD> par acheteur au centre d'impots de son pays et non au vendeur). Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par défaut=TVA du produit vendu. Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par d<EFBFBD>faut=TVA du produit vendu. Fin de r<EFBFBD>gle.
Si (vendeur et acheteur dans Communauté européenne) et (acheteur = entreprise avec num TVA) intra alors TVA par défaut=0. Fin de régle. Si (vendeur et acheteur dans Communaut<EFBFBD> europ<EFBFBD>enne) et (acheteur = entreprise avec num TVA) intra alors TVA par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
Sinon TVA proposée par défaut=0. Fin de régle. Sinon TVA propos<EFBFBD>e par d<EFBFBD>faut=0. Fin de r<EFBFBD>gle.
\param societe_vendeuse Objet société vendeuse \param societe_vendeuse Objet soci<EFBFBD>t<EFBFBD> vendeuse
\param societe_acheteuse Objet société acheteuse \param societe_acheteuse Objet soci<EFBFBD>t<EFBFBD> acheteuse
\param taux_produit Taux par defaut du produit vendu \param taux_produit Taux par defaut du produit vendu
\return float 0 or 1 \return float 0 or 1
*/ */
@ -2152,8 +2166,8 @@ function yn($yesno, $case=1, $color=0)
/** /**
\brief Fonction pour qui retourne le rowid d'un departement par son code \brief Fonction pour qui retourne le rowid d'un departement par son code
\param db handler d'accés base \param db handler d'acc<EFBFBD>s base
\param code Code région \param code Code r<EFBFBD>gion
\param pays_id Id du pays \param pays_id Id du pays
*/ */
function departement_rowid($db,$code, $pays_id) function departement_rowid($db,$code, $pays_id)
@ -2184,9 +2198,9 @@ function departement_rowid($db,$code, $pays_id)
} }
/** /**
\brief Renvoi un chemin de classement répertoire en fonction d'un id \brief Renvoi un chemin de classement r<EFBFBD>pertoire en fonction d'un id
\remarks Examples: 1->"0/0/1/", 15->"0/1/5/" \remarks Examples: 1->"0/0/1/", 15->"0/1/5/"
\param $num Id a décomposer \param $num Id a d<EFBFBD>composer
\param $level Niveau de decoupage (1, 2 ou 3 niveaux) \param $level Niveau de decoupage (1, 2 ou 3 niveaux)
*/ */
function get_exdir($num,$level=3) function get_exdir($num,$level=3)
@ -2200,9 +2214,9 @@ function get_exdir($num,$level=3)
} }
/** /**
\brief Création de répertoire recursive \brief Cr<EFBFBD>ation de r<EFBFBD>pertoire recursive
\param $dir Répertoire a créer \param $dir R<EFBFBD>pertoire a cr<EFBFBD>er
\return int < 0 si erreur, >= 0 si succés \return int < 0 si erreur, >= 0 si succ<EFBFBD>s
*/ */
function create_exdir($dir) function create_exdir($dir)
{ {
@ -2221,7 +2235,7 @@ function create_exdir($dir)
else $ccdir = $cdir[$i]; else $ccdir = $cdir[$i];
if (eregi("^.:$",$ccdir,$regs)) continue; // Si chemin Windows incomplet, on poursuit par rep suivant if (eregi("^.:$",$ccdir,$regs)) continue; // Si chemin Windows incomplet, on poursuit par rep suivant
// Attention, le is_dir() peut échouer bien que le rep existe. // Attention, le is_dir() peut <EFBFBD>chouer bien que le rep existe.
// (ex selon config de open_basedir) // (ex selon config de open_basedir)
if ($ccdir) if ($ccdir)
{ {
@ -2232,20 +2246,20 @@ function create_exdir($dir)
umask(0); umask(0);
if (! @mkdir($ccdir, 0755)) if (! @mkdir($ccdir, 0755))
{ {
// Si le is_dir a renvoyé une fausse info, alors on passe ici. // Si le is_dir a renvoy<EFBFBD> une fausse info, alors on passe ici.
dolibarr_syslog("functions.lib.php::create_exdir: Fails to create directory '".$ccdir."' or directory already exists.",LOG_WARNING); dolibarr_syslog("functions.lib.php::create_exdir: Fails to create directory '".$ccdir."' or directory already exists.",LOG_WARNING);
$nberr++; $nberr++;
} }
else else
{ {
dolibarr_syslog("functions.lib.php::create_exdir: Directory '".$ccdir."' created",LOG_DEBUG); dolibarr_syslog("functions.lib.php::create_exdir: Directory '".$ccdir."' created",LOG_DEBUG);
$nberr=0; // On remet a zéro car si on arrive ici, cela veut dire que les échecs précédents peuvent etre ignorés $nberr=0; // On remet a z<EFBFBD>ro car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s
$nbcreated++; $nbcreated++;
} }
} }
else else
{ {
$nberr=0; // On remet a zéro car si on arrive ici, cela veut dire que les échecs précédents peuvent etre ignorés $nberr=0; // On remet a z<EFBFBD>ro car si on arrive ici, cela veut dire que les <20>checs pr<70>c<EFBFBD>dents peuvent etre ignor<6F>s
} }
} }
} }
@ -2256,9 +2270,9 @@ function create_exdir($dir)
/** /**
\brief Retourne le numéro de la semaine par rapport a une date \brief Retourne le num<EFBFBD>ro de la semaine par rapport a une date
\param time Date au format 'timestamp' \param time Date au format 'timestamp'
\return int Numéro de semaine \return int Num<EFBFBD>ro de semaine
*/ */
function numero_semaine($time) function numero_semaine($time)
{ {
@ -2274,12 +2288,12 @@ function numero_semaine($time)
/* /*
* Norme ISO-8601: * Norme ISO-8601:
* - La semaine 1 de toute année est celle qui contient le 4 janvier ou que la semaine 1 de toute année est celle qui contient le 1er jeudi de janvier. * - La semaine 1 de toute ann<EFBFBD>e est celle qui contient le 4 janvier ou que la semaine 1 de toute ann<EFBFBD>e est celle qui contient le 1er jeudi de janvier.
* - La majorité des années ont 52 semaines mais les années qui commence un jeudi et les années bissextiles commenéant un mercredi en posséde 53. * - La majorit<EFBFBD> des ann<EFBFBD>es ont 52 semaines mais les ann<EFBFBD>es qui commence un jeudi et les ann<EFBFBD>es bissextiles commen<EFBFBD>ant un mercredi en poss<EFBFBD>de 53.
* - Le 1er jour de la semaine est le Lundi * - Le 1er jour de la semaine est le Lundi
*/ */
// Définition du Jeudi de la semaine // D<EFBFBD>finition du Jeudi de la semaine
if (date("w",mktime(12,0,0,$mois,$jour,$annee))==0) // Dimanche if (date("w",mktime(12,0,0,$mois,$jour,$annee))==0) // Dimanche
$jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee)-3*24*60*60; $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee)-3*24*60*60;
else if (date("w",mktime(12,0,0,$mois,$jour,$annee))<4) // du Lundi au Mercredi else if (date("w",mktime(12,0,0,$mois,$jour,$annee))<4) // du Lundi au Mercredi
@ -2289,7 +2303,7 @@ function numero_semaine($time)
else // Jeudi else // Jeudi
$jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee); $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee);
// Définition du premier Jeudi de l'année // D<EFBFBD>finition du premier Jeudi de l'ann<6E>e
if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==0) // Dimanche if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==0) // Dimanche
{ {
$premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine))+4*24*60*60; $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine))+4*24*60*60;
@ -2307,7 +2321,7 @@ function numero_semaine($time)
$premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine)); $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine));
} }
// Définition du numéro de semaine: nb de jours entre "premier Jeudi de l'année" et "Jeudi de la semaine"; // D<EFBFBD>finition du num<75>ro de semaine: nb de jours entre "premier Jeudi de l'ann<6E>e" et "Jeudi de la semaine";
$numeroSemaine = ( $numeroSemaine = (
( (
date("z",mktime(12,0,0,date("m",$jeudiSemaine),date("d",$jeudiSemaine),date("Y",$jeudiSemaine))) date("z",mktime(12,0,0,date("m",$jeudiSemaine),date("d",$jeudiSemaine),date("Y",$jeudiSemaine)))
@ -2319,7 +2333,7 @@ function numero_semaine($time)
// Cas particulier de la semaine 53 // Cas particulier de la semaine 53
if ($numeroSemaine==53) if ($numeroSemaine==53)
{ {
// Les années qui commence un Jeudi et les années bissextiles commenéant un Mercredi en posséde 53 // Les ann<EFBFBD>es qui commence un Jeudi et les ann<6E>es bissextiles commen<65>ant un Mercredi en poss<73>de 53
if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==4 || (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==3 && date("z",mktime(12,0,0,12,31,date("Y",$jeudiSemaine)))==365)) if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==4 || (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==3 && date("z",mktime(12,0,0,12,31,date("Y",$jeudiSemaine)))==365))
{ {
$numeroSemaine = 53; $numeroSemaine = 53;
@ -2382,13 +2396,13 @@ function weight_convert($weight,&$from_unit,$to_unit)
\param int Unit \param int Unit
\param measuring_style Le style de mesure : weight, volume,... \param measuring_style Le style de mesure : weight, volume,...
\return string Unite \return string Unite
\todo gerer les autres unités de mesure comme la livre, le gallon, le litre, ... \todo gerer les autres unit<EFBFBD>s de mesure comme la livre, le gallon, le litre, ...
*/ */
function measuring_units_string($unit,$measuring_style='') function measuring_units_string($unit,$measuring_style='')
{ {
/* Note Rodo aux dev :) /* Note Rodo aux dev :)
* Ne pas insérer dans la base de données ces valeurs * Ne pas ins<EFBFBD>rer dans la base de donn<EFBFBD>es ces valeurs
* cela surchagerait inutilement d'une requete supplémentaire * cela surchagerait inutilement d'une requete suppl<EFBFBD>mentaire
* pour quelque chose qui est somme toute peu variable * pour quelque chose qui est somme toute peu variable
*/ */
@ -2488,7 +2502,7 @@ function binhex($bin, $pad=false, $upper=false){
} }
/** /**
\brief Convertir de l'héxadécimal en binaire \brief Convertir de l'h<EFBFBD>xad<EFBFBD>cimal en binaire
\param string hexa \param string hexa
\return string bin \return string bin
*/ */
@ -2707,7 +2721,7 @@ function num_public_holiday($timestampStart, $timestampEnd, $countrycode='FR')
/** /**
\brief Fonction retournant le nombre de jour entre deux dates \brief Fonction retournant le nombre de jour entre deux dates
\param timestampStart Timestamp de début \param timestampStart Timestamp de d<EFBFBD>but
\param timestampEnd Timestamp de fin \param timestampEnd Timestamp de fin
\param lastday On prend en compte le dernier jour, 0: non, 1:oui \param lastday On prend en compte le dernier jour, 0: non, 1:oui
\return nbjours Nombre de jours \return nbjours Nombre de jours
@ -2730,8 +2744,8 @@ function num_between_day($timestampStart, $timestampEnd, $lastday=0)
} }
/** /**
\brief Fonction retournant le nombre de jour entre deux dates sans les jours fériés (jours ouvrés) \brief Fonction retournant le nombre de jour entre deux dates sans les jours f<EFBFBD>ri<EFBFBD>s (jours ouvr<EFBFBD>s)
\param timestampStart Timestamp de début \param timestampStart Timestamp de d<EFBFBD>but
\param timestampEnd Timestamp de fin \param timestampEnd Timestamp de fin
\param inhour 0: sort le nombre de jour , 1: sort le nombre d'heure (72 max) \param inhour 0: sort le nombre de jour , 1: sort le nombre d'heure (72 max)
\param lastday On prend en compte le dernier jour, 0: non, 1:oui \param lastday On prend en compte le dernier jour, 0: non, 1:oui
@ -2757,7 +2771,7 @@ function num_open_day($timestampStart, $timestampEnd,$inhour=0,$lastday=0)
} }
/** /**
\brief Fonction retournant le nombre de lignes dans un texte formaté \brief Fonction retournant le nombre de lignes dans un texte format<EFBFBD>
\param texte Texte \param texte Texte
\return nblines Nombre de lignes \return nblines Nombre de lignes
*/ */
@ -2815,10 +2829,10 @@ function dol_textishtml($msg,$option=0)
} }
/* /*
* \brief Effectue les substitutions des mots clés par les données en fonction du tableau * \brief Effectue les substitutions des mots cl<EFBFBD>s par les donn<EFBFBD>es en fonction du tableau
* \param chaine Chaine dans laquelle faire les substitutions * \param chaine Chaine dans laquelle faire les substitutions
* \param substitutionarray Tableau clé substitution => valeur a mettre * \param substitutionarray Tableau cl<EFBFBD> substitution => valeur a mettre
* \return string Chaine avec les substitutions effectuées * \return string Chaine avec les substitutions effectu<EFBFBD>es
*/ */
function make_substitutions($chaine,$substitutionarray) function make_substitutions($chaine,$substitutionarray)
{ {
@ -2831,8 +2845,8 @@ function make_substitutions($chaine,$substitutionarray)
/* /*
* \brief Formate l'affichage de date de début et de fin * \brief Formate l'affichage de date de d<EFBFBD>but et de fin
* \param date_start date de début * \param date_start date de d<EFBFBD>but
* \param date_end date de fin * \param date_end date de fin
*/ */
function print_date_range($date_start,$date_end) function print_date_range($date_start,$date_end)
@ -2873,8 +2887,8 @@ function make_alpha_from_numbers($number)
/** /**
\brief Retourne un tableau des mois ou le mois sélectionné \brief Retourne un tableau des mois ou le mois s<EFBFBD>lectionn<EFBFBD>
\param selected Mois à sélectionner ou -1 \param selected Mois <EFBFBD> s<EFBFBD>lectionner ou -1
\return string or array Month string or array if selected < 0 \return string or array Month string or array if selected < 0
*/ */
function monthArrayOrSelected($selected=0) function monthArrayOrSelected($selected=0)

5
htdocs/lib/functions2.lib.php
View File

@ -19,8 +19,9 @@
*/ */
/** /**
\file htdocs/lib/functions.lib.php \file htdocs/lib/functions2.lib.php
\brief Ensemble de fonctions de base de dolibarr sous forme d'include \brief Ensemble de fonctions de base de dolibarr sous forme d'include.
Used for counters.
\version $Id$ \version $Id$
*/ */

8
htdocs/translate.class.php
View File

@ -351,11 +351,11 @@ class Translate {
/** /**
* \brief Retourne la version traduite du texte pass<EFBFBD> en param<EFBFBD>tre * \brief Retourne la version traduite du texte passe en parametre
* Si il n'y a pas de correspondance pour ce texte, on cherche dans fichier alternatif * Si il n'y a pas de correspondance pour ce texte, on cherche dans fichier alternatif
* et si toujours pas trouv<EFBFBD>, il est retourn<EFBFBD> tel quel. * et si toujours pas trouvee, il est retourne tel quel.
* Les param<EFBFBD>tres de cette m<EFBFBD>thode ne doivent pas contenir de balises HTML. * Les parametres de cette methode ne doivent pas contenir de balises HTML.
* \param key cl<EFBFBD> de chaine a traduire * \param key cle de chaine a traduire
* \param param1 chaine de param1 * \param param1 chaine de param1
* \param param2 chaine de param1 * \param param2 chaine de param1
* \param param3 chaine de param1 * \param param3 chaine de param1