]> git.llucax.com Git - mecon/samurai.git/blobdiff - sistema/www/index.php
Acomodo para que funcione con los nuevos cambios en QuickForm
[mecon/samurai.git] / sistema / www / index.php
index 49569214d47065aecef10ac753ee752f7c35526a..aed8f73cfc46aedd86d5367d39760b1caa252c45 100644 (file)
@@ -1,5 +1,5 @@
 <?php
 <?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
 // +----------------------------------------------------------------------+
 // | PHP Version 4                                                        |
 // +----------------------------------------------------------------------+
 // +----------------------------------------------------------------------+
 // | PHP Version 4                                                        |
 // +----------------------------------------------------------------------+
 // 
 
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
 // 
 
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
-    if (!$SAMURAI_PERM->tiene(SAMURAI_BAJA_USUARIO, SAMURAI_MODI_USUARIO, SAMURAI_ALTA_USUARIO,
-                              SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL,SAMURAI_TIPO_PERFIL,
-                              SAMURAI_DEVELOPER)) {
-//        header('Location: error')
+$SAMURAI_PERM->setSistema(SAMURAI_PERM);
+if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
+    $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
+    $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);
+}
+$MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
+//}}}
+
+//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 'HTML/Image.php';
-    
-    $MARCO->addBody(new HTML_Image('images/inicio.jpg'));
+    require_once 'MECON/HTML/Image.php';
+    $MARCO->addBody(new MECON_HTML_Image('images/inicio.jpg'));
     $MARCO->setEspacios(false);
     $MARCO->display();
 ?>
     $MARCO->setEspacios(false);
     $MARCO->display();
 ?>