BugFixes

[mecon/samurai.git] / lib_perl / Perm.epl

diff --git a/lib_perl/Perm.epl b/lib_perl/Perm.epl
index fda3381013993c35756e56d2e9ade0cb3e49e3f2..99e8af998ffc5a6af0fcf53bfe98cfa41b102b8a 100644 (file)
--- 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;