PHP dol_sort_array函数代码示例

 /**
  * 	Reconstruit l'arborescence des categories sous la forme d'un tableau
  *	Renvoi un tableau de tableau('id','id_mere',...) trie selon arbre et avec:
  *				id = id de la categorie
  *				id_mere = id de la categorie mere
  *				id_children = tableau des id enfant
  *				label = nom de la categorie
  *				fulllabel = nom avec chemin complet de la categorie
  *				fullpath = chemin complet compose des id
  *
  *	@param      string	$type		      Type of categories (0=product, 1=suppliers, 2=customers, 3=members)
  *  @param      int		$markafterid      Mark all categories after this leaf in category tree.
  *	@return		array		      		  Array of categories
  */
 function get_full_arbo($type)
 {
     global $db, $conf;
     $categorie = new Categorie($db);
     $categorie->cats = array();
     // Init $this->cats array
     $sql = "SELECT DISTINCT c.rowid, c.label, c.description, c.fk_parent";
     // Distinct reduce pb with old tables with duplicates
     $sql .= " FROM " . MAIN_DB_PREFIX . "categorie as c";
     $sql .= " WHERE c.entity IN (" . getEntity('category', 1) . ")";
     $sql .= " AND c.type = " . $type;
     $sql .= " AND fk_parent = 0";
     dol_syslog(get_class($categorie) . "::get_full_arbo get category list sql=" . $sql, LOG_DEBUG);
     $resql = $db->query($sql);
     if ($resql) {
         $i = 0;
         while ($obj = $db->fetch_object($resql)) {
             $categorie->cats[$obj->rowid]['rowid'] = $obj->rowid;
             $categorie->cats[$obj->rowid]['id'] = $obj->rowid;
             $categorie->cats[$obj->rowid]['fk_parent'] = $obj->fk_parent;
             $categorie->cats[$obj->rowid]['label'] = $obj->label;
             $categorie->cats[$obj->rowid]['description'] = $obj->description;
             $i++;
         }
     } else {
         dol_print_error($db);
         return -1;
     }
     // We add the fullpath property to each elements of first level (no parent exists)
     dol_syslog(get_class($categorie) . "::get_full_arbo call to build_path_from_id_categ", LOG_DEBUG);
     foreach ($categorie->cats as $key => $val) {
         $categorie->build_path_from_id_categ($key, 0);
         // Process a branch from the root category key (this category has no parent)
     }
     dol_syslog(get_class($categorie) . "::get_full_arbo dol_sort_array", LOG_DEBUG);
     $categorie->cats = dol_sort_array($categorie->cats, 'fulllabel', 'asc', true, false);
     //$this->debug_cats();
     return $categorie->cats;
 }

 print '<td align="left" width="24">';
 print img_picto_common('', 'treemenu/base.gif');
 print '</td><td align="left">';
 $txt = $langs->trans("ECMRoot") . ' (' . $langs->trans("ECMSectionsAuto") . ')';
 print $form->textwithpicto($txt, $htmltooltip, 1, 0);
 print '</td>';
 print '</tr></table>';
 print '</td>';
 print '<td align="right">&nbsp;</td>';
 print '<td align="right">&nbsp;</td>';
 print '<td align="right">&nbsp;</td>';
 print '<td align="right">&nbsp;</td>';
 print '<td align="center">';
 print '</td>';
 print '</tr>';
 $sectionauto = dol_sort_array($sectionauto, 'label', 'ASC', true, false);
 print '<tr>';
 print '<td colspan="6" style="padding-left: 20px">';
 print '<div id="filetreeauto" class="ecmfiletree"><ul class="ecmjqft">';
 $nbofentries = 0;
 $oldvallevel = 0;
 foreach ($sectionauto as $key => $val) {
     if (empty($val['test'])) {
         continue;
     }
     // If condition to show is ok
     $var = false;
     print '<li class="directory collapsed">';
     if (!empty($conf->use_javascript_ajax) && empty($conf->global->MAIN_ECM_DISABLE_JS)) {
         print '<a class="fmdirlia jqft ecmjqft" href="' . $_SERVER["PHP_SELF"] . '?module=' . $val['module'] . '">';
         print $val['label'];

 /**
  * 	Reconstruit l'arborescence hierarchique des users sous la forme d'un tableau
  *	Set and return this->users that is an array sorted according to tree with arrays of:
  *				id = id user
  *				lastname
  *				firstname
  *				fullname = nom avec chemin complet du user
  *				fullpath = chemin complet compose des id: "_grandparentid_parentid_id"
  *
  *  @param      int		$deleteafterid      Removed all users including the leaf $deleteafterid (and all its child) in user tree.
  *  @param		string	$filter				SQL filter on users
  *	@return		array		      		  	Array of users $this->users. Note: $this->parentof is also set.
  */
 function get_full_tree($deleteafterid = 0, $filter = '')
 {
     global $conf, $user;
     $this->users = array();
     // Init this->parentof that is array(id_son=>id_parent, ...)
     $this->load_parentof();
     // Init $this->users array
     $sql = "SELECT DISTINCT u.rowid, u.firstname, u.lastname, u.fk_user, u.fk_soc, u.login, u.email, u.gender, u.admin, u.statut, u.photo, u.entity";
     // Distinct reduce pb with old tables with duplicates
     $sql .= " FROM " . MAIN_DB_PREFIX . "user as u";
     if (!empty($conf->multicompany->enabled) && $conf->entity == 1 && (!empty($conf->multicompany->transverse_mode) || !empty($user->admin) && empty($user->entity))) {
         $sql .= " WHERE u.entity IS NOT NULL";
     } else {
         $sql .= " WHERE u.entity IN (" . getEntity('user', 1) . ")";
     }
     if ($filter) {
         $sql .= " AND " . $filter;
     }
     dol_syslog(get_class($this) . "::get_full_tree get user list", LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         $i = 0;
         while ($obj = $this->db->fetch_object($resql)) {
             $this->users[$obj->rowid]['rowid'] = $obj->rowid;
             $this->users[$obj->rowid]['id'] = $obj->rowid;
             $this->users[$obj->rowid]['fk_user'] = $obj->fk_user;
             $this->users[$obj->rowid]['fk_soc'] = $obj->fk_soc;
             $this->users[$obj->rowid]['firstname'] = $obj->firstname;
             $this->users[$obj->rowid]['lastname'] = $obj->lastname;
             $this->users[$obj->rowid]['login'] = $obj->login;
             $this->users[$obj->rowid]['statut'] = $obj->statut;
             $this->users[$obj->rowid]['entity'] = $obj->entity;
             $this->users[$obj->rowid]['email'] = $obj->email;
             $this->users[$obj->rowid]['gender'] = $obj->gender;
             $this->users[$obj->rowid]['admin'] = $obj->admin;
             $this->users[$obj->rowid]['photo'] = $obj->photo;
             $i++;
         }
     } else {
         dol_print_error($this->db);
         return -1;
     }
     // We add the fullpath property to each elements of first level (no parent exists)
     dol_syslog(get_class($this) . "::get_full_tree call to build_path_from_id_user", LOG_DEBUG);
     foreach ($this->users as $key => $val) {
         $this->build_path_from_id_user($key, 0);
         // Process a branch from the root user key (this user has no parent)
     }
     // Exclude leaf including $deleteafterid from tree
     if ($deleteafterid) {
         //print "Look to discard user ".$deleteafterid."\n";
         $keyfilter1 = '^' . $deleteafterid . '$';
         $keyfilter2 = '_' . $deleteafterid . '$';
         $keyfilter3 = '^' . $deleteafterid . '_';
         $keyfilter4 = '_' . $deleteafterid . '_';
         foreach ($this->users as $key => $val) {
             if (preg_match('/' . $keyfilter1 . '/', $val['fullpath']) || preg_match('/' . $keyfilter2 . '/', $val['fullpath']) || preg_match('/' . $keyfilter3 . '/', $val['fullpath']) || preg_match('/' . $keyfilter4 . '/', $val['fullpath'])) {
                 unset($this->users[$key]);
             }
         }
     }
     dol_syslog(get_class($this) . "::get_full_tree dol_sort_array", LOG_DEBUG);
     $this->users = dol_sort_array($this->users, 'fullname', 'asc', true, false);
     //var_dump($this->users);
     return $this->users;
 }

 /**
  * 	Reconstruit l'arborescence des categories sous la forme d'un tableau
  *	Renvoi un tableau de tableau('id','id_mere',...) trie selon arbre et avec:
  *				id                  Id de la categorie
  *				id_mere             Id de la categorie mere
  *				id_children         Tableau des id enfant
  *				label               Name of directory
  *				cachenbofdoc        Nb of documents
  *				date_c              Date creation
  * 				fk_user_c           User creation
  *  			login_c             Login creation
  * 				fullpath	        Full path of id (Added by build_path_from_id_categ call)
  *              fullrelativename    Full path name (Added by build_path_from_id_categ call)
  * 				fulllabel	        Full label (Added by build_path_from_id_categ call)
  * 				level		        Level of line (Added by build_path_from_id_categ call)
  *
  *  @param	int		$force	        Force reload of full arbo even if already loaded in cache $this->cats
  *	@return	array			        Tableau de array
  */
 function get_full_arbo($force = 0)
 {
     global $conf;
     if (empty($force) && !empty($this->full_arbo_loaded)) {
         return $this->cats;
     }
     // Init this->motherof that is array(id_son=>id_parent, ...)
     $this->load_motherof();
     // Charge tableau des categories
     $sql = "SELECT c.rowid as rowid, c.label as label,";
     $sql .= " c.description as description, c.cachenbofdoc,";
     $sql .= " c.fk_user_c,";
     $sql .= " c.date_c,";
     $sql .= " u.login as login_c,";
     $sql .= " ca.rowid as rowid_fille";
     $sql .= " FROM " . MAIN_DB_PREFIX . "user as u, " . MAIN_DB_PREFIX . "ecm_directories as c";
     $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "ecm_directories as ca";
     $sql .= " ON c.rowid = ca.fk_parent";
     $sql .= " WHERE c.fk_user_c = u.rowid";
     $sql .= " AND c.entity = " . $conf->entity;
     $sql .= " ORDER BY c.label, c.rowid";
     dol_syslog(get_class($this) . "::get_full_arbo sql=" . $sql);
     $resql = $this->db->query($sql);
     if ($resql) {
         $this->cats = array();
         $i = 0;
         // This assignment in condition is not a bug. It allows walking the results.
         while ($obj = $this->db->fetch_object($resql)) {
             $this->cats[$obj->rowid]['id'] = $obj->rowid;
             $this->cats[$obj->rowid]['id_mere'] = isset($this->motherof[$obj->rowid]) ? $this->motherof[$obj->rowid] : '';
             $this->cats[$obj->rowid]['label'] = $obj->label;
             $this->cats[$obj->rowid]['description'] = $obj->description;
             $this->cats[$obj->rowid]['cachenbofdoc'] = $obj->cachenbofdoc;
             $this->cats[$obj->rowid]['date_c'] = $this->db->jdate($obj->date_c);
             $this->cats[$obj->rowid]['fk_user_c'] = $obj->fk_user_c;
             $this->cats[$obj->rowid]['login_c'] = $obj->login_c;
             if (!empty($obj->rowid_fille)) {
                 if (isset($this->cats[$obj->rowid]['id_children']) && is_array($this->cats[$obj->rowid]['id_children'])) {
                     $newelempos = count($this->cats[$obj->rowid]['id_children']);
                     //print "this->cats[$i]['id_children'] est deja un tableau de $newelem elements<br>";
                     $this->cats[$obj->rowid]['id_children'][$newelempos] = $obj->rowid_fille;
                 } else {
                     //print "this->cats[".$obj->rowid."]['id_children'] n'est pas encore un tableau<br>";
                     $this->cats[$obj->rowid]['id_children'] = array($obj->rowid_fille);
                 }
             }
             $i++;
         }
     } else {
         dol_print_error($this->db);
         return -1;
     }
     // We add properties fullxxx to all elements
     foreach ($this->cats as $key => $val) {
         if (isset($motherof[$key])) {
             continue;
         }
         $this->build_path_from_id_categ($key, 0);
     }
     $this->cats = dol_sort_array($this->cats, 'fulllabel', 'asc', true, false);
     $this->full_arbo_loaded = 1;
     return $this->cats;
 }

 /**
  *    Retourne la liste deroulante des formes juridiques tous pays confondus ou pour un pays donne.
  *    Dans le cas d'une liste tous pays confondu, on affiche une rupture sur le pays
  *
  *    @param	string		$selected        	Preselected code of juridical type
  *    @param    int			$country_codeid     0=list for all countries, otherwise list only country requested
  *    @param    string		$filter          	Add a SQL filter on list
  *    @return	string							String with HTML select
  */
 function select_juridicalstatus($selected = '', $country_codeid = 0, $filter = '')
 {
     global $conf, $langs, $user;
     $langs->load("dict");
     $out = '';
     // On recherche les formes juridiques actives des pays actifs
     $sql = "SELECT f.rowid, f.code as code , f.libelle as label, f.active, c.label as country, c.code as country_code";
     $sql .= " FROM " . MAIN_DB_PREFIX . "c_forme_juridique as f, " . MAIN_DB_PREFIX . "c_country as c";
     $sql .= " WHERE f.fk_pays=c.rowid";
     $sql .= " AND f.active = 1 AND c.active = 1";
     if ($country_codeid) {
         $sql .= " AND c.code = '" . $country_codeid . "'";
     }
     if ($filter) {
         $sql .= " " . $filter;
     }
     $sql .= " ORDER BY c.code";
     dol_syslog(get_class($this) . "::select_juridicalstatus", LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         $out .= '<div id="particulier2" class="visible">';
         $out .= '<select class="flat" name="forme_juridique_code" id="legal_form">';
         if ($country_codeid) {
             $out .= '<option value="0">&nbsp;</option>';
         }
         $num = $this->db->num_rows($resql);
         if ($num) {
             $i = 0;
             $country = '';
             $arraydata = array();
             while ($i < $num) {
                 $obj = $this->db->fetch_object($resql);
                 $labelcountry = $langs->trans("Country" . $obj->country_code) != "Country" . $obj->country_code ? $langs->trans("Country" . $obj->country_code) : $obj->country;
                 $labeljs = $langs->trans("JuridicalStatus" . $obj->code) != "JuridicalStatus" . $obj->code ? $langs->trans("JuridicalStatus" . $obj->code) : ($obj->label != '-' ? $obj->label : '');
                 // $obj->label is already in output charset (converted by database driver)
                 $arraydata[$obj->code] = array('code' => $obj->code, 'label' => $labeljs, 'label_sort' => $labelcountry . '_' . $labeljs, 'country_code' => $obj->country_code, 'country' => $labelcountry);
                 $i++;
             }
             $arraydata = dol_sort_array($arraydata, 'label_sort', 'ASC');
             foreach ($arraydata as $key => $val) {
                 if (!$country || $country != $val['country']) {
                     // Show break when we are in multi country mode
                     if (empty($country_codeid) && $val['country_code']) {
                         $out .= '<option value="0">----- ' . $val['country'] . " -----</option>\n";
                         $country = $val['country'];
                     }
                 }
                 if ($selected > 0 && $selected == $val['code']) {
                     $out .= '<option value="' . $val['code'] . '" selected="selected">';
                 } else {
                     $out .= '<option value="' . $val['code'] . '">';
                 }
                 // If translation exists, we use it, otherwise we use default label in database
                 $out .= $val['label'];
                 $out .= '</option>';
             }
         }
         $out .= '</select>';
         if ($user->admin) {
             $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
         }
         $out .= '</div>';
     } else {
         dol_print_error($this->db);
     }
     return $out;
 }

 /**
  * 	Reconstruit l'arborescence des categories sous la forme d'un tableau
  *	Renvoi un tableau de tableau('id','id_mere',...) trie selon arbre et avec:
  *				id = id de la categorie
  *				id_mere = id de la categorie mere
  *				id_children = tableau des id enfant
  *				label = nom de la categorie
  *				fulllabel = nom avec chemin complet de la categorie
  *				fullpath = chemin complet compose des id
  *
  *	@param      string	$type		      Type of categories (0=product, 1=suppliers, 2=customers, 3=members)
  *  @param      int		$markafterid      Mark all categories after this leaf in category tree.
  *	@return		array		      		  Array of categories
  */
 function get_full_arbo($type, $markafterid = 0)
 {
     $this->cats = array();
     // Charge tableau des meres
     $sql = "SELECT ca.fk_categorie_mere as id_mere, ca.fk_categorie_fille as id_fille";
     $sql .= " FROM " . MAIN_DB_PREFIX . "categorie_association ca";
     $sql .= ", " . MAIN_DB_PREFIX . "categorie as c";
     $sql .= " WHERE ca.fk_categorie_mere = c.rowid";
     $sql .= " AND c.entity IN (" . getEntity('category', 1) . ")";
     // Load array this->motherof
     dol_syslog("Categorie::get_full_arbo build motherof array sql=" . $sql, LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         while ($obj = $this->db->fetch_object($resql)) {
             $this->motherof[$obj->id_fille] = $obj->id_mere;
         }
     } else {
         dol_print_error($this->db);
         return -1;
     }
     // Init $this->cats array
     $sql = "SELECT DISTINCT c.rowid, c.label as label, ca.fk_categorie_fille as rowid_fille, c.priority";
     // Distinct reduce pb with old tables with duplicates
     $sql .= " FROM " . MAIN_DB_PREFIX . "categorie as c";
     $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "categorie_association as ca";
     $sql .= " ON c.rowid = ca.fk_categorie_mere";
     $sql .= " WHERE c.type = " . $type;
     $sql .= " AND c.entity IN (" . getEntity('category', 1) . ")";
     $sql .= " ORDER BY c.label, c.rowid";
     dol_syslog("Categorie::get_full_arbo get category list sql=" . $sql, LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         $i = 0;
         while ($obj = $this->db->fetch_object($resql)) {
             $this->cats[$obj->rowid]['id'] = $obj->rowid;
             if (isset($this->motherof[$obj->rowid])) {
                 $this->cats[$obj->rowid]['id_mere'] = $this->motherof[$obj->rowid];
             }
             $this->cats[$obj->rowid]['label'] = $obj->label;
             $this->cats[$obj->rowid]['priority'] = $obj->priority;
             if ($obj->rowid_fille) {
                 $this->cats[$obj->rowid]['id_children'][] = $obj->rowid_fille;
             }
             $i++;
         }
     } else {
         dol_print_error($this->db);
         return -1;
     }
     // We add the fullpath property to each elements of first level (no parent exists)
     dol_syslog("Categorie::get_full_arbo call to build_path_from_id_categ", LOG_DEBUG);
     foreach ($this->cats as $key => $val) {
         if (isset($this->motherof[$key])) {
             continue;
         }
         $this->build_path_from_id_categ($key, 0);
         // Process a branch from the root category key (this category has no parent)
     }
     // Exclude tree for $markafterid
     if ($markafterid) {
         //print "Look to discard category ".$markafterid."\n";
         $keyfilter1 = '^' . $markafterid . '$';
         $keyfilter2 = '_' . $markafterid . '$';
         $keyfilter3 = '^' . $markafterid . '_';
         $keyfilter4 = '_' . $markafterid . '_';
         foreach ($this->cats as $key => $val) {
             if (preg_match('/' . $keyfilter1 . '/', $val['fullpath']) || preg_match('/' . $keyfilter2 . '/', $val['fullpath']) || preg_match('/' . $keyfilter3 . '/', $val['fullpath']) || preg_match('/' . $keyfilter4 . '/', $val['fullpath'])) {
                 //print "Categ discarded ".$this->cats[$key]['fullpath']."\n";
                 //$this->cats[$key]['marked']=1;
                 unset($this->cats[$key]);
             }
         }
     }
     dol_syslog("Categorie::get_full_arbo dol_sort_array", LOG_DEBUG);
     $this->cats = dol_sort_array($this->cats, 'fulllabel', 'asc', true, false);
     //$this->debug_cats();
     return $this->cats;
 }

		'id'=>'4256,4255',	// Put of list of sparkangels widget id (for each language)
		'lang'=>'fr,en'),	// Put list of language code of widgets (always english at end)
// Widget for Regis Houssin
array('name'=>'Régis Houssin',
		'sort'=>2,
		'logo'=>'logoUrl='.urlencode('http://www.cap-networks.com/images/logo_small.jpg'),
		'id'=>'5391',
		'lang'=>'fr'),
// Widget for Auguria
array('name'=>'Auguria',
		'sort'=>2,
		//'logo'=>'logoUrl='.urlencode('http://www.cap-networks.com/images/logo_small.jpg'),
		'id'=>'7196',
		'lang'=>'fr')
);
$arrayofwidgets=dol_sort_array($arrayofwidgets,'sort','asc',0,0);

