<?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: mié oct  1 15:17:35 ART 2003
// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
// +----------------------------------------------------------------------+
//
// $Id$
// 

//Require_once {{{
    //PEAR{{{
    require_once 'HTML/Table.php';
    //}}}
    //Mecon {{{
    require_once 'MECON/HTML/Tabla.php';
    require_once 'MECON/HTML/Image.php';
    require_once 'MECON/HTML/Link.php';
    //}}}
    //Samurai {{{
    require_once 'SAMURAI/Sistema.php';
    require_once 'SAMURAI/Usuario.php';
    require_once 'SAMURAI/Perfil.php';
    require_once 'SAMURAI/Permiso.php';
    //}}}
//}}}

//Verifico si se tiene acceso a la pagina {{{
    $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
//}}}

//Obtengo la accion y el id del sistema {{{
    $accion    = (@$_REQUEST['accion'])    ? $_REQUEST['accion']    : 'listado';
    $subaccion = (@$_REQUEST['subaccion']) ? $_REQUEST['subaccion'] : null;
    $id_sist   = (@$_REQUEST['id_sist'])   ? $_REQUEST['id_sist']   : null; 
//}}}

//Creo la tabla volver {{{
    $T_VOLVER     =& new HTML_Table('width="760"');
    $IMG_VOLVER   =& new MECON_HTML_Image('/MECON/images/general_anterior.gif');
    $LINK_VOLVER  =& new MECON_HTML_Link('', $IMG_VOLVER);
//}}}
    
