2007-03-29 18:10:14 +02:00
|
|
|
<?php
|
|
|
|
/*******************************************************************************
|
|
|
|
* Copyright (C) 2007 Easter-eggs
|
|
|
|
* http://ldapsaisie.labs.libre-entreprise.org
|
|
|
|
*
|
|
|
|
* Author: See AUTHORS file in top-level directory.
|
|
|
|
*
|
|
|
|
* This program is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU General Public License version 2
|
|
|
|
* as published by the Free Software Foundation.
|
|
|
|
*
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program; if not, write to the Free Software
|
|
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
|
|
|
|
******************************************************************************/
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Type d'attribut HTML select_list
|
|
|
|
*
|
2009-02-11 17:01:21 +01:00
|
|
|
* 'html_options' => array (
|
|
|
|
* 'possible_values' => array (
|
|
|
|
* '[LSformat de la valeur clé]' => '[LSformat du nom d'affichage]',
|
|
|
|
* ...
|
|
|
|
* 'OTHER_OBJECT' => array (
|
|
|
|
* 'object_type' => '[Type d'LSobject]',
|
|
|
|
* 'display_name_format' => '[LSformat du nom d'affichage des LSobjects]',
|
|
|
|
* 'value_attribute' => '[Nom de l'attribut clé]',
|
|
|
|
* 'filter' => '[Filtre de recherche des LSobject]',
|
|
|
|
* 'scope' => '[Scope de la recherche]',
|
|
|
|
* 'basedn' => '[Basedn de la recherche]'
|
|
|
|
* )
|
|
|
|
* )
|
|
|
|
* ),
|
|
|
|
*
|
2007-03-29 18:10:14 +02:00
|
|
|
* @author Benjamin Renard <brenard@easter-eggs.com>
|
|
|
|
*/
|
|
|
|
class LSattr_html_select_list extends LSattr_html{
|
2007-11-15 19:07:24 +01:00
|
|
|
|
2014-06-18 00:13:06 +02:00
|
|
|
var $LSformElement_type = 'select';
|
|
|
|
|
2008-02-26 18:40:05 +01:00
|
|
|
/**
|
2008-04-25 16:09:27 +02:00
|
|
|
* Ajoute l'attribut au formualaire passer en paramètre
|
2008-02-26 18:40:05 +01:00
|
|
|
*
|
|
|
|
* @param[in] &$form LSform Le formulaire
|
|
|
|
* @param[in] $idForm L'identifiant du formulaire
|
|
|
|
* @param[in] $data Valeur du champs du formulaire
|
|
|
|
*
|
2008-04-25 16:09:27 +02:00
|
|
|
* @retval LSformElement L'element du formulaire ajouté
|
2008-02-26 18:40:05 +01:00
|
|
|
*/
|
2007-11-15 19:07:24 +01:00
|
|
|
function addToForm (&$form,$idForm,$data=NULL) {
|
|
|
|
$possible_values=$this -> getPossibleValues();
|
2008-02-26 18:40:05 +01:00
|
|
|
$this -> config['text_possible_values'] = $possible_values;
|
2014-06-18 00:13:06 +02:00
|
|
|
$element=parent::addToForm($form,$idForm,$data);
|
2014-06-10 16:51:12 +02:00
|
|
|
|
2014-06-18 00:13:06 +02:00
|
|
|
if ($element) {
|
|
|
|
// Mise en place de la regle de verification des donnees
|
2015-07-25 18:23:06 +02:00
|
|
|
$form -> addRule($this -> name, 'LSformElement_select_validValue', array('msg'=> _('Invalid value'),'params' => array('possible_values' => $possible_values)) );
|
2014-06-18 00:13:06 +02:00
|
|
|
}
|
2007-11-15 19:07:24 +01:00
|
|
|
return $element;
|
2007-03-29 18:10:14 +02:00
|
|
|
}
|
2014-06-18 00:13:06 +02:00
|
|
|
|
2007-03-29 18:10:14 +02:00
|
|
|
/**
|
|
|
|
* Retourne un tableau des valeurs possibles de la liste
|
|
|
|
*
|
|
|
|
* @author Benjamin Renard <brenard@easter-eggs.com>
|
|
|
|
*
|
2008-04-25 16:09:27 +02:00
|
|
|
* @retval array Tableau associatif des valeurs possible de la liste avec en clé
|
|
|
|
* la valeur des balises option et en valeur ce qui sera affiché.
|
2008-02-26 18:40:05 +01:00
|
|
|
*/
|
2007-03-29 18:10:14 +02:00
|
|
|
function getPossibleValues() {
|
|
|
|
$retInfos = array();
|
2009-02-11 17:01:21 +01:00
|
|
|
if (is_array($this -> config['html_options']['possible_values'])) {
|
2015-07-25 18:23:06 +02:00
|
|
|
foreach($this -> config['html_options']['possible_values'] as $val_key => $val_label) {
|
|
|
|
if($val_key==='OTHER_OBJECT') {
|
|
|
|
$objInfos=$this -> getLSobjectPossibleValues($val_label);
|
|
|
|
$retInfos=self :: _array_merge($retInfos,$objInfos);
|
2007-03-29 18:10:14 +02:00
|
|
|
}
|
2015-07-25 18:23:06 +02:00
|
|
|
elseif (is_array($val_label)) {
|
|
|
|
if (!isset($val_label['possible_values']) || !is_array($val_label['possible_values']) || !isset($val_label['label']))
|
|
|
|
continue;
|
|
|
|
$subRetInfos=array();
|
|
|
|
foreach($val_label['possible_values'] as $vk => $vl) {
|
|
|
|
if ($vk==='OTHER_OBJECT') {
|
|
|
|
$objInfos=$this -> getLSobjectPossibleValues($vl);
|
|
|
|
$subRetInfos=self :: _array_merge($subRetInfos,$objInfos);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$vk=$this->attribute->ldapObject->getFData($vk);
|
|
|
|
$vl=$this->attribute->ldapObject->getFData(__($vl));
|
|
|
|
$subRetInfos[$vk]=$vl;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$this -> _sort($subRetInfos);
|
|
|
|
$retInfos[] = array (
|
|
|
|
'label' => $this->attribute->ldapObject->getFData(__($val_label['label'])),
|
|
|
|
'possible_values' => $subRetInfos
|
|
|
|
);
|
|
|
|
}
|
2007-03-29 18:10:14 +02:00
|
|
|
else {
|
2015-07-25 18:23:06 +02:00
|
|
|
$val_key=$this->attribute->ldapObject->getFData($val_key);
|
|
|
|
$val_label=$this->attribute->ldapObject->getFData(__($val_label));
|
|
|
|
$retInfos[$val_key]=$val_label;
|
2007-03-29 18:10:14 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2014-09-30 14:46:36 +02:00
|
|
|
|
2015-07-25 18:23:06 +02:00
|
|
|
$this -> _sort($retInfos);
|
|
|
|
|
|
|
|
return $retInfos;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Merge arrays preserving keys (string or numeric)
|
|
|
|
*
|
|
|
|
* As array_merge PHP function, this function merge arrays but
|
|
|
|
* this method permit to preverve key even if it's numeric key.
|
|
|
|
*
|
|
|
|
* @retval array Merged array
|
|
|
|
**/
|
|
|
|
private function _array_merge() {
|
|
|
|
$ret=array();
|
|
|
|
foreach(func_get_args() as $a) {
|
|
|
|
foreach($a as $k => $v) {
|
|
|
|
$ret[$k]=$v;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Apply sort feature on possible values if this feature is enabled
|
|
|
|
*
|
|
|
|
* @param[in] &$retInfos array Possible values array reference to sort
|
|
|
|
*
|
|
|
|
* @retval void
|
|
|
|
**/
|
|
|
|
private function _sort(&$retInfos) {
|
2014-09-30 14:46:36 +02:00
|
|
|
if (!isset($this -> config['html_options']['sort']) || $this -> config['html_options']['sort']) {
|
|
|
|
uasort($retInfos,array($this,'_sortTwoValues'));
|
|
|
|
}
|
2015-07-25 18:23:06 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Retourne un tableau des valeurs possibles d'un type d'objet
|
|
|
|
*
|
|
|
|
* @author Benjamin Renard <brenard@easter-eggs.com>
|
|
|
|
*
|
|
|
|
* @retval array Tableau associatif des valeurs possible de la liste avec en clé
|
|
|
|
* la valeur des balises option et en valeur ce qui sera affiché.
|
|
|
|
*/
|
|
|
|
private function getLSobjectPossibleValues($conf) {
|
|
|
|
$retInfos = array();
|
|
|
|
|
|
|
|
if ((!isset($conf['object_type'])) || (!isset($conf['value_attribute']))) {
|
|
|
|
LSerror :: addErrorCode('LSattr_html_select_list_01',$this -> name);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (!LSsession :: loadLSclass('LSsearch')) {
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
$param=array(
|
|
|
|
'filter' => (isset($conf['filter'])?$conf['filter']:null),
|
|
|
|
'basedn' => (isset($conf['basedn'])?$conf['basedn']:null),
|
|
|
|
'scope' => (isset($conf['scope'])?$conf['scope']:null),
|
|
|
|
'displayFormat' => (isset($conf['display_name_format'])?$conf['display_name_format']:null),
|
|
|
|
);
|
|
|
|
|
|
|
|
if ($conf['value_attribute']!='dn') {
|
|
|
|
$param['attributes'][] = $conf['value_attribute'];
|
|
|
|
}
|
|
|
|
|
|
|
|
$LSsearch = new LSsearch($conf['object_type'],'LSattr_html_select_list',$param,true);
|
|
|
|
$LSsearch -> run();
|
|
|
|
if(($conf['value_attribute']=='dn')||($conf['value_attribute']=='%{dn}')) {
|
|
|
|
$retInfos = $LSsearch -> listObjectsName();
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$list = $LSsearch -> getSearchEntries();
|
|
|
|
foreach($list as $entry) {
|
|
|
|
$key = $entry -> get($conf['value_attribute']);
|
|
|
|
if(is_array($key)) {
|
|
|
|
$key = $key[0];
|
|
|
|
}
|
|
|
|
$retInfos[$key]=$entry -> displayName;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
$this -> _sort($retInfos);
|
2014-09-30 14:46:36 +02:00
|
|
|
|
2007-03-29 18:10:14 +02:00
|
|
|
return $retInfos;
|
|
|
|
}
|
2014-09-30 14:46:36 +02:00
|
|
|
|
2015-07-25 18:23:06 +02:00
|
|
|
/**
|
2014-09-30 14:46:36 +02:00
|
|
|
* Function use with uasort to sort two values
|
|
|
|
*
|
|
|
|
* @param[in] $va string One value
|
|
|
|
* @param[in] $vb string One value
|
|
|
|
*
|
|
|
|
* @retval int Value for uasort
|
|
|
|
**/
|
|
|
|
private function _sortTwoValues(&$va,&$vb) {
|
|
|
|
if (isset($this -> config['html_options']['sortDirection']) && $this -> config['html_options']['sortDirection']=='DESC') {
|
|
|
|
$dir=-1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$dir=1;
|
|
|
|
}
|
2015-07-25 18:23:06 +02:00
|
|
|
|
|
|
|
if (is_array($va)) {
|
|
|
|
$nva=$va['label'];
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$nva=$va;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (is_array($vb)) {
|
|
|
|
$nvb=$vb['label'];
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$nvb=$vb;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($nva == $nvb) return 0;
|
|
|
|
|
|
|
|
$val = strcoll(strtolower($nva), strtolower($nvb));
|
|
|
|
|
2014-09-30 14:46:36 +02:00
|
|
|
return $val*$dir;
|
|
|
|
}
|
|
|
|
|
2007-03-29 18:10:14 +02:00
|
|
|
}
|
|
|
|
|
2009-01-02 17:00:25 +01:00
|
|
|
/*
|
|
|
|
* Error Codes
|
|
|
|
*/
|
2009-01-25 15:37:03 +01:00
|
|
|
LSerror :: defineError('LSattr_html_select_list_01',
|
|
|
|
_("LSattr_html_select_list : Configuration data are missing to generate the select list of the attribute %{attr}.")
|
2009-01-02 17:00:25 +01:00
|
|
|
);
|