From: Martín Marrese <marrese@gmail.com>
Date: Tue, 18 Nov 2003 18:31:48 +0000 (+0000)
Subject: Manazar agrego la siguiente funcionalidad a lib_perl/Perm.epl: Ahora se pueden asigna... 
X-Git-Tag: svn_import~53
X-Git-Url: https://git.llucax.com/mecon/samurai.git/commitdiff_plain/9e2560d8e755d4e3441724d189c89f4c67f3d691

Manazar agrego la siguiente funcionalidad a lib_perl/Perm.epl: Ahora se pueden asignar y desasignar perfiles a un usuario con esta libreria
---

diff --git a/lib_perl/Perm.epl b/lib_perl/Perm.epl
index fda3381..99e8af9 100644
--- a/lib_perl/Perm.epl
+++ b/lib_perl/Perm.epl
@@ -30,6 +30,9 @@
 [!
 $CLEANUP{'SAMURAI_Perm'} = 0;
 
+use Data::Dumper;
+
+
 # Simil Constructor.
 #
 # @param  string $login Login del usuario para el cual obtener los permisos.
@@ -161,6 +164,45 @@ $SAMURAI_Perm->{getObservaciones} = sub
         return $udat{SAMURAI_Perm_vars}{observaciones};
     }
 };
+
+# MANAZAR: Funcion para dar un perfil a un usuario en un sistema
+#
+# @return void
+$SAMURAI_Perm->{asignarPerfil} = sub
+{
+    $id_perfil = @_[0];
+	my $login=$udat{SAMURAI_Perm_vars}{login};
+	my $id_sistema=$udat{SAMURAI_Perm_vars}{id_sistema};
+	my $resp=$udat{'user'};
+	my $sql = "REPLACE INTO perfil_sist_usuario (login,id_perfil,id_sistema,responsable) VALUES ('$login',$id_perfil,$id_sistema,'$resp')";
+	##Conexion con la base
+	#TODO Cambiar los parametros de conexion segun corresponda.
+	my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+	my $result=$dbh->do($sql);
+    #Desconexion con la base
+	$dbh->disconnect;  
+};
+
+# MANAZAR: Funcion para quitar perfil a un usuario en un sistema
+#
+# @return void
+$SAMURAI_Perm->{quitarPerfil} = sub
+{
+    $id_perfil = @_[0];
+	my $login=$udat{SAMURAI_Perm_vars}{login};
+	my $id_sistema=$udat{SAMURAI_Perm_vars}{id_sistema};
+	my $resp=$udat{'user'};
+	my $sql = "DELETE FROM perfil_sist_usuario where (login='$login') AND (id_perfil=$id_perfil) AND (id_sistema=$id_sistema)";
+	##Conexion con la base
+	#TODO Cambiar los parametros de conexion segun corresponda.
+	my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+	my $result=$dbh->do($sql);
+    #Desconexion con la base
+	$dbh->disconnect;  
+};
+
+
+
 !]
 [-
     $ret = shift;
diff --git a/sistema/local_lib/prepend.php b/sistema/local_lib/prepend.php
index 34650a8..8152b0a 100644
--- a/sistema/local_lib/prepend.php
+++ b/sistema/local_lib/prepend.php
@@ -1,8 +1,8 @@
 <?php
 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
 
-require_once 'MECON/general.php';
-prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
+//require_once 'MECON/general.php';
+//prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
 
 require_once 'MECON/Marco.php';
 require_once 'SAMURAI/DB.php';