Qual: Factorisation par une fonction des pages affichant la liste des produits/services

htdocs/lib/functions.inc.php

@@ -88,14 +88,14 @@ function unaccent($str)
 
 /**
    \brief       Envoi des messages dolibarr dans syslog ou dans un fichier
-                Pour syslog:    facility d<>fini par MAIN_SYSLOG_FACILITY
+                Pour syslog:    facility d<>fini par SYSLOG_FACILITY
                 Pour fichier:   fichier d<>fini par SYSLOG_FILE
-   \param       message		message a envoyer a syslog
+   \param       message		    Message a envoyer a syslog
    \param       level           Niveau de l'erreur
    \remarks     Cette fonction a un effet que si le module syslog est activ<69>.
                 Warning, les fonctions syslog sont buggu<67>s sous Windows et g<>n<EFBFBD>rent des
                 fautes de protection m<>moire. Pour r<>soudre, utiliser le loggage fichier,
-                au lieu du loggage syslog, en positionnant la constante MAIN_SYSLOG_FILE.
+                au lieu du loggage syslog, en positionnant la constante SYSLOG_FILE.
 */
 function dolibarr_syslog($message, $level=LOG_ERR)
 {
@@ -109,7 +109,7 @@ function dolibarr_syslog($message, $level=LOG_ERR)
                 fclose($file);
             }
             else {
-                print "Error: Failed to open file ".SYSLOG_FILE;   
+                print $langs->trans("ErrorFailedToOpenFile",SYSLOG_FILE);
             }
         }
         else
@@ -120,6 +120,11 @@ function dolibarr_syslog($message, $level=LOG_ERR)
             {
                 $facility = MAIN_SYSLOG_FACILITY;
             }
+            elseif (defined("SYSLOG_FACILITY") && SYSLOG_FACILITY && defined(SYSLOG_FACILITY))
+            {
+                // Exemple: SYSLOG_FACILITY vaut LOG_USER qui vaut 8. On a besoin de 8 dans $facility.
+                $facility = constant(SYSLOG_FACILITY);
+            }
             else
             {
                 $facility = LOG_USER;
@@ -182,9 +187,32 @@ function dolibarr_fiche_head($links, $active=0, $title='')
   print "<div class=\"tabBar\">\n<br>\n";
 }
 
+/**
+		\brief      R<>cup<75>re une constante depuis la base de donn<6E>es.
+		\see        dolibarr_del_const, dolibarr_sel_const
+		\param	    db          Handler d'acc<63>s base
+		\param	    name		Nom de la constante
+		\return     string      Valeur de la constante
+*/
+function dolibarr_get_const($db, $name)
+{
+        $value='';
+        
+        $sql ="SELECT value";
+        $sql.=" FROM llx_const";
+        $sql.=" WHERE name = '$name';"; 		
+        $resql=$db->query($sql);	
+        if ($resql)
+        {
+            $obj=$db->fetch_object($resql);
+            $value=$obj->value;
+        }
+        return $value;
+}
+
 /**
 		\brief      Insertion d'une constante dans la base de donn<6E>es.
-		\see        dolibarr_del_const
+		\see        dolibarr_del_const, dolibarr_gel_const
 		\param	    db          handler d'acc<63>s base
 		\param	    name		nom de la constante
 		\param	    value		valeur de la constante
@@ -218,7 +246,7 @@ function dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $not
 
 /**
 		\brief      Effacement d'une constante dans la base de donn<6E>es
-        \see        dolibarr_set_const
+		\see        dolibarr_get_const, dolibarr_sel_const
 		\param	    db          handler d'acc<63>s base
 		\param	    name		nom ou rowid de la constante
 		\return     int         0 si KO, 1 si OK
@@ -265,6 +293,24 @@ function dolibarr_print_ca($ca)
     return $cat;
 }
 
+
+/**
+		\brief      Effectue un d<>calage de date par rapport <20> une dur<75>e
+		\param	    time                Date timestamp ou au format YYYY-MM-DD
+		\param	    duration_value      Valeur de la dur<75>e <20> ajouter
+		\param	    duration_unit       Unit<69> de la dur<75>e <20> ajouter (d, m, y)
+		\return     int                 Nouveau timestamp
+*/
+function dolibarr_time_plus_duree($time,$duration_value,$duration_unit)
+{
+    $deltastring="+$duration_value";
+    if ($duration_unit == 'd') { $deltastring.=" day"; }
+    if ($duration_unit == 'm') { $deltastring.=" month"; }
+    if ($duration_unit == 'y') { $deltastring.=" year"; }
+    return strtotime($deltastring,$time);
+}
+
+
 /**
 		\brief  Formattage de la date
 		\param	time        date timestamp ou au format YYYY-MM-DD
@@ -600,23 +646,27 @@ function img_previous($alt = "default")
 /**
         \brief  Affiche logo bas
         \param  alt         Texte sur le alt de l'image
+        \param  selected    Affiche version "selected" du logo
 */
