$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) {
+ $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,
)
);
$row[] = new MECON_HTML_Link(
- $sistema->link,
+ $url,
$img,
array(),
array(
+ 'OnClick' =>
+ "javascript:window.open('$url','s{$sistema->sistema}',"
+ . "'width=800,height=600,scrollbars=yes');return false;",
'target' => '_blank',
)
);
$row[] = ' ';
$link = new MECON_HTML_Link(
- $sistema->link,
+ $url,
$sistema->nombre,
array(),
array(
+ 'OnClick' =>
+ "javascript:window.open('$url','s{$sistema->sistema}',"
+ . "'width=800,height=600,scrollbars=yes');return false;",
'target' => '_blank',
'class' => 'intranet_sistemas_txt',
)
$img,
array(),
array(
+ 'OnClick' =>
+ "javascript:window.open('{$sistema->link_ayuda}',"
+ . "'sa{$sistema->sistema}',"
+ . "'width=800,height=600,scrollbars=yes');return false;",
'target' => '_blank',
)
);