Rename trunk directory to public_html
[ldapsaisie.git] / public_html / includes / class / class.LSattr_html_select_list.php
1 <?php
2 /*******************************************************************************
3  * Copyright (C) 2007 Easter-eggs
4  * http://ldapsaisie.labs.libre-entreprise.org
5  *
6  * Author: See AUTHORS file in top-level directory.
7  *
8  * This program is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU General Public License version 2
10  * as published by the Free Software Foundation.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20
21 ******************************************************************************/
22
23 /**
24  * Type d'attribut HTML select_list
25  *
26  * 'html_options' => array (
27  *    'possible_values' => array (
28  *      '[LSformat de la valeur clé]' => '[LSformat du nom d'affichage]',
29  *      ...
30  *      'OTHER_OBJECT' => array (
31  *        'object_type' => '[Type d'LSobject]',
32  *        'display_name_format' => '[LSformat du nom d'affichage des LSobjects]',
33  *        'value_attribute' => '[Nom de l'attribut clé]',
34  *        'filter' => '[Filtre de recherche des LSobject]',
35  *        'scope' => '[Scope de la recherche]',
36  *        'basedn' => '[Basedn de la recherche]'
37  *      )
38  *    )
39  * ),
40  * 
41  * @author Benjamin Renard <brenard@easter-eggs.com>
42  */
43 class LSattr_html_select_list extends LSattr_html{
44
45   /**
46    * Ajoute l'attribut au formualaire passer en paramètre
47    *
48    * @param[in] &$form LSform Le formulaire
49    * @param[in] $idForm L'identifiant du formulaire
50    * @param[in] $data Valeur du champs du formulaire
51    *
52    * @retval LSformElement L'element du formulaire ajouté
53    */
54   function addToForm (&$form,$idForm,$data=NULL) {
55     $possible_values=$this -> getPossibleValues();
56     $this -> config['text_possible_values'] = $possible_values;
57     $element=$form -> addElement('select', $this -> name, $this -> config['label'],$this -> config, $this);
58     if(!$element) {
59       LSerror :: addErrorCode('LSform_06',$this -> name);
60       return;
61     }
62     if ($data) {
63       $element -> setValue($data);
64     }
65    
66     // Mise en place de la regle de verification des donnees
67     $regex_check_data='/';
68     foreach ($possible_values as $val => $text) {
69       if($regex_check_data=='/')
70         $regex_check_data.='^'.preg_quote($val,'/').'$';
71       else
72         $regex_check_data.='|^'.preg_quote($val,'/').'$';
73     }
74     $regex_check_data.='/';
75     $form -> addRule($this -> name, 'regex', array('msg'=> 'Valeur incorrect','params' => array('regex' => $regex_check_data)) );
76     // On retourne un pointeur vers l'element ajouter
77     return $element;
78   }
79   
80   /**
81    * Retourne un tableau des valeurs possibles de la liste
82    *
83    * @author Benjamin Renard <brenard@easter-eggs.com>
84    *
85    * @retval array Tableau associatif des valeurs possible de la liste avec en clé
86    *               la valeur des balises option et en valeur ce qui sera affiché.
87    */ 
88   function getPossibleValues() {
89     $retInfos = array();
90     if (is_array($this -> config['html_options']['possible_values'])) {
91       foreach($this -> config['html_options']['possible_values'] as $val_name => $val) {
92         if($val_name=='OTHER_OBJECT') {
93           if ((!isset($val['object_type'])) || (!isset($val['value_attribute']))) {
94             LSerror :: addErrorCode('LSattr_html_select_list_01',$this -> name);
95             break;
96           }
97           if (!LSsession :: loadLSclass('LSsearch')) {
98             return;
99           }
100           
101           $param=array(
102             'filter' => $val['filter'],
103             'basedn' => $val['basedn'],
104             'scope' => $val['scope'],
105             'displayFormat' => $val['display_name_format'],
106           );
107           
108           
109           
110           if ($val['value_attribute']!='dn') {
111             $param['attributes'][] = $val['value_attribute'];
112           }
113           
114           $LSsearch = new LSsearch($val['object_type'],'LSattr_html_select_list',$param,true);
115           $LSsearch -> run();
116           if(($val['value_attribute']=='dn')||($val['value_attribute']=='%{dn}')) {
117             $retInfos = $LSsearch -> listObjectsName();
118           }
119           else {
120             $list = $LSsearch -> getSearchEntries();
121             foreach($list as $entry) {
122               $key = $entry -> get($val['value_attribute']);
123               if(is_array($key)) {
124                 $key = $key[0];
125               }
126               $retInfos[$key]=$entry -> displayName;
127             }
128           }
129         }
130         else {
131           $val_name=$this->attribute->ldapObject->getFData($val_name);
132           $val=$this->attribute->ldapObject->getFData($val);
133           $retInfos[$val_name]=$val;
134         }
135       }
136     }
137     return $retInfos;
138   }
139   
140 }
141
142 /*
143  * Error Codes
144  */
145 LSerror :: defineError('LSattr_html_select_list_01',
146 _("LSattr_html_select_list : Configuration data are missing to generate the select list of the attribute %{attr}.")
147 );
148 ?>