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 534b818dfdfbcfecac036abec37eec6b829f3d32..279b387b3ba8b0be8c5350b1667c048bf6b4ea26 100644 (file)
--- a/sistema/local_lib/prepend.php
+++ b/sistema/local_lib/prepend.php
@@ -2,23 +2,32 @@
 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
 
 //require_once 'MECON/general.php';
-//prepend_include_path('/home/mmarrese/public_html/meconlib/tronco/lib/');
+//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 '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['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['usuario'], SAMURAI_PERM, $DB);
+//Creo el objeto Marco
+$MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
 ?>