Libreria SAMURAI_Perm en Perl casi lista. Falta getObservaciones y verificar que...

[mecon/samurai.git] / sistema / local_lib / prepend.php

diff --git a/sistema/local_lib/prepend.php b/sistema/local_lib/prepend.php
index 7439734b9d1ad680a56d80f4bd54dbc22c7fb53c..279b387b3ba8b0be8c5350b1667c048bf6b4ea26 100644 (file)
--- a/sistema/local_lib/prepend.php
+++ b/sistema/local_lib/prepend.php
@@ -1,8 +1,8 @@
 <?php
 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
 
-require_once 'MECON/general.php';
-prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
+//require_once 'MECON/general.php';
+//prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
 
 require_once 'MECON/Marco.php';
 require_once 'SAMURAI/DB.php';
@@ -10,11 +10,14 @@ require_once 'SAMURAI/Perm.php';
 require_once 'util.php';
 require_once 'SAMURAI/constantes.php';
 
+
+require_once 'MECON/Usuario.php';
+
 session_start();
 
 //CARGO LAS VARIABLES DE SESION INTERNAS {{{
-if (isset($_SESSION['usuario'])) {
-    $_SESSION['samurai']['login'] = $_SESSION['usuario'];
+if (!isset($_SESSION['usuario'])) {
+    header('Location: /sistemas/intranet');
 }
 if (isset($_GET['id_sistema'])) {
     $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
@@ -24,7 +27,7 @@ if (isset($_GET['id_sistema'])) {
 $tmp = new SAMURAI_DB();
 $DB  =& $tmp->connect();
 //Creo el objeto Permiso
-$SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['samurai']['login'], SAMURAI_ID, $DB);
+$SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], SAMURAI_PERM, $DB);
 //Creo el objeto Marco
 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
 ?>