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 4ee9c833c70e6d7837c94a40619e99d33c16c7f2..279b387b3ba8b0be8c5350b1667c048bf6b4ea26 100644 (file)
--- a/sistema/local_lib/prepend.php
+++ b/sistema/local_lib/prepend.php
@@ -1,36 +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/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';
 
-session_start();
 
-if (isset($_GET['login'])) {
-    $_SESSION['samurai']['login'] = $_GET{'login'};
-}
+require_once 'MECON/Usuario.php';
+
+session_start();
 
-if (isset($_SESSION['usuario'])) {
-    $_SESSION['samurai']['login'] = $_SESSION['usuario'];
+//CARGO LAS VARIABLES DE SESION INTERNAS {{{
+if (!isset($_SESSION['usuario'])) {
+    header('Location: /sistemas/intranet');
 }
-if (!isset($_SESSION['samurai']['id_sistema']) && isset($_GET['id_sistema'])) {
+if (isset($_GET['id_sistema'])) {
     $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
 }
-if (!isset($_SESSION['samurai']['login']) && isset($_GET['login'])) {
-    $_SESSION['samurai']['login'] = $_GET['login'];
-}
-
+//}}}
 //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'], 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);
 ?>