-function img_down($alt = "default")
+function img_down($alt = "default", $selected=1)
 {
     global $conf,$langs;
     if ($alt=="default") $alt=$langs->trans("Down");
-  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1downarrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
+    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1downarrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
+    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1downarrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
 }
 
 /**
         \brief  Affiche logo haut
         \param  alt         Texte sur le alt de l'image
+        \param  selected    Affiche version "selected" du logo
 */
-function img_up($alt = "default")
+function img_up($alt = "default", $selected=1)
 {
     global $conf,$langs;
     if ($alt=="default") $alt=$langs->trans("Up");
-  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1uparrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
+    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1uparrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
+    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1uparrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
 }
 
 
@@ -1061,15 +1111,16 @@ function transcoS2L($zonein,$devise)
 
 /**
 		\brief      Affichage de la ligne de titre d'un tabelau
-		\param	    name
+		\param	    name        libelle champ
-		\param	    file
+		\param	    file        url pour clic sur tri
-		\param	    field
+		\param	    field       champ de tri
 		\param	    begin       ("" par defaut)
 		\param	    options     ("" par defaut)
-		\param      td          param<EFBFBD>tres de l'attribut td ("" par defaut)
+		\param      td          options de l'attribut td ("" par defaut)
 		\param      sortfield   nom du champ sur lequel est effectu<74> le tri du tableau
+		\param      sortorder   ordre du tri
 */
-function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="")
+function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="", $sortorder="")
 {
     global $conf;
     // Le champ de tri est mis en <20>vidence.
@@ -1083,8 +1134,28 @@ function print_liste_field_titre($name, $file, $field, $begin="", $options="", $
         print '<td class="liste_titre" '. $td.'>';
     }
     print $name."&nbsp;";
-    print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z").'</a>';
+    if (! $sortorder)
-    print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A").'</a>';
+    {
+        print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
+        print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
+    }
+    else
+    {
+        if ($field != $sortfield) {
+            print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
+            print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
+        }
+        else {
+            if ($sortorder == 'DESC' ) {
+                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
+                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",0).'</a>';
+            }
+            if ($sortorder == 'ASC' ) {
+                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",0).'</a>';
+                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
+            }
+        }
+    }
     print "</td>";
 }
 
@@ -1128,14 +1199,14 @@ function dol_delete_file($file)
 		\param	titre			titre de la page
 		\param	page			num<75>ro de la page
 		\param	file			lien
-		\param	options
+		\param	options         options cellule td
-		\param	sortfield
+		\param	sortfield       champ de tri
-		\param	sortorder
+		\param	sortorder       ordre de tri
 		\param	form
 		\param	num             nombre d'<27>l<EFBFBD>ment total
 */
 function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $form='', $num=-1)
- {
+{
     global $conf;
 
     if ($num > $conf->liste_limit or $num == -1)
@@ -1166,18 +1237,10 @@ function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $so
 
     print '<td align="right">';
 
-  if (strlen($sortfield))
+    if ($sortfield) $options .= "&amp;sortfield=$sortfield";
-    {
+    if ($sortorder) $options .= "&amp;sortorder=$sortorder";
-      $options .= "&amp;sortfield=$sortfield";
-    }
-
-  if (strlen($sortorder))
-    {
-      $options .= "&amp;sortorder=$sortorder";
-    }
 
     // Affichage des fleches de navigation
-
     print_fleche_navigation($page,$file,$options,$nextpage);
 
     print '</td></tr></table><br>';