+<?php
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
+// +----------------------------------------------------------------------+
+// | PHP Version 4 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1997-2003 The PHP Group |
+// +----------------------------------------------------------------------+
+// | This source file is subject to version 2.02 of the PHP license, |
+// | that is bundled with this package in the file LICENSE, and is |
+// | available at through the world-wide-web at |
+// | http://www.php.net/license/2_02.txt. |
+// | If you did not receive a copy of the PHP license and are unable to |
+// | obtain it through the world-wide-web, please send a note to |
+// | license@php.net so we can mail you a copy immediately. |
+// +----------------------------------------------------------------------+
+// | Created: mar jul 8 12:58:06 ART 2003
+// | Author: Martin Marrese <mmarre@mecon.gov.ar>
+// +----------------------------------------------------------------------+
+//
+// $Id$
+//
+
+ require_once 'PEAR.php';
+ require_once 'MECON/HTML/QuickForm.php';
+ require_once 'MECON/HTML/Tabla.php';
+ require_once 'SAMURAI/Perfil.php';
+ require_once 'SAMURAI/Sistema.php';
+
+//CREO LOS OBJETO NECESARIOS {{{
+ $FORM = new MECON_HTML_QuickForm ('perfiles_nuevo','post','perfiles-nuevo');
+ $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
+// }}}
+//AGREGO LOS ELEMENTOS DEL FORM {{{
+ $FORM->addElement ('header', 'cabecera' , 'Nuevo Perfil');
+ $FORM->addElement ('select', 'perfiles' , 'Perfiles', '', array('size' => '1'));
+ $FORM->addElement ('text' , 'filtro' , 'Filtrar' , array('size' => '50'));
+ $FORM->addElement ('text' , 'descripcion', 'Nombre' , array('size' => '50'));
+ $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
+ $group[] = HTML_QuickForm::createElement('submit', 'filtrar' , 'Filtrar' );
+ $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar' );
+ $FORM->addGroup($group,'botones');
+// }}}
+///RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL
+ $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
+// }}}
+// CARGO LA INFORMACION EN EL SELECT DE PERFILES
+ $botones = $FORM->getSubmitValue('botones');
+ $perfiles =& $FORM->getElement('perfiles');
+ $descripcion =& $FORM->getElement('descripcion');
+ if (@$botones['cancelar']) {
+ header('Location: perfiles');
+ }
+ if (!isset($botones['filtrar'])) {
+ $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
+ }
+ elseif (@$botones['filtrar']) {
+ $filtro =& $FORM->getElement('filtro');
+ $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
+ }
+ $perfiles->addOption('--', '--');
+ $perfiles->loadArray($PERFILES);
+// }}}
+// VALIDO EL FORMULARIO {{{
+ if ($FORM->validate()) {
+ if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
+ $res = '';
+ $tmp = $perfiles->getSelected();
+ if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
+ $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.");
+ @$descripcion->setValue('');
+ }
+ elseif ($tmp['0'] != '--') {
+ //verificar que el sistema no tenga una asociacion con ese perfil
+ if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $_SESSION['samurai']['id_sistema'])) {
+ $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, modifique sus permisos desde la seccion perfiles.");
+ }
+ else {
+ header('Location: perfiles-abm?id_perfil='.$tmp['0']);
+ }
+ }
+ elseif ($descripcion->getValue()) {
+ //Verificar que no exista un perfil con la misma descripcion
+ //Reduzco los blancos
+ $temp = $descripcion->getValue();
+ $tt = split (' ', $temp);
+ $rta = '';
+ foreach ($tt as $t) {
+ if ($t != '') {
+ $rta.= $t.' ';
+ }
+ }
+ $rta = rtrim($rta);
+ //
+ if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
+ $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 Usuario -> Agregar Usuario)");
+ }
+ else {
+ $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
+ header('Location: perfiles-abm?desc_perfil='.$temp);
+ }
+ }
+ if (PEAR::isError($res)) {
+ $TABLA = new Tabla ('cellspacing=0');
+ $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
+ $TABLA->addRow($row,'align=left');
+ }
+ }
+ }
+// }}}
+//MUESTRO LA PAGINA {{{
+ $TABLA3 = new Tabla ('cellspacing=0');
+ $row = array ('<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
+ $TABLA3->addRow($row,'titulo align=left');
+
+ $MARCO = new Marco ('../../conf/confSecciones.php');
+ $MARCO->addBody($TABLA3);
+ if (isset($TABLA)) {
+ $MARCO->addBody($TABLA);
+ }
+ $MARCO->addBody($FORM);
+ $MARCO->display();
+// }}}
+?>
projects / mecon / samurai.git / commitdiff