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 // +----------------------------------------------------------------------+
22 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
23 $SAMURAI_PERM->setSistema(SAMURAI_PERM);
24 if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
25 $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
26 $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF, SAMURAI_PERM_DEVELOPER);
28 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
32 require_once 'MECON/HTML/QuickForm.php';
33 require_once 'MECON/HTML/Tabla.php';
34 require_once 'MECON/HTML/Error.php';
35 require_once 'SAMURAI/Perfil.php';
36 require_once 'SAMURAI/Permiso.php';
37 require_once 'SAMURAI/Sistema.php';
38 require_once 'MECON/HTML/Image.php';
40 //CREO LOS OBJETO NECESARIOS {{{
41 if (@$_GET['id_perfil']) {
42 $id_perfil = $_GET['id_perfil'];
44 elseif (@$_POST['id_perfil']) {
45 $id_perfil = $_POST['id_perfil'];
50 $FORM = new MECON_HTML_QuickForm ('perfiles_abm','post','perfiles-abm');
51 $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
52 $PERFIL = new SAMURAI_Perfil ($DB, $id_perfil,
53 $_SESSION['samurai']['id_sistema']);
55 if ($PERFIL->getResponsable()) {
56 $responsable = $PERFIL->getResponsable();
59 $responsable = $_SESSION['usuario'];
62 if (!@$_GET['id_perfil']) {
63 if (@$_GET['desc_perfil']) {
64 $PERFIL->setDescripcion(@$_GET['desc_perfil']);
67 $PERFIL->setDescripcion(@$_POST['desc_ant']);
70 $descripcion = $PERFIL->getDescripcion();
72 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
73 $ASOCIACIONES = $SISTEMA->getAsociaciones();
75 foreach ($ASOCIACIONES as $as) {
76 $clave = $as['id'].'##'.$as['obs'];
77 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
78 $PERMISOS[$clave] = $texto;
81 //AGREGO LOS ELEMENTOS DEL FORM {{{
83 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
84 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
85 $FORM->addElement ('hidden', 'desc_ant' , $descripcion);
86 $FORM->addElement ('static', 'desc_perfil', 'Descripción', $descripcion);
87 $FORM->addElement ('select', 'permisos' , 'Permisos' , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
88 $FORM->addElement ('hidden', 'responsable', $responsable);
89 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
90 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\'perfiles\';return false;'));
91 $FORM->addGroup($group,'botones');
94 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
97 //AGREGO LAS REGLAS DE VALIDACION {{{
98 $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
100 //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
101 if (isset($_GET['accion']) && $_GET['accion'] != '') {
103 $id_perfil =& $FORM->getElement ('id_perfil' );
104 $desc_perfil =& $FORM->getElement ('desc_perfil');
105 $permisos =& $FORM->getElement ('permisos' );
106 $responsable =& $FORM->getElement ('responsable');
107 $group =& $FORM->getElement ('botones' );
108 $group =& $group->getElements('aceptar' );
109 $aceptar =& $group[0];
111 $permisos->setSelected($PERFIL->getPermisos());
113 if ($PERFIL->getResponsable() != '') {
114 $responsable->setValue($PERFIL->getResponsable());
117 //Modifico el valor del boton
118 $aceptar->setValue('Modificar');
120 //ELIMINACION -> modifico el valor del boton
121 if ($_GET['accion'] == 'e') {
122 $aceptar->setValue('Eliminar');
123 $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
128 //VALIDO EL FORMULARIO {{{
129 if ($FORM->validate()) {
130 // VEO SI SE CANCELO {{{
131 $botones = $FORM->getSubmitValue('botones');
132 if (@$botones['cancelar']) {
133 header('Location: perfiles');
137 $id_perfil =& $FORM->getElement ('id_perfil' );
138 $desc_perfil =& $FORM->getElement ('desc_perfil');
139 $permisos =& $FORM->getElement ('permisos' );
140 $responsable =& $FORM->getElement ('responsable');
141 $group =& $FORM->getElement ('botones' );
142 $group =& $group->getElements('aceptar' );
143 $aceptar =& $group[0];
145 $PERFIL->setDescripcion($desc_perfil->_text );
146 $PERFIL->setResponsable($responsable->getValue());
147 $PERFIL->setPermisos ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
149 //Grabo y verifico si se produjo algun error
150 $res = $PERFIL->guardarDatos($aceptar->getValue());
152 if (PEAR::isError($res)) {
153 $ERROR = new MECON_HTML_Error($res->getMessage());
154 if ($aceptar->getValue() == 'Eliminar') {
160 header('Location: perfiles');
165 //DIBUJO LA PAGINA {{{
166 $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
167 $row = array ($imagen->toHtml().' <b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
168 $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
169 $TABLA3->addRow($row,'align=left');
171 $MARCO->addTitle('ABM Perfil');
172 $MARCO->addBody($TABLA3);
174 $MARCO->addBody($ERROR);
176 $MARCO->addBody($FORM);