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

[mecon/samurai.git] / lib / SAMURAI / Usuario / consultas.ini

diff --git a/lib/SAMURAI/Usuario/consultas.ini b/lib/SAMURAI/Usuario/consultas.ini
index 77acd37295b0e850d76fddce4081d0dedad954f6..c21cc121fb06b41d8f8fe4d926f9edf4503650c4 100644 (file)
--- a/lib/SAMURAI/Usuario/consultas.ini
+++ b/lib/SAMURAI/Usuario/consultas.ini
@@ -10,6 +10,8 @@ obtener_datos_usuario4 = " ORDER BY login"
 
 obtener_perfiles_usuario = " SELECT id_perfil FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"
 
 
 obtener_perfiles_usuario = " SELECT id_perfil FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"
 

-verificar_login        = " SELECT count(*) as cuenta FROM samurai.usuario WHERE login = ?"

 verificar_login2       = " SELECT login FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"
 borrar                 = " DELETE FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"
 verificar_login2       = " SELECT login FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"
 borrar                 = " DELETE FROM samurai.perfil_sist_usuario WHERE login = ? AND id_sistema = ?"

+
+obtener_informacion = "  SELECT psu.login AS login, psu.id_sistema AS id_sistema, sist.nombre_sistema AS nombre_sistema, psu.id_perfil AS id_perfil, perf.desc_perfil AS desc_perfil, pps.id_permiso AS id_permiso, perm.desc_permiso AS desc_permiso, pps.observaciones AS observaciones FROM samurai.permiso AS perm, samurai.perfil AS perf, samurai.sistema AS sist, samurai.perfil_sist_usuario AS psu, samurai.perm_perfil_sist AS pps WHERE psu.id_perfil = pps.id_perfil AND  psu.id_sistema = pps.id_sistema AND psu.id_sistema = sist.id_sistema AND  psu.id_perfil = perf.id_perfil AND pps.id_permiso = perm.id_permiso AND  psu.login = ? ORDER BY sist.nombre_sistema, perf.desc_perfil, perm.desc_permiso"
+