Se agrega la seccion nueva para hacer la carga de secciones ocultas.

[mecon/ai.git] / sistema / www / index.php

diff --git a/sistema/www/index.php b/sistema/www/index.php
index 438f132adc73c0dc88e1b1fc5f41b498c08a1f30..b41957a881647bb1b10ab397522cad40e6436ce6 100644 (file)
--- a/sistema/www/index.php
+++ b/sistema/www/index.php
@@ -27,9 +27,17 @@
 // $Id$
 //
 
-require_once 'MECON/HTML/Error.php';
 require_once 'MECON/general.php';
 prepend_include_path('/var/www/sistemas/ai/sistema/local_lib');
+require_once 'MECON/HTML/Error.php';
+require_once 'permisos.php';
+
+// Si no está logueado, se redirige a la Intranet. {{{
+if (!@$_SESSION['usuario']) {
+    header('Location: /sistemas/intranet/login?redirect='
+        . urlencode($_SERVER['REQUEST_URI']));
+}
+// }}}
 
 // Debug. {{{
 require_once 'PEAR.php';
@@ -37,36 +45,50 @@ require_once 'PEAR.php';
 PEAR::setErrorHandling(PEAR_ERROR_RETURN);
 // }}}
 
+// Creo la base de datos. {{{
+require_once 'AI/DB.php';
+$db =& AI_DB::connect('../conf/DB.ini');
+if (DB::isError($db)) {
+    die($db->getMessage());
+}
+// }}}
+
+// Creo el objeto de permisos y chequeo que tenga al menos un permiso para seguir. {{{
+require_once 'SAMURAI/Perm.php';
+$perm = new SAMURAI_Perm($_SESSION['usuario'], AI_PERM, $db);
+$perm->chequear();
+// }}}
+
 // Creo el Marco. {{{
 require_once 'MECON/Marco.php';
-$marco = new Marco('../conf/Marco.php');
+$marco = new MECON_Marco('../conf/Marco.php', $perm);
 // }}}
 
-// Averiguo si estoy administrando algún tipo de objeto. XXX - desafear {{{
+// Averiguo si estoy administrando algún tipo de objeto. {{{
 $tipo = null;
 if (@$_SERVER['PATH_INFO']) {
     $tmp = ltrim($_SERVER['PATH_INFO'], '/');
     if ($tmp == 'grupo') {
         $tipo    = $tmp;
-        $clase   = "AI_GrupoSecciones";
+        $clase   = 'AI_GrupoSecciones';
         $require = 'AI/GrupoSecciones.php';
         $tabla   = 'grupo_secciones';
-        $nombre  = "grupo de secciones";
-        $arbol   = 'NOTICIAS';
+        $nombre  = 'grupo de secciones';
+        $perm->chequear(AI_PERM_NOTICIAS);
     } elseif ($tmp == 'servicio') {
         $tipo    = $tmp;
         $clase   = 'AI_Servicio';
         $require = 'AI/Servicio.php';
         $tabla   = $tipo;
         $nombre  = $tipo;
-        $arbol   = 'SERVICIOS';
+        $perm->chequear(AI_PERM_SERVICIOS);
     } elseif ($tmp == 'sistema') {
         $tipo    = $tmp;
         $clase   = 'AI_Sistema';
         $require = 'AI/Sistema.php';
         $tabla   = $tipo;
         $nombre  = $tipo;
-        $arbol   = 'SISTEMAS';
+        $perm->chequear(AI_PERM_SISTEMAS);
     } else { // No hay un objeto válido para administrar.
         header('Location: '.$_SERVER['SCRIPT_NAME']);
     }
@@ -124,52 +146,16 @@ if ($tipo) {
     }
     // }}}
 
-    // Creo la base de datos. {{{
-    require_once 'AI/DB.php';
-    $db =& AI_DB::connect('../conf/DB.ini');
-    if (DB::isError($db)) {
-        die($db->getMessage());
-    }
-    // }}}
-
-    // Creo el árbol con el tipo de objeto que manejo y lo agrego a la página. {{{
-    require_once 'MECON/HTML/Arbol/ArbolDB.php';
-    $dbdata = array(
-        'db'            => &$db,
-        'tabla'         => $tabla,
-        'id'            => $tipo,
-        'nombre'        => 'nombre',
-        'order'         => 'asc',
-    );
-    // Activo el id del objeto que estamos modificando.
-    if ($accion & (AI_BAJA | AI_MODIF)) {
-        $dbdata['id_activo'] = $obj->$tipo;
-    }
-    if ($tipo == 'grupo' or $tipo == 'servicio') {
-        $dbdata['id_padre'] = $tipo . '_padre';
-    } elseif ($tipo == 'sistema') { // FIXME - horrible!!!
-        $dbdata =
-            array(
-                'tabla'         => "intranet.$tabla as A, samurai.sistema as S",
-                'id'            => "A.$tipo",
-                'nombre'        => 'S.nombre_sistema',
-                'where'         => 'S.id_sistema = A.sistema AND S.estado = 1',
-            )
-            + $dbdata;
-    }
-    $arbol = new HTML_ArbolDB($dbdata, $arbol, $tipo.'?accion='.AI_MODIF.'&id=');
-    // }}}
-
     // Inicio el formulario, cargando datos de ser necesario. {{{
     if ($accion & (AI_BAJA | AI_MODIF)) {
         $err =& $obj->cargar($db);
         if (PEAR::isError($err)) {
             die($err->getMessage());
         }
-        $form->iniciar($obj, $accion, $arbol, $db);
+        $form->iniciar($obj, $accion, $db);
     } else {
         $accion = AI_ALTA;
-        $form->iniciar($obj, $accion, $arbol, $db);
+        $form->iniciar($obj, $accion, $db);
     }
     // }}}
 
@@ -243,8 +229,16 @@ if ($tipo) {
     }
     // }}}
 
-    // Agrego el menu y formulario a la página. {{{
+    // Creo el árbol con el tipo de objeto que manejo y lo agrego a la página. {{{
+    require_once 'AI/Arbol.php';
+    $arbol = new AI_Arbol($obj, $db, false);
+    // }}}
+
+    // Agrego el menu, link para nuevo y formulario a la página. {{{
     $marco->addMenuVertical($arbol);
+    if ($accion & ~AI_ALTA) {
+        $form->renderer->tabla->addLink('nuevo', $tipo);
+    }
     $marco->addBody($form);
     // }}}
 
@@ -252,9 +246,9 @@ if ($tipo) {
 
 // No se está editando nada, agrego la imágen de bienvenida a la página. {{{
 } else {
-    require_once 'HTML/Image.php';
+    require_once 'MECON/HTML/Image.php';
     $marco->setEspacios(false);
-    $marco->addBody(new HTML_Image('images/home', 'Adminitrador de Intranet'));
+    $marco->addBody(new MECON_HTML_Image('images/home', 'Adminitrador de Intranet'));
 }
 // }}}