Estandarizacion de nombres de clases. Adaptacion de Tabla a MECON_HTML_Tabla.

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

diff --git a/sistema/www/index.php b/sistema/www/index.php
index 28a50cfbdf4360e2870cfbd4fb3dfceb9b0c4d32..49569214d47065aecef10ac753ee752f7c35526a 100644 (file)
--- a/sistema/www/index.php
+++ b/sistema/www/index.php
@@ -18,12 +18,18 @@
 // +----------------------------------------------------------------------+
 //
 // $Id$
-// $Author$
-// $URL$
-// $Date$
-// $Rev$
 // 
-    $MARCO = new Marco ('samurai');
-    $MARCO->addBody('<img src="images/inicio.jpg" border="0">');
+
+//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')
+    }
+//}}}
+    require_once 'HTML/Image.php';
+    
+    $MARCO->addBody(new HTML_Image('images/inicio.jpg'));
+    $MARCO->setEspacios(false);
     $MARCO->display();
 ?>