sistema/www/perfiles/perfiles-abm.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
   3 // +----------------------------------------------------------------------+
   4 // | PHP Version 4                                                        |
   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 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  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);
  27 }
  28 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  29 //}}}
  30
  31 //XXX OBTENGO LA ACCION {{{
  32 switch (@$_REQUEST['accion']) {
  33     case 'm':
  34         $b_accion = 'Modificar';
  35         $accion = 'm';
  36         break;
  37     case 'e':
  38         $b_accion = 'Eliminar';
  39         $accion = 'e';
  40         break;
  41     default:
  42         $b_accion = 'Grabar';
  43         $accion = '';
  44         break;
  45 }
  46 //}}}
  47
  48 // REQUIRE_ONCE {{{
  49     require_once 'MECON/HTML/QuickForm.php';
  50     require_once 'MECON/HTML/Tabla.php';
  51     require_once 'MECON/HTML/Error.php';
  52     require_once 'SAMURAI/Perfil.php';
  53     require_once 'SAMURAI/Permiso.php';
  54     require_once 'SAMURAI/Sistema.php';
  55     require_once 'MECON/HTML/Image.php';
  56 // }}}
  57 //CREO LOS OBJETO NECESARIOS {{{
  58     if (@$_GET['id_perfil']) {
  59         $id_perfil = $_GET['id_perfil'];
  60     }
  61     elseif (@$_POST['id_perfil']) {
  62         $id_perfil = $_POST['id_perfil'];
  63     }
  64     else {
  65         $id_perfil = null;
  66     }
  67     $FORM = new MECON_HTML_QuickForm ('perfiles_abm','post','perfiles-abm');
  68     $FORM->renderer->updateAttributes('width="400"');
  69     $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
  70     $PERFIL = new SAMURAI_Perfil ($DB, $id_perfil,
  71             $_SESSION['samurai']['id_sistema']);
  72
  73     if ($PERFIL->getResponsable()) {
  74         $responsable = $PERFIL->getResponsable();
  75     }
  76     else {
  77         $responsable = $_SESSION['usuario'];
  78     }
  79
  80     if (!@$_GET['id_perfil']) {
  81         if (@$_GET['desc_perfil']) {
  82             $PERFIL->setDescripcion(@$_GET['desc_perfil']);
  83         }
  84         else {
  85             $PERFIL->setDescripcion(@$_POST['desc_ant']);
  86         }
  87     }
  88     $descripcion = $PERFIL->getDescripcion();
  89 // }}}
  90 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
  91     $ASOCIACIONES = $SISTEMA->getAsociaciones();
  92     $PERMISOS = array ();
  93     foreach ($ASOCIACIONES as $as) {
  94         $clave = $as['id'].'##'.$as['obs'];
  95         $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
  96         $PERMISOS[$clave] = $texto;
  97     }
  98 // }}}
  99 //AGREGO LOS ELEMENTOS DEL FORM {{{
 100     if (@$PERMISOS) {
 101         $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
 102         $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
 103         $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
 104         $FORM->addElement ('static', 'desc_perfil', 'Descripción', $descripcion);
 105         $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
 106         $FORM->addElement ('hidden', 'responsable', $responsable);
 107         $FORM->addElement ('hidden', 'accion', $accion);
 108         $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , $b_accion);
 109         $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\'perfiles\';return false;'));
 110         $FORM->addGroup($group,'botones');
 111     }
 112     else {
 113         $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
 114     }
 115 // }}}
 116 //AGREGO LAS REGLAS DE VALIDACION {{{
 117     $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
 118 // }}}
 119 //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
 120     if (isset($_GET['accion']) && $_GET['accion'] != '') {
 121         //MODIFICACION
 122         $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 123         $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 124         $permisos     =& $FORM->getElement  ('permisos'   );
 125         $responsable  =& $FORM->getElement  ('responsable');
 126         $group        =& $FORM->getElement  ('botones'    );
 127         $group        =& $group->getElements('aceptar'    );
 128         $aceptar      =& $group[0];
 129
 130         $permisos->setSelected($PERFIL->getPermisos());
 131
 132         if ($PERFIL->getResponsable() != '') {
 133             $responsable->setValue($PERFIL->getResponsable());
 134         }
 135
 136         //Modifico el valor del boton
 137         $aceptar->setValue('Modificar');
 138
 139         //ELIMINACION -> modifico el valor del boton
 140         if ($_GET['accion'] == 'e') {
 141             $aceptar->setValue('Eliminar');
 142             $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 143             $FORM->freeze();
 144         }
 145     }
 146 // }}}
 147 //VALIDO EL FORMULARIO {{{
 148     if ($FORM->validate()) {
 149         // VEO SI SE CANCELO {{{
 150         $botones = $FORM->getSubmitValue('botones');
 151         if (@$botones['cancelar']) {
 152             header('Location: perfiles');
 153         }
 154         // }}}
 155         else {
 156             $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 157             $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 158             $permisos     =& $FORM->getElement  ('permisos'   );
 159             $responsable  =& $FORM->getElement  ('responsable');
 160             $group        =& $FORM->getElement  ('botones'    );
 161             $group        =& $group->getElements('aceptar'    );
 162             $aceptar      =& $group[0];
 163
 164             $PERFIL->setDescripcion($desc_perfil->_text     );
 165             $PERFIL->setResponsable($responsable->getValue());
 166             $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
 167
 168             //Grabo y verifico si se produjo algun error
 169             $res = $PERFIL->guardarDatos($aceptar->getValue());
 170
 171             if (PEAR::isError($res)) {
 172                 $ERROR = new MECON_HTML_Error($res->getMessage());
 173                 if ($aceptar->getValue() == 'Eliminar') {
 174                     $FORM->freeze();
 175                 }
 176             }
 177             else {
 178                 $FORM->freeze();
 179                 header('Location: perfiles');
 180             }
 181         }
 182     }
 183 // }}}
 184 //DIBUJO LA PAGINA {{{
 185     $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 186     $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 187     $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 188     $TABLA3->addRow($row,'align=left');
 189
 190     $MARCO->addTitle('ABM Perfil');
 191     $MARCO->addBody($TABLA3);
 192     if (isset($ERROR)) {
 193         $MARCO->addBody($ERROR);
 194     }
 195     $MARCO->addBody($FORM);
 196     $MARCO->display();
 197 //
 198 //FIN
 199 ?>