X-Git-Url: https://git.llucax.com/mecon/samurai.git/blobdiff_plain/92934f51294f84ac1be95a0c57ce7a77f1f221d1..928c7a74b6d6cab6336e148769573faf96a43a1c:/lib/SAMURAI/Perm.php?ds=inline

diff --git a/lib/SAMURAI/Perm.php b/lib/SAMURAI/Perm.php
index 67f38c8..e4923f3 100644
--- 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