-<?
- require_once '../local_lib/HTML_DietMarco.php';
- require_once '../local_lib/intranetdb.php';
- require_once 'MECON/HTML/Arbol/ArbolDB.php';
- $m = new HTML_DietMarco('sistemas');
- $m->addTitle('Sistemas');
-
- $db = IntranetDB::connect();
- $dbdata = array(
- 'db' => $db,
- 'tabla' => 'sistema',
- 'id' => 'sistema',
- 'nombre' => 'sistema',
- 'link' => 'link');
- $arbol = new HTML_ArbolDB($dbdata, 'SISTEMAS');
-
- $m->addBodyContent($arbol);
- $m->display();
+<?php
+// vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
+// $Id$
+require_once 'HTML_DietMarco.php';
+if(!isset($_SESSION['usuario']))
+{
+ header('location: login?redirect=sistemas');
+ exit;
+}
+require_once 'intranetdb.php';
+require_once 'HTML/Table.php';
+require_once 'MECON/HTML/Link.php';
+require_once 'MECON/HTML/Image.php';
+require_once 'DB.php';
+require_once 'AI/Sistema.php';
+require_once 'HTML_Mensaje.php';
+
+define('COLUMNAS', 3);
+
+$t = new HTML_Table(
+ array(
+ 'width' => '760',
+ 'cellspacing' => '0',
+ 'cellpadding' => '0',
+ 'border' => '0',
+ )
+);
+
+// Agrego fila con espaciados.
+$img = new MECON_HTML_Image('/MECON/images/blanco', '', array('height' => 1));
+$img->updateAttributes(array('width' => 46));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 4));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 190));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 20));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 46));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 4));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 190));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 20));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 46));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 4));
+$fila[] = $img;
+$img->updateAttributes(array('width' => 190));
+$fila[] = $img;
+$t->addRow($fila);
+
+$sists = AI_Sistema::getSistemas($DB);
+
+// Me fijo que sistemas puede ver este usuario.
+require_once 'SAMURAI/Perm.php';
+require_once 'SAMURAI/constantes.php';
+$perm = new SAMURAI_Perm($_SESSION['usuario'], 0, $DB);
+$samurai = false;
+$sistemas = array();
+foreach ($sists as $id => $s) {
+ // Agrego los sistemas en los que tiene permiso.
+ $perm->setSistema($s->sistema);
+ if ($perm->tiene()) {
+ // Si es SAMURAI hay que ver si ya no lo agregamos antes.
+ if ($id == SAMURAI_PERM) {
+ if (!$samurai) {
+ $samurai = true;
+ $sistemas[] = $sists[$id];
+ }
+ } else { // Si no es SAMURAI lo agregamos incondicionalmente.
+ $sistemas[] = $sists[$id];
+ }
+ }
+ // Si tiene permisos de SAMURAI en un sistema, hay que mostrar un link a
+ // SAMURAI.
+ if (!$samurai and $perm->tiene(SAMURAI_PERM_PERFIL_ALTA,
+ SAMURAI_PERM_PERFIL_BAJA, SAMURAI_PERM_PERFIL_MODIF,
+ SAMURAI_PERM_USUARIO_ALTA, SAMURAI_PERM_USUARIO_BAJA,
+ SAMURAI_PERM_USUARIO_MODIF)) {
+ $samurai = true;
+ if (@$sists[SAMURAI_PERM]) {
+ $sistemas[] = $sists[SAMURAI_PERM];
+ }
+ }
+}
+unset($sists);
+unset($samurai);
+
+if (!$sistemas) {
+ $t = new HTML_Mensaje('denegado',
+ 'No tiene permisos para usar ningĂșn sistema', 370);
+}
+$sistema = @array_shift($sistemas);
+while ($sistema) {
+ $row = array();
+ for ($j = 1; $j <= COLUMNAS; $j++) {
+ if ($sistema) {
+ $url = $sistema->link;
+ if ($sistema->tipo == 'embperl') {
+ $url = '/Php2Embperl_Session?redirect=' . urlencode($url);
+ }
+ $img = new MECON_HTML_Image(
+ "/sistemas/intranet/images/$sistema->icono",
+ $sistema->nombre,
+ array(
+ 'border' => 0,
+ 'width' => '46',
+ 'height' => '46',
+ )
+ );
+ $row[] = new MECON_HTML_Link(
+ $url,
+ $img,
+ array(),
+ array(
+ 'OnClick' =>
+ "javascript:window.open('$url','s{$sistema->sistema}',"
+ . "'width=790,height=550,scrollbars=yes,resizable=yes');return false;",
+ 'target' => '_blank',
+ )
+ );
+ $row[] = ' ';
+ $link = new MECON_HTML_Link(
+ $url,
+ $sistema->nombre,
+ array(),
+ array(
+ 'OnClick' =>
+ "javascript:window.open('$url','s{$sistema->sistema}',"
+ . "'width=790,height=550,scrollbars=yes,resizable=yes');return false;",
+ 'target' => '_blank',
+ 'class' => 'intranet_sistemas_txt',
+ )
+ );
+ $html = $link->toHtml() . ': ' . $sistema->descripcion;
+ if ($sistema->link_ayuda) {
+ $html .= ' ';
+ $img = new MECON_HTML_Image(
+ '/sistemas/intranet/images/sistemas_ayuda',
+ '(?)'
+ );
+ $link = new MECON_HTML_Link(
+ $sistema->link_ayuda,
+ $img,
+ array(),
+ array(
+ 'OnClick' =>
+ "javascript:window.open('{$sistema->link_ayuda}',"
+ . "'sa{$sistema->sistema}',"
+ . "'width=790,height=550,scrollbars=yes,resizable=yes');return false;",
+ 'target' => '_blank',
+ )
+ );
+ $html .= $link->toHtml();
+ }
+ $row[] = $html;
+ $sistema = @array_shift($sistemas);
+ } else {
+ $row[] = ' ';
+ $row[] = ' ';
+ $row[] = ' ';
+ }
+ if ($j % (COLUMNAS)) {
+ $row[] = ' ';
+ }
+ }
+ $t->addRow(array(' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' '));
+ $t->addRow($row, array('class' => 'intranet_sistemas_txt'));
+}
+
+$m = new HTML_DietMarco('sistemas', 'Sistemas');
+//$m->addTitle('Sistemas');
+$m->addStyleDeclaration('
+ .intranet_sistemas_txt {
+ color: #003366;
+ font-family: Arial, Helvetica, sans-serif;
+ font-size: 10pt;
+ }
+ A.intranet_sistemas_txt {
+ font-weight: bold;
+ text-decoration: none;
+ }'
+);
+$m->addBodyContent($t);
+$m->display();
+
?>