sistema/www/permisos/permisos-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: mar may 27 15:16:38 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->chequear(SAMURAI_PERM_DEVELOPER);
  26 }
  27 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  28 //}}}
  29
  30 //XXX OBTENGO LA ACCION {{{
  31 switch ($_REQUEST['accion']) {
  32     case 'm':
  33         $b_accion = 'Modificar';
  34         $accion = 'm';
  35         break;
  36     case 'e':
  37         $b_accion = 'Eliminar';
  38         $accion = 'e';
  39         break;
  40     default:
  41         $b_accion = 'Grabar';
  42         $accion = '';
  43         break;
  44 }
  45 //}}}
  46
  47 //REQUIRE_ONCE {{{
  48     //MECON {{{
  49     require_once 'MECON/HTML/QuickForm.php';
  50     require_once 'MECON/HTML/Tabla.php';
  51     require_once 'MECON/HTML/Error.php';
  52     // }}}
  53     //SAMURAI {{{
  54     require_once 'SAMURAI/Permiso.php';
  55     //}}}
  56 //}}}
  57 //CREO LOS OBJETO NECESARIOS {{{
  58     $FORM = new MECON_HTML_QuickForm ('permisos_abm','post','permisos-abm');
  59 // }}}
  60 //AGREGO LOS ELEMENTOS DEL FORM {{{
  61     $FORM->addElement ('header', 'cabecera', 'ABM Permisos');
  62     $FORM->addElement ('hidden', 'id_permiso');
  63     $FORM->addElement ('text'  , 'desc_permiso', 'Descripción', array('size'=>'50'));
  64     $FORM->addElement ('hidden', 'responsable' , $_SESSION['usuario']);
  65     $FORM->addElement ('hidden', 'accion', $accion);
  66     $group[] = HTML_QuickForm::createElement('submit', 'aceptar', $b_accion);
  67     $group[] = HTML_QuickForm::createElement('button', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:history.go(-1);return true;'));
  68     $FORM->addGroup($group,'botones');
  69 // }}}
  70 //AGREGO LAS REGLAS DE VALIDACION DE LOS ELEMENTOS {{{
  71     $FORM->addRule('desc_permiso', 'El campo descripción es obligatorio', 'required', '', 'client');
  72 // }}}
  73 //CREO EL OBJETO PERMISO {{{
  74     //Obtengo el id del permiso.
  75     $idPermiso =& $FORM->getElement('id_permiso');
  76     if (isset($_GET['accion']) && $_GET['accion'] != '') {
  77         //Viene en el get es -> modificar o eliminar, me ocupo yo.
  78         $id_permiso = $_GET['idPermiso'];
  79         $idPermiso->setValue($id_permiso);
  80     }
  81     else {
  82         //Viene en el post, no me ocupo yo.
  83         $id_permiso = $idPermiso->getValue();
  84     }
  85     $PERMISO = new SAMURAI_Permiso ($DB, $id_permiso);
  86 // }}}
  87 //SETEO LOS VALORES DE LOS ELEMENTOS DEL OBJETO FORM {{{
  88     if (isset($_GET['accion']) && $_GET['accion'] != '') {
  89         //MODIFICACION -> agrego la info a los elementos
  90         $desc_permiso =& $FORM->getElement  ('desc_permiso');
  91         $responsable  =& $FORM->getElement  ('responsable' );
  92         $group        =& $FORM->getElement  ('botones'     );
  93         $group        =& $group->getElements('aceptar'     );
  94         $aceptar      =& $group[0];
  95
  96         $desc_permiso->setValue ($PERMISO->getDescripcion());
  97
  98         if ($PERMISO->getResponsable() != '') {
  99             $responsable->setValue($PERMISO->getResponsable());
 100         }
 101
 102         $aceptar->setValue('Modificar');
 103
 104         //ELIMINACION -> modifico el valor del boton
 105         if ($_GET['accion'] == 'e') {
 106             $aceptar->setValue('Eliminar');
 107             $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 108             $FORM->freeze();
 109         }
 110     }
 111 // }}}
 112 //VALIDO EL FORMULARIO {{{
 113     if ($FORM->validate()) {
 114        // VEO SI SE CANCELO {{{
 115         $botones = $FORM->getSubmitValue('botones');
 116         if (@$botones['cancelar']) {
 117             header('Location: permisos');
 118         }
 119         // }}}
 120         $desc_permiso =& $FORM->getElement  ('desc_permiso');
 121         $responsable  =& $FORM->getElement  ('responsable' );
 122         $group        =& $FORM->getElement  ('botones'     );
 123         $group        =& $group->getElements('aceptar'     );
 124         $aceptar      =& $group[0];
 125
 126         $PERMISO->setDescripcion($desc_permiso->getValue());
 127         $PERMISO->setResponsable($responsable->getValue());
 128
 129         //Verifico si se produjo algun error
 130         $res = $PERMISO->guardarDatos($aceptar->getValue());
 131
 132         if (PEAR::isError($res)) {
 133             $ERROR = new MECON_HTML_Error(traducir($res->getMessage()));
 134             if ($aceptar->getValue() == 'Eliminar') {
 135                 $FORM->freeze();
 136             }
 137         }
 138         else {
 139             $FORM->freeze();
 140             header('Location: permisos');
 141         }
 142     }
 143 // }}}
 144 //DIBUJO LA PAGINA {{{
 145     $MARCO->addTitle('ABM Permisos');
 146     if (isset($ERROR)) {
 147         $MARCO->addBody($ERROR);
 148     }
 149     $MARCO->addBody($FORM);
 150     $MARCO->display();
 151 // }}}
 152 //FIN
 153 ?>