]> git.llucax.com Git - mecon/meconlib.git/blob - samurai_lib/perl/Samurai/Perm/sql_Conf.epl
01ec471bb3754cb58efb21e54e8b7c15cb63d219
[mecon/meconlib.git] / samurai_lib / perl / Samurai / Perm / sql_Conf.epl
1 [#
2     $Id$
3    
4     $URL$
5     $Rev$
6     $Date$
7     $Author$    
8 #]
9
10 [!
11     $CLEANUP{'sql_Conf'} = 0;
12     $sql_Conf = {
13             'obtener_p_p_completo'    => 'SELECT DISTINCT pps.id_permiso AS id_permiso 
14                                           FROM perfil_sist_usuario AS psu , perm_perfil_sist AS pps 
15                                           WHERE psu.id_sistema = ? AND login = ? AND psu.id_perfil = pps.id_perfil'
16     };
17 !]
18 [-
19     $ret = shift;
20     $ret->{SA_Perm}->{sql_Conf} = $sql_Conf;
21 -]
22