Agrego a la seccion perfiles la funcionalidad de tabladb.

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

diff --git a/lib/SAMURAI/Perm.php b/lib/SAMURAI/Perm.php
index 67f38c8a4b9c0a80ed027aa0850cc03087cc9248..e4923f357183d0c8216d0f3751d28419594a1697 100644 (file)
--- a/lib/SAMURAI/Perm.php
+++ b/lib/SAMURAI/Perm.php
@@ -87,6 +87,8 @@ class SAMURAI_Perm {
     // +X2C Operation 380
     /**
      * Constructor.
+Para la libreria de perl: 
+@see perm.epl
      *
      * @param  int $login Login del usuario para el cual obtener los permisos.
      * @param  int $sistema Sistema con el cual se va a trabajar.
@@ -202,6 +204,41 @@ Si no se pasa ningun parametro ($perm->tiene()), devuelve true si tiene un permi
     }
     // -X2C
 
+    /**
+     * Obtiene los datos de los usuarios que tienen el permiso indicado.
+     *
+     * @param  db  $db Base de datos.
+     * @param  int $sistema Identificador del sistema al que pertenece el permiso.
+     * @param  int $perm Identificador del permiso.
+     * @param  string $obs Observación de la asignación del permiso.
+     *
+     * @return array
+     * @access public
+     * @static
+     */
+    function getUsuariosPermiso (&$db, $sistema, $perm, $obs = null)
+    {
+       $sql = "SELECT  PSU.login, 
+                       U.nombre, 
+                       LEFT (P.desc_perfil, LOCATE(' ', P.desc_perfil)) desc_perfil
+               FROM    samurai.perfil_sist_usuario AS PSU, 
+                       usuario.Usuario AS U, 
+                       samurai.perm_perfil_sist AS PPS, 
+                       samurai.perfil AS P 
+               WHERE   U.login = PSU.login AND 
+                       PSU.id_perfil = PPS.id_perfil AND 
+                       PPS.id_perfil = P.id_perfil AND 
+                       PSU.id_sistema = $sistema AND 
+                       PPS.id_permiso = $perm ";
+       
+       $sql.= (is_null($obs))?
+                       " ORDER BY U.nombre": 
+                       " AND PPS.observaciones = '". $obs. "' ORDER BY U.nombre";
+
+       return  $db->getAll($sql);
+
+    }
+
 } // -X2C Class :SAMURAI_Perm
 
 ?>
\ No newline at end of file