$db = IntranetDB::connect();
$sistemas = AI_Sistema::getSistemas($db);
-//$pct = intval(100/COLUMNAS) . '%';
+// Me fijo que sistemas puede ver este usuario.
+require_once 'SAMURAI/Perm.php';
+$perm = new SAMURAI_Perm($_SESSION['usuario'], 0, $db);
+foreach ($sistemas as $i => $s) {
+ // Si no tiene permisos para el sistema, lo saco de la lista.
+ $perm->setSistema($s->sistema);
+ if (!$perm->tiene()) {
+ unset($sistemas[$i]);
+ }
+}
+
$sistema = @array_shift($sistemas);
while ($sistema) {
$row = array();
for ($j = 1; $j <= COLUMNAS; $j++) {
if ($sistema) {
- $row[] = new MECON_HTML_Image(
+ $url = $sistema->link;
+ if ($sistema->tipo == 'embperl') {
+ $url .= '?soy_embperl=1';
+ }
+ $img = new MECON_HTML_Image(
"/sistemas/intranet/images/$sistema->icono",
$sistema->nombre,
array(
- 'title' => $sistema->descripcion,
'border' => 0,
'width' => '46',
'height' => '46',
)
);
+ $row[] = new MECON_HTML_Link(
+ $url,
+ $img,
+ array(),
+ array(
+ 'target' => '_blank',
+ )
+ );
$row[] = ' ';
$link = new MECON_HTML_Link(
- $sistema->link,
+ $url,
$sistema->nombre,
array(),
array(
- 'title' => $sistema->descripcion,
'target' => '_blank',
'class' => 'intranet_sistemas_txt',
)
);
- $html = $link->toHtml();
+ $html = $link->toHtml() . ': ' . $sistema->descripcion;
if ($sistema->link_ayuda) {
$html .= ' ';
$img = new MECON_HTML_Image(
array(),
array(
'target' => '_blank',
- 'class' => 'intranet_sistemas_txt',
)
);
$html .= $link->toHtml();
}
}
$t->addRow(array(' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' '));
- $t->addRow($row);
+ $t->addRow($row, array('class' => 'intranet_sistemas_txt'));
}
-
-
-$m = new HTML_DietMarco('sistemas');
+$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;
- FONT-WEIGHT: normal;
- font-style: normal;
- line-height: normal;
- background-position: left centre;
- text-align: left;
- vertical-align: middle;
+ color: #003366;
+ font-family: Arial, Helvetica, sans-serif;
+ font-size: 10pt;
+ }
+ A.intranet_sistemas_txt {
+ font-weight: bold;
text-decoration: none;
}'
);