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

[mecon/samurai.git] / lib / SAMURAI / Sistema.php

diff --git a/lib/SAMURAI/Sistema.php b/lib/SAMURAI/Sistema.php
index f82f36fe7a1b03ce7a393d3779404f69ce6d70c0..fe7eb7549fb2d352e230a528af9ea69f64545ee6 100644 (file)
--- a/lib/SAMURAI/Sistema.php
+++ b/lib/SAMURAI/Sistema.php
@@ -1003,6 +1003,52 @@ class SAMURAI_Sistema {
     }
     // -X2C
 
+    // +X2C Operation 397
+    /**
+     * Devuelve un array asociativo en donde la clave es el identificador y el valor es el nombre del sistema. Solo devuelve aquellos sistemas en los cuales el usuario tiene permisos.
+     *
+     * @param  DB &$DB Conexion a la base de datos
+     *
+     * @return array()
+     * @access public
+     */
+    function getArraySistemasSeleccionar(&$DB) // ~X2C
+    {
+        $rta = array();
+        $sql = parse_ini_file(dirname(__FILE__) . '/Sistema/consultas.ini', true);
+        //Verifico si tiene permiso developer en samurai
+        $consulta = $sql['sistemas_seleccionar2'];
+        $dbh = $DB->prepare($consulta);
+        $res = $DB->execute($dbh, array(SAMURAI_PERM, $_SESSION['usuario'],
+                    SAMURAI_PERM_DEVELOPER));
+        $re = $res->fetchrow(DB_FETCHMODE_ASSOC);
+        if ($re['cuenta']) {
+            $consulta = $sql['obtener_datos_sistema']; 
+            $consulta.= $sql['obtener_datos_sistema3'];
+            $consulta.= $sql['obtener_datos_sistema4'];
+            $dbh = $DB->prepare($consulta);
+            $res = $DB->execute($dbh);
+            while ($re = $res->fetchrow(DB_FETCHMODE_ASSOC)) {
+                $rta[$re['id_sistema']] = $re['nombre_sistema'];
+            }        
+            $res->free();
+            return $rta;
+        }
+        //Si no tiene permiso developer en samurai le muestro solo aquellos
+        //sistemas en los cuales puede trabajar
+        $consulta = $sql['sistemas_seleccionar'];
+        $dbh = $DB->prepare($consulta);
+        $res = $DB->execute($dbh, array($_SESSION['usuario']));
+        while ($re = $res->fetchrow(DB_FETCHMODE_ASSOC)) {
+            $rta[$re['id_sistema']] = $re['nombre_sistema'];
+        }        
+        $res->free();
+        
+        return $rta;
+
+    }
+    // -X2C
+
 } // -X2C Class :SAMURAI_Sistema
 
-?>
\ No newline at end of file
+?>