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