// +----------------------------------------------------------------------+
//
// $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 el id del sistema {{{
$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);
//}}}
//LISTADO {{{
if (@!$id_sist) {
//Creo los objetos necesarios {{{
$T_SISTEMAS =& new MECON_HTML_Tabla();
$IMG =& new MECON_HTML_Image('/MECON/images/general_ir4.gif');
$LINK =& new MECON_HTML_Link('sistemas-activar');
//}}}
//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 Inactivos'), 'cabecera
colspan="4"');
$T_SISTEMAS->addRow(array('Id', 'Nombre', 'Descripcion', 'Activar'),
'titulo');
//Agrego la info de los sistemas
foreach ($sistemas as $sistema) {
if (!$sistema->getEstado()) {
$LINK->setContents($IMG);
$LINK->setGetVars(
array(
'id_sist' => $sistema->getId(),
)
);
$row = array ( $sistema->getId(),
$sistema->getNombre(),
$sistema->getDescripcion(),
$LINK->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('
');
$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('
');
$T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
$MARCO->addBodyContent($T_VOLVER);
//}}}
}
//}}}
//MUESTRO LA INFORMACION {{{
$MARCO->display();
exit;
//}}}
?>