+if (PEAR::isError($DB)) {
+ $ERROR = new MECON_HTML_Error($DB->getMessage());
+ echo $ERROR->toHtml();
+ exit;
+}
+
+
+//CARGO LAS VARIABLES DE SESION INTERNAS {{{
+if (!isset($_SESSION['usuario'])) {
+ header('Location: /sistemas/intranet/login?redirect='.$_SERVER['REQUEST_URI']);
+}
+if (isset($_GET['id_sistema'])) {
+ $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
+}
+elseif (($_SERVER['REQUEST_URI'] != "/sistemas/samurai/sel-sistema" &&
+ $_SERVER['REQUEST_URI'] !=
+ "/sistemas/samurai/sel-sistema?redirect=index")&&
+ !@$_SESSION['samurai']['id_sistema']) {
+ header('Location: /sistemas/samurai/sel-sistema?redirect=index');
+}
+if (@$_SESSION['samurai']['id_sistema']) {
+ //Creo el objeto Permiso
+ $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'],
+ $_SESSION['samurai']['id_sistema'], $DB);
+}
+//}}}