$found=0;
print '* '.$langs->trans("LinkToGoldMember",$langs->defaultlang).'<br><br>';
print '<table summary="listofgoldcoaches"><tr>';
foreach ($arrayofwidgets as $arraywidget)	// Loop on each user
{
	if ($found >= $limit) break;
	$listofwidgets=explode(',',$arraywidget['id']);
	$listoflangs=explode(',',$arraywidget['lang']);
	$pos=0;
	foreach($listoflangs as $langcode)		// Loop on each lang of user
	{
		$pos++;
		if (preg_match('/'.$langcode.'/i',$langs->defaultlang) || $langcode == 'en')	// If lang qualified
		{

     }
 } else {
     print '<tr ' . $bc[false] . '><td colspan="2">' . $langs->trans("None") . '</td></tr>';
 }
 print '</table>';
 print '<br>';
 print '<table class="noborder">';
 print '<tr class="liste_titre">';
 print '<td>' . $langs->trans("FilesUpdated") . '</td>';
 print '<td align="center">' . $langs->trans("ExpectedChecksum") . '</td>';
 print '<td align="center">' . $langs->trans("CurrentChecksum") . '</td>';
 print '<td align="right">' . $langs->trans("Size") . '</td>';
 print '<td align="right">' . $langs->trans("DateModification") . '</td>';
 print '</tr>' . "\n";
 $var = true;
 $tmpfilelist = dol_sort_array($file_list['updated'], 'filename');
 if (is_array($tmpfilelist) && count($tmpfilelist)) {
     foreach ($tmpfilelist as $file) {
         $var = !$var;
         print '<tr ' . $bc[$var] . '>';
         print '<td>' . $file['filename'] . '</td>' . "\n";
         print '<td align="center">' . $file['expectedmd5'] . '</td>' . "\n";
         print '<td align="center">' . $file['md5'] . '</td>' . "\n";
         print '<td align="right">' . dol_print_size(dol_filesize(DOL_DOCUMENT_ROOT . '/' . $file['filename'])) . '</td>' . "\n";
         print '<td align="right">' . dol_print_date(dol_filemtime(DOL_DOCUMENT_ROOT . '/' . $file['filename']), 'dayhour') . '</td>' . "\n";
         print "</tr>\n";
     }
 } else {
     print '<tr ' . $bc[false] . '><td colspan="5">' . $langs->trans("None") . '</td></tr>';
 }
 print '</table>';

 /**
  * Reconstruit l'arborescence des categories sous la forme d'un tableau
  * Renvoi un tableau de tableau('id','id_mere',...) trie selon arbre et avec:
  *                id = id de la categorie
  *                id_mere = id de la categorie mere
  *                id_children = tableau des id enfant
  *                label = nom de la categorie
  *                fulllabel = nom avec chemin complet de la categorie
  *                fullpath = chemin complet compose des id
  *
  * @param   string $type        Type of categories ('customer', 'supplier', 'contact', 'product', 'member').
  *                              Old mode (0, 1, 2, ...) is deprecated.
  * @param   int    $markafterid Removed all categories including the leaf $markafterid in category tree.
  *
  * @return  array               Array of categories. this->cats and this->motherof are set.
  */
 function get_full_arbo($type, $markafterid = 0)
 {
     global $conf, $langs;
     // For backward compatibility
     if (is_numeric($type)) {
         // We want to reverse lookup
         $map_type = array_flip($this->MAP_ID);
         $type = $map_type[$type];
         dol_syslog(get_class($this) . "::get_full_arbo(): numeric types are deprecated, please use string instead", LOG_WARNING);
     }
     $this->cats = array();
     // Init this->motherof that is array(id_son=>id_parent, ...)
     $this->load_motherof();
     $current_lang = $langs->getDefaultLang();
     // Init $this->cats array
     $sql = "SELECT DISTINCT c.rowid, c.label, c.description, c.fk_parent";
     // Distinct reduce pb with old tables with duplicates
     if (!empty($conf->global->MAIN_MULTILANGS)) {
         $sql .= ", t.label as label_trans, t.description as description_trans";
     }
     $sql .= " FROM " . MAIN_DB_PREFIX . "categorie as c";
     if (!empty($conf->global->MAIN_MULTILANGS)) {
         $sql .= " LEFT  JOIN " . MAIN_DB_PREFIX . "categorie_lang as t ON t.fk_category=c.rowid AND t.lang='" . $current_lang . "'";
     }
     $sql .= " WHERE c.entity IN (" . getEntity('category', 1) . ")";
     $sql .= " AND c.type = " . $this->MAP_ID[$type];
     dol_syslog(get_class($this) . "::get_full_arbo get category list", LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         $i = 0;
         while ($obj = $this->db->fetch_object($resql)) {
             $this->cats[$obj->rowid]['rowid'] = $obj->rowid;
             $this->cats[$obj->rowid]['id'] = $obj->rowid;
             $this->cats[$obj->rowid]['fk_parent'] = $obj->fk_parent;
             $this->cats[$obj->rowid]['label'] = !empty($obj->label_trans) ? $obj->label_trans : $obj->label;
             $this->cats[$obj->rowid]['description'] = !empty($obj->description_trans) ? $obj->description_trans : $obj->description;
             $i++;
         }
     } else {
         dol_print_error($this->db);
         return -1;
     }
     // We add the fullpath property to each elements of first level (no parent exists)
     dol_syslog(get_class($this) . "::get_full_arbo call to build_path_from_id_categ", LOG_DEBUG);
     foreach ($this->cats as $key => $val) {
         //print 'key='.$key.'<br>'."\n";
         $this->build_path_from_id_categ($key, 0);
         // Process a branch from the root category key (this category has no parent)
     }
     // Exclude leaf including $markafterid from tree
     if ($markafterid) {
         //print "Look to discard category ".$markafterid."\n";
         $keyfilter1 = '^' . $markafterid . '$';
         $keyfilter2 = '_' . $markafterid . '$';
         $keyfilter3 = '^' . $markafterid . '_';
         $keyfilter4 = '_' . $markafterid . '_';
         foreach ($this->cats as $key => $val) {
             if (preg_match('/' . $keyfilter1 . '/', $val['fullpath']) || preg_match('/' . $keyfilter2 . '/', $val['fullpath']) || preg_match('/' . $keyfilter3 . '/', $val['fullpath']) || preg_match('/' . $keyfilter4 . '/', $val['fullpath'])) {
                 unset($this->cats[$key]);
             }
         }
     }
     dol_syslog(get_class($this) . "::get_full_arbo dol_sort_array", LOG_DEBUG);
     $this->cats = dol_sort_array($this->cats, 'fulllabel', 'asc', true, false);
     //$this->debug_cats();
     return $this->cats;
 }

 /**
  *      Load into cache cache_demand_reason, array of input reasons
  *      @return     int             Nb of lines loaded, 0 if already loaded, <0 if ko
  */
 function load_cache_demand_reason()
 {
     global $langs;
     if (sizeof($this->cache_demand_reason)) {
         return 0;
     }
     // Cache already loaded
     $sql = "SELECT rowid, code, label";
     $sql .= " FROM " . MAIN_DB_PREFIX . 'c_input_reason';
     $sql .= " WHERE active=1";
     $sql .= " ORDER BY rowid";
     dol_syslog('Form::load_cache_demand_reason sql=' . $sql, LOG_DEBUG);
     $resql = $this->db->query($sql);
     if ($resql) {
         $num = $this->db->num_rows($resql);
         $i = 0;
         $tmparray = array();
         while ($i < $num) {
             $obj = $this->db->fetch_object($resql);
             // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
             $label = $langs->trans("DemandReasonType" . $obj->code) != "DemandReasonType" . $obj->code ? $langs->trans("DemandReasonType" . $obj->code) : ($obj->label != '-' ? $obj->label : '');
             $tmparray[$obj->rowid]['id'] = $obj->rowid;
             $tmparray[$obj->rowid]['code'] = $obj->code;
             $tmparray[$obj->rowid]['label'] = $label;
             $i++;
         }
         $this->cache_demand_reason = dol_sort_array($tmparray, 'label', $order = 'asc', $natsort, $case_sensitive);
         unset($tmparray);
         return 1;
     } else {
         dol_print_error($this->db);
         return -1;
     }
 }

 /**
  *      Charge dans cache la liste des types de paiements possibles
  *
  *      @return     int                 Nb of lines loaded, <0 if KO
  */
 function load_cache_types_paiements()
 {
     global $langs;
     $num = count($this->cache_types_paiements);
     if ($num > 0) {
         return $num;
     }
     // Cache already loaded
     dol_syslog(__METHOD__, LOG_DEBUG);
     $this->cache_types_paiements = array();
     $sql = "SELECT id, code, libelle as label, type, active";
     $sql .= " FROM " . MAIN_DB_PREFIX . "c_paiement";
     //if ($active >= 0) $sql.= " WHERE active = ".$active;
     $resql = $this->db->query($sql);
     if ($resql) {
         $num = $this->db->num_rows($resql);
         $i = 0;
         while ($i < $num) {
             $obj = $this->db->fetch_object($resql);
             // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
             $label = $langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) != "PaymentTypeShort" . $obj->code ? $langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) : ($obj->label != '-' ? $obj->label : '');
             $this->cache_types_paiements[$obj->id]['id'] = $obj->id;
             $this->cache_types_paiements[$obj->id]['code'] = $obj->code;
             $this->cache_types_paiements[$obj->id]['label'] = $label;
             $this->cache_types_paiements[$obj->id]['type'] = $obj->type;
             $this->cache_types_paiements[$obj->id]['active'] = $obj->active;
             $i++;
         }
         $this->cache_types_paiements = dol_sort_array($this->cache_types_paiements, 'label', 'asc', 0, 0, 1);
         return $num;
     } else {
         dol_print_error($this->db);
         return -1;
     }
 }