//ESTADISTICAS_SISTEMAS = LISTADO DE SISTEMAS {{{
if (@!$accion || $accion == 'info_listado') {
    //Creo los objetos necesarios {{{
        $T_SISTEMAS =& new MECON_HTML_Tabla();
        $IMG_ACTIVO  =& new MECON_HTML_Image('/MECON/images/general_tilde_azul.gif');
        $IMG_NACTIVO =& new MECON_HTML_Image('/MECON/images/general_cruz_roja.gif');
        $LINK_SEL =& new MECON_HTML_Link('sistemas');
    //}}}
    
    //Obtengo la lista de sistemas (habilitados y no habilitados) {{{
        $sistemas = SAMURAI_Sistema::getSistemas($DB, false);
    //}}}
        
    //Agrego la informacion a la tabla de sistemas {{{
        $T_SISTEMAS->addRow(array('Listado de Sistemas'), 'cabecera
                colspan="4"');
        $T_SISTEMAS->addRow(array('Id', 'Nombre', 'Descripcion', 'Activo'), 
                'titulo');
        //Agrego la info de los sistemas
        foreach ($sistemas as $sistema) {
            $LINK_SEL->setContents(($sistema->getEstado()) ? $IMG_ACTIVO : $IMG_NACTIVO);
            $LINK_SEL->setGetVars(
                        array(
                            'accion'  => 'info_informacion',
                            'id_sist' => $sistema->getId(),
                        )
                       );
            $row = array (  $sistema->getId(),
                            $sistema->getNombre(),
                            $sistema->getDescripcion(),
                            $LINK_SEL->toHtml()
                    );
            $T_SISTEMAS->addRow($row);
        } 
        $T_SISTEMAS->updateColAttributes(0, 'width="5%" align="center"');
        $T_SISTEMAS->updateColAttributes(1, 'width="20%" align="center"');
        $T_SISTEMAS->updateColAttributes(3, 'width="5%" align="center"');
        $T_SISTEMAS->updateRowAttributes(0, 'align="left"');
    //}}}
    
    //Agrego la informacion al marco {{{
        $LINK_VOLVER->setHref('consultas');
        $MARCO->addBodyContent($T_SISTEMAS);
        $MARCO->addTitle('Estadisticas de Sistemas');
        $MARCO->addBodyContent('<BR>');
        $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
        $MARCO->addBodyContent($T_VOLVER);
  //}}}
}
//}}}

//ESTADISTICAS_SISTEMAS = INFORMACION DE UN SISTEMA {{{
elseif (@!$accion || $accion == 'info_informacion') {
    //Creo los objetos necesarios {{{
        $T_SISTEMA  =& new MECON_HTML_Tabla();
        $T_SISTEMA2 =& new MECON_HTML_Tabla();
        $T_EST =& new MECON_HTML_Tabla('width="300"');
        $SISTEMA =& new SAMURAI_Sistema($DB, $id_sist);
        $IMG_ACTIVO  =& new MECON_HTML_Image('/MECON/images/general_tilde_azul.gif');
        $IMG_NACTIVO =& new MECON_HTML_Image('/MECON/images/general_cruz_roja.gif');
        $IMG_SEP =& new MECON_HTML_Image('../images/linea_separacion.gif');
        
        $LINK_USUARIOS =& new MECON_HTML_Link('sistemas', '', array('accion' =>
                    'info_informacion', 'subaccion' => 'info_usuarios',
                    'id_sist' => $id_sist));
        $LINK_PERFILES =& new MECON_HTML_Link('sistemas', '', array('accion' =>
                    'info_informacion', 'subaccion' => 'info_perfiles',
                    'id_sist' => $id_sist));
        $LINK_PERMISOS =& new MECON_HTML_Link('sistemas', '', array('accion' =>
                    'info_informacion', 'subaccion' => 'info_permisos',
                    'id_sist' => $id_sist));
    //}}}

    //Agrego la informacion del sistema seleccionado {{{
        $T_SISTEMA->addRow(array('Datos del Sistema Seleccionado'),'cabecera
                colspan="4"');
        $T_SISTEMA->addRow(array('Id', 'Nombre', 'Descripcion', 'Activo'), 
                'titulo');
        $T_SISTEMA->addRow(array(
                            $SISTEMA->getId(),
                            $SISTEMA->getNombre(),
                            $SISTEMA->getDescripcion(),
                           ($SISTEMA->getEstado()) ? $IMG_ACTIVO : $IMG_NACTIVO,
                           )
                    );
        $T_SISTEMA->updateColAttributes(0, 'width="5%" align="center"');
        $T_SISTEMA->updateColAttributes(1, 'width="20%" align="center"');
        $T_SISTEMA->updateColAttributes(3, 'width="5%" align="center"');
        $T_SISTEMA->updateRowAttributes(0, 'align="left"');

        $fch_ini =& $SISTEMA->getFechaInicio();
        $fch_fin =& $SISTEMA->getFechaFin();
        $fch_imp =& $SISTEMA->getFechaImplementacion();
        
        $T_SISTEMA2->addRow(array('Fecha Inicio', 'Fecha Fin', ' Fecha
                    Imp', 'Contacto'), 'titulo');
        $T_SISTEMA2->addRow(array(
                                ($fch_ini) ? $fch_ini->format("%d-%m-%Y") : '--',
                                ($fch_fin) ? $fch_fin->format("%d-%m-%Y") : '--',
                                ($fch_imp) ? $fch_imp->format("%d-%m-%Y") : '--',
                                $SISTEMA->getContacto()
                            )
                           );
        $T_SISTEMA2->updateColAttributes(0, 'width="15%" align="center"');
        $T_SISTEMA2->updateColAttributes(1, 'width="15%" align="center"');
        $T_SISTEMA2->updateColAttributes(2, 'width="15%" align="center"');
    //}}}

    //Obtengo la info necesaria {{{
        $usuarios = SAMURAI_Usuario::_getLoginUsuarios($DB, $id_sist);
        $perfiles = SAMURAI_Perfil::_getIdPerfiles($DB, null, $id_sist);
        $permisos = SAMURAI_Permiso::_getIdPermisos($DB, $id_sist);
    //}}}
        
    //Agrego la informacion {{{
        $T_EST->addRow(array('Estadisticas'), 'cabecera colspan="3"');
        $T_EST->addRow(array('Usuarios', 'Perfiles', 'Permisos'), 'titulo');
        $T_EST->updateColAttributes(0, 'width="33%" align="center"');
        $T_EST->updateColAttributes(1, 'width="33%" align="center"');
        $T_EST->updateColAttributes(2, 'width="33%" align="center"');

        if (count($usuarios)) {
            $LINK_USUARIOS->setContents(count($usuarios));
        }
        else {
            $LINK_USUARIOS->setContents('0');
            $LINK_USUARIOS->setGetVars(array());
            $LINK_USUARIOS->setHref('#');
        }
        if (count($perfiles)) {
            $LINK_PERFILES->setContents(count($perfiles));
        }
        else {
            $LINK_PERFILES->setContents('0');
            $LINK_PERFILES->setGetVars(array());
            $LINK_PERFILES->setHref('#');
        }
        if (count($permisos)) {
            $LINK_PERMISOS->setContents(count($permisos));
        }
        else {
            $LINK_PERMISOS->setContents('0');
            $LINK_PERMISOS->setHref('#');
            $LINK_PERMISOS->setGetVars(array());
        }
        

        
        $T_EST->addRow(array(
                        $LINK_USUARIOS->toHtml(),
                        $LINK_PERFILES->toHtml(),
                        $LINK_PERMISOS->toHtml(),
                       )
                      );
    //}}}
    
    //Actuo segun la subaccion {{{
        if (@$subaccion == 'info_usuarios') {
            $T_SUBACCION =& new MECON_HTML_Tabla();
            
            $usu = SAMURAI_Usuario::getUsuarios($DB, $id_sist);
            $T_SUBACCION->addRow(array('Datos de los Usuarios'), 'colspan="2"
                    cabecera');
            $T_SUBACCION->addRow(array('Login', 'Nombre'), 'titulo');
            foreach ($usu as $u) {
                $T_SUBACCION->addRow(array($u->getLogin(), $u->getNombre()));
            }
            
            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
        }
        elseif (@$subaccion == 'info_perfiles') {
            $T_SUBACCION =& new MECON_HTML_Tabla();
            
            $usu = SAMURAI_Perfil::getPerfiles($DB, '', $id_sist);
            $T_SUBACCION->addRow(array('Datos de los Perfiles'), 'colspan="2"
                    cabecera');
            $T_SUBACCION->addRow(array('Id', 'Descripcion'), 'titulo');
            foreach ($usu as $u) {
                $T_SUBACCION->addRow(array($u->getId(), $u->getDescripcion()));
            }
            
            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
        }
        elseif (@$subaccion == 'info_permisos') {
            $T_SUBACCION =& new MECON_HTML_Tabla();
            
            $T_SUBACCION->addRow(array('Datos de los Permisos'), 'colspan="3"
                    cabecera');
            $T_SUBACCION->addRow(array('Id', 'Descripcion', 'Observacion'), 'titulo');
            foreach ($SISTEMA->getAsociaciones() as $asoc) {
                $T_SUBACCION->addRow(array($asoc['id'], $asoc['desc'],
                            $asoc['obs']));
            }
            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
        }
    //}}}
        
    //Agrego la informacion al marco {{{
        $LINK_VOLVER->setHref('sistemas');
        $LINK_VOLVER->setGetVars(array('accion' => 'info_listado'));
        $MARCO->addBodyContent($T_SISTEMA);
        $MARCO->addBodyContent($T_SISTEMA2);
        $MARCO->addBodyContent($IMG_SEP);
        $MARCO->addBodyContent($T_EST);

        if (@$subaccion) {
            $MARCO->addBodyContent($IMG_SEP);
            $MARCO->addBodyContent($T_SUBACCION);
        }
        
        $MARCO->addTitle('Estadisticas de Sistemas');
        $MARCO->addBodyContent('<BR>');
        $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
        $MARCO->addBodyContent($T_VOLVER);
    //}}}
}
//}}}

//MUESTRO LA INFORMACION {{{
    $MARCO->display();
    exit;
//}}}

?>