From 9e2560d8e755d4e3441724d189c89f4c67f3d691 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mart=C3=ADn=20Marrese?= <marrese@gmail.com>
Date: Tue, 18 Nov 2003 18:31:48 +0000
Subject: [PATCH] Manazar agrego la siguiente funcionalidad a
 lib_perl/Perm.epl: Ahora se pueden asignar y desasignar perfiles a un usuario
 con esta libreria

---
 lib_perl/Perm.epl             | 42 +++++++++++++++++++++++++++++++++++
 sistema/local_lib/prepend.php |  4 ++--
 2 files changed, 44 insertions(+), 2 deletions(-)

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';
-- 
2.43.0