<?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 may 27 15:16:38 ART 2003
// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
// +----------------------------------------------------------------------+
//
// $Id$
// 
//VERIFICO SI SE TIENE ACCESO A LA PAGINA {{{
$SAMURAI_PERM->setSistema(SAMURAI_PERM);
if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
    $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
}
$MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
//}}}

//REQUIRE ONCE {{{
require_once 'MECON/HTML/Image.php';
require_once 'MECON/HTML/Link.php';
require_once 'MECON/HTML/TablaDB.php';
require_once 'SAMURAI/Permiso.php';
//}}}

//VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
if (!@$_SESSION['samurai']['id_sistema']) {
    header('Location: ./../sel-sistema?redirect=permisos/permisos');    
}
//}}}   

//OBTENGO LA INFORMACION DE LA BASE {{{
$res = SAMURAI_Permiso::getPermisosPager($DB);
if (PEAR::isError($res)) {
    trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
}

// }}}

//CREO LA TABLA DE PERMISOS {{{
$TABLA =& new MECON_HTML_TablaDB ('Permisos');
$TABLA->addLink(
        'nuevo', 
        new MECON_HTML_Link(
            'permisos-abm', 'Nuevo Permiso', 
            array (
                'accion' => '##ACCION##',
                'idPermiso' => '##NUEVO##'
                )
            )
        );
$TABLA->addRow(array('Id', 'Descripción', 'Modif.', 'Elimn.'), 'cabecera');
$pager = $TABLA->addPager($res, null, new MECON_HTML_Link ('permisos', null), 25);

//Agrego las columnas de modificacion y eliminacion {{{
$link = new MECON_HTML_Link ('permisos-abm', null, array('accion' => 'm'));
$TABLA->addRowsIcon('modificar', 'id_permiso', $link, 'cuenta');
$link->setGetVar('accion', 'e');
$TABLA->addRowsIcon('eliminar', 'id_permiso', $link, 'cuenta');
//}}}

$TABLA->addRows($pager, array ('id_permiso', 'desc_permiso'));
$TABLA->updateColAttributes(0,'width="10%" ');
$TABLA->updateColAttributes(1,'width="70%"');
$TABLA->updateColAttributes(2,'width="10%"');
$TABLA->updateColAttributes(3,'width="10%"');
//}}}

//DIBUJO LA PAGINA {{{
    $MARCO->addBody($TABLA);
    $MARCO->display();
//}}}
?>