Libreria de Perl terminada.

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

diff --git a/sistema/www/index.php b/sistema/www/index.php
index 2f746705d4a42510b40f490e55cc75a28794892b..6fdca56b519e6f379868c4cbea06b6640495e412 100644 (file)
--- a/sistema/www/index.php
+++ b/sistema/www/index.php
@@ -1,5 +1,5 @@
 <?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
 // +----------------------------------------------------------------------+
 // | PHP Version 4                                                        |
 // +----------------------------------------------------------------------+
@@ -19,9 +19,24 @@
 //
 // $Id$
 // 
-    require_once 'HTML/Image.php';
-    
-    $MARCO->addBody(new HTML_Image('images/inicio.jpg'));
+
+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$SAMURAI_PERM->chequear(SAMURAI_PERM_USUARIO_BAJA, SAMURAI_PERM_USUARIO_MODIF, SAMURAI_PERM_USUARIO_ALTA,
+                        SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF,SAMURAI_PERM_PERFIL_TIPO,
+                        SAMURAI_PERM_DEVELOPER);
+//}}}
+//VERIFICO SI SE PASO ALGUNA ACCION {{{
+    if (isset($_GET['accion'])) {
+        switch ($_GET['accion']) {
+           case 'usuarios': header('Location:usuarios/usuarios');
+                             break;
+           case 'perfiles': header('Location:perfiles/perfiles');
+                             break;
+        }
+    }
+//}}}
+    require_once 'MECON/HTML/Image.php';
+    $MARCO->addBody(new MECON_HTML_Image('images/inicio.jpg'));
     $MARCO->setEspacios(false);
     $MARCO->display();
 ?>