2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
3 // +----------------------------------------------------------------------+
5 // +----------------------------------------------------------------------+
6 // | Copyright (c) 1997-2003 The PHP Group |
7 // +----------------------------------------------------------------------+
8 // | This source file is subject to version 2.02 of the PHP license, |
9 // | that is bundled with this package in the file LICENSE, and is |
10 // | available at through the world-wide-web at |
11 // | http://www.php.net/license/2_02.txt. |
12 // | If you did not receive a copy of the PHP license and are unable to |
13 // | obtain it through the world-wide-web, please send a note to |
14 // | license@php.net so we can mail you a copy immediately. |
15 // +----------------------------------------------------------------------+
16 // | Created: lun jul 7 13:30:05 ART 2003
17 // | Author: Martin Marrese <mmarre@mecon.gov.ar>
18 // +----------------------------------------------------------------------+
24 require_once 'MECON/HTML/QuickForm.php';
25 require_once 'MECON/HTML/Tabla.php';
26 require_once 'MECON/HTML/Error.php';
27 require_once 'SAMURAI/Perfil.php';
28 require_once 'SAMURAI/Permiso.php';
29 require_once 'SAMURAI/Sistema.php';
30 require_once 'HTML/Image.php';
32 //CREO LOS OBJETO NECESARIOS {{{
33 if (@$_GET['id_perfil']) {
34 $id_perfil = $_GET['id_perfil'];
36 elseif (@$_POST['id_perfil']) {
37 $id_perfil = $_POST['id_perfil'];
42 $FORM = new MECON_HTML_QuickForm ('perfiles_abm','post','perfiles-abm');
43 $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
44 $PERFIL = new SAMURAI_Perfil ($DB, $id_perfil);
46 if ($PERFIL->getResponsable()) {
47 $responsable = $PERFIL->getResponsable();
50 $responsable = $_SESSION['samurai']['login'];
53 if (!@$_GET['id_perfil']) {
54 if (@$_GET['desc_perfil']) {
55 $PERFIL->setDescripcion(@$_GET['desc_perfil']);
58 $PERFIL->setDescripcion(@$_POST['desc_ant']);
61 $descripcion = $PERFIL->getDescripcion();
63 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
64 $ASOCIACIONES = $SISTEMA->getAsociaciones();
66 foreach ($ASOCIACIONES as $as) {
67 $clave = $as['id'].'##'.$as['obs'];
68 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
69 $PERMISOS[$clave] = $texto;
72 //AGREGO LOS ELEMENTOS DEL FORM {{{
74 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
75 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
76 $FORM->addElement ('hidden', 'desc_ant' , $descripcion);
77 $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
78 $FORM->addElement ('select', 'permisos' , 'Permisos' , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
79 $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
80 $FORM->addElement ('hidden', 'responsable', $responsable);
81 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
82 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\'perfiles\';return false;'));
83 $FORM->addGroup($group,'botones');
86 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
89 //AGREGO LAS REGLAS DE VALIDACION {{{
90 $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
92 //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
93 if (isset($_GET['accion']) && $_GET['accion'] != '') {
95 $id_perfil =& $FORM->getElement ('id_perfil' );
96 $desc_perfil =& $FORM->getElement ('desc_perfil');
97 $permisos =& $FORM->getElement ('permisos' );
98 $tipo_perfil =& $FORM->getElement ('tipo_perfil');
99 $responsable =& $FORM->getElement ('responsable');
100 $group =& $FORM->getElement ('botones' );
101 $group =& $group->getElements('aceptar' );
102 $aceptar =& $group[0];
104 $permisos->setSelected($PERFIL->getPermisos());
105 $tipo_perfil->setSelected($PERFIL->getTipo());
107 if ($PERFIL->getResponsable() != '') {
108 $responsable->setValue($PERFIL->getResponsable());
111 //Modifico el valor del boton
112 $aceptar->setValue('Modificar');
114 //ELIMINACION -> modifico el valor del boton
115 if ($_GET['accion'] == 'e') {
116 $aceptar->setValue('Eliminar');
117 $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
122 //VALIDO EL FORMULARIO {{{
123 if ($FORM->validate()) {
124 // VEO SI SE CANCELO {{{
125 $botones = $FORM->getSubmitValue('botones');
126 if (@$botones['cancelar']) {
127 header('Location: perfiles');
131 $id_perfil =& $FORM->getElement ('id_perfil' );
132 $desc_perfil =& $FORM->getElement ('desc_perfil');
133 $permisos =& $FORM->getElement ('permisos' );
134 $tipo_perfil =& $FORM->getElement ('tipo_perfil');
135 $tipo_perfil_tmp = $tipo_perfil->getSelected();
136 $responsable =& $FORM->getElement ('responsable');
137 $group =& $FORM->getElement ('botones' );
138 $group =& $group->getElements('aceptar' );
139 $aceptar =& $group[0];
141 $PERFIL->setDescripcion($desc_perfil->_text );
142 $PERFIL->setResponsable($responsable->getValue());
143 $PERFIL->setPermisos ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
144 $PERFIL->setTipo ($tipo_perfil_tmp['0'] );
146 //Grabo y verifico si se produjo algun error
147 $res = $PERFIL->guardarDatos($aceptar->getValue());
149 if (PEAR::isError($res)) {
150 $ERROR = new MECON_HTML_Error($res->getMessage());
151 if ($aceptar->getValue() == 'Eliminar') {
157 header('Location: perfiles');
162 //DIBUJO LA PAGINA {{{
163 $imagen = new HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
164 $row = array ($imagen->toHtml().' <b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
165 $TABLA3 = new Tabla ('cellspacing=0');
166 $TABLA3->addRow($row,'align=left');
168 $MARCO->addTitle('ABM Perfil');
169 $MARCO->addBody($TABLA3);
171 $MARCO->addBody($ERROR);
173 $MARCO->addBody($FORM);