Manazar agrego la siguiente funcionalidad a lib_perl/Perm.epl: Ahora se pueden asigna...

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;

diff --git a/sistema/local_lib/prepend.php b/sistema/local_lib/prepend.php
index 34650a8dd0f2c010768f22057c5e38d964483313..8152b0adc53488d6f3eb9f780a51a0d462ec2f43 100644 (file)
--- 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';