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

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

diff --git a/lib/SAMURAI/Permiso/consultas.ini b/lib/SAMURAI/Permiso/consultas.ini
index 5000ab2391ca7b6182b1081da74d6fcaf42e8e09..493ce74923901f21d14c56f57eeb6e7431cb7db4 100644 (file)
--- a/lib/SAMURAI/Permiso/consultas.ini
+++ b/lib/SAMURAI/Permiso/consultas.ini
@@ -1,8 +1,14 @@
 ; Configuración de la base de datos.
 ; $Id$
 
 ; Configuración de la base de datos.
 ; $Id$
 

-obtener_datos_permiso   = "SELECT id_permiso, desc_permiso, responsable FROM permiso " 
-obtener_datos_permiso2  = "WHERE id_permiso = ? "
-borrar_permiso          = "DELETE FROM permiso "
-verificar_asociaciones1 = "SELECT IF(0,0,count(*)) as cuenta FROM perm_sist "
-verificar_asociaciones2 = "SELECT IF(0,0,count(*)) as cuenta FROM perm_perfil_sist "
+
+
+obtener_datos_permiso   = "SELECT p.id_permiso, p.desc_permiso, p.responsable FROM samurai.permiso as p " 
+obtener_datos_permiso2  = "WHERE p.id_permiso = ? "
+obtener_datos_permiso5  = " ORDER BY p.desc_permiso "
+obtener_datos_permiso3  = ",samurai.perm_sist as ps WHERE ps.id_sistema = ? AND ps.id_permiso = p.id_permiso "
+obtener_datos_permiso4  = ",samurai.perm_sist as ps WHERE ps.id_permiso = p.id_permiso "
+borrar_permiso          = "DELETE FROM samurai.permiso WHERE id_permiso = ?"
+verificar_asociaciones1 = "SELECT IF(0,0,count(*)) as cuenta FROM samurai.perm_sist as p "
+verificar_asociaciones2 = "SELECT IF(0,0,count(*)) as cuenta FROM samurai.perm_perfil_sist as p "
+