lib_perl/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