sistema/www/perfiles/perfiles-nuevo.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: mar jul  8 12:58:06 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_DEVELOPER);
  27 }
  28 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  29 //}}}
  30
  31 //REQUIRE_ONCE {{{
  32     require_once 'PEAR.php';
  33     require_once 'MECON/HTML/QuickForm.php';
  34     require_once 'MECON/HTML/Tabla.php';
  35     require_once 'SAMURAI/Perfil.php';
  36     require_once 'SAMURAI/Sistema.php';
  37 //}}}
  38 //CREO LOS OBJETO NECESARIOS {{{
  39     $FORM = new MECON_HTML_QuickForm ('perfiles_nuevo','post','perfiles-nuevo');
  40     $FORM->renderer->updateAttributes('width="400"');
  41     $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
  42 // }}}
  43 //AGREGO LOS ELEMENTOS DEL FORM {{{
  44     $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
  45     $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
  46     $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
  47     $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
  48     $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
  49     $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
  50     $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\'perfiles\';return false;') );
  51     $FORM->addGroup($group,'botones');
  52 // }}}
  53 //RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
  54     $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
  55 // }}}
  56 // CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
  57     $botones     = $FORM->getSubmitValue('botones');
  58     $perfiles    =& $FORM->getElement('perfiles');
  59     $descripcion =& $FORM->getElement('descripcion');
  60     if (@$botones['cancelar']) {
  61         header('Location: perfiles');
  62     }
  63     if (!isset($botones['filtrar'])) {
  64         $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
  65     }
  66     elseif (@$botones['filtrar']) {
  67         $filtro   =& $FORM->getElement('filtro');
  68         $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
  69     }
  70     $perfiles->addOption('--', '--');
  71     $perfiles->loadArray($PERFILES);
  72 // }}}
  73 // VALIDO EL FORMULARIO {{{
  74     if ($FORM->validate()) {
  75         if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
  76             $res = '';
  77             $tmp = $perfiles->getSelected();
  78             if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
  79                 $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>Solo una de las dos opciones.");
  80                 @$descripcion->setValue('');
  81             }
  82             elseif ($tmp['0'] != '--') {
  83                 //verificar que el sistema no tenga una asociacion con ese perfil
  84                 if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $_SESSION['samurai']['id_sistema'])) {
  85                     $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, modifique sus permisos desde la seccion perfiles.");
  86                 }
  87                 else {
  88                     header('Location: perfiles-abm?id_perfil='.$tmp['0']);
  89                 }
  90             }
  91             elseif ($descripcion->getValue()) {
  92                 //Verificar que no exista un perfil con la misma descripcion
  93                 //Reduzco los blancos
  94                 $temp = $descripcion->getValue();
  95                 $tt = split (' ', $temp);
  96                 $rta = '';
  97                 foreach ($tt as $t) {
  98                     if ($t != '') {
  99                         $rta.= $t.' ';
 100                     }
 101                 }
 102                 $rta = rtrim($rta);
 103                 //
 104                 if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
 105                     $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br>Recuerde que varios espacios se reduciran a uno solo (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
 106                 }
 107                 else {
 108                     $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
 109                     header('Location: perfiles-abm?desc_perfil='.$temp);
 110                 }
 111             }
 112             if (PEAR::isError($res)) {
 113                 $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
 114                 $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
 115                 $TABLA->addRow($row,'align=left');
 116             }
 117         }
 118     }
 119 // }}}
 120 //MUESTRO LA PAGINA {{{
 121 //AGREGO LOS DATOS A LAS TABLAS {{{
 122     $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 123     $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 124     $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 125     $TABLA3->addRow($row,'align=left');
 126 //}}}
 127
 128     $MARCO->addBody($TABLA3);
 129     if (isset($TABLA)) {
 130         $MARCO->addBody($TABLA);
 131     }
 132     $MARCO->addBody($FORM);
 133     $MARCO->display();
 134 // }}}
 135 ?>