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 70cac6eb94b923e4feda992fdf69a42044bdd271..279b387b3ba8b0be8c5350b1667c048bf6b4ea26 100644 (file)
--- a/sistema/local_lib/prepend.php
+++ b/sistema/local_lib/prepend.php
@@ -1,34 +1,33 @@
 <?php
 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
 
-require_once 'MECON/general.php';
-prepend_include_path('/home/mmarrese/public_html/meconlib/tronco/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';
 require_once 'SAMURAI/Perm.php';
 require_once 'util.php';
-require_once 'constantes.php';
+require_once 'SAMURAI/constantes.php';
+
+
+require_once 'MECON/Usuario.php';
 
 session_start();
 
-if (!isset($_SESSION['samurai']['id_sistema']) && isset($_GET['id_sistema'])) {
-    $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
+//CARGO LAS VARIABLES DE SESION INTERNAS {{{
+if (!isset($_SESSION['usuario'])) {
+    header('Location: /sistemas/intranet');
 }
-if (!isset($_SESSION['samurai']['login']) && isset($_GET['login'])) {
-    $_SESSION['samurai']['login'] = $_GET['login'];
-}
-if (isset($_GET['l'])) {
-    $_SESSION['samurai']['login_perm'] = $_GET['l'];
-}
-elseif (!isset($_SESSION['samurai']['login_perm'])) {
-    $_SESSION['samurai']['login_perm'] = 'mmarre@mecon';
+if (isset($_GET['id_sistema'])) {
+    $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
 }
+//}}}
 //Realizo la conexion con la base de datos
 $tmp = new SAMURAI_DB();
 $DB  =& $tmp->connect();
 //Creo el objeto Permiso
-$SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['samurai']['login_perm'], 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);
 ?>