From 09dba8cedfb5642bb1d85935dff4dec2773c0b9e Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Tue, 3 Feb 2004 22:14:19 +0000
Subject: [PATCH] BugFix en la interfaz, nada funcional.

---
 lib/SAMURAI/DB/consultas.ini      | 2 +-
 lib_perl/Perm.epl                 | 8 ++++----
 sistema/www/perfiles/perfiles.php | 5 ++---
 sistema/www/usuarios/usuarios.php | 7 +++----
 4 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/lib/SAMURAI/DB/consultas.ini b/lib/SAMURAI/DB/consultas.ini
index 2822624..5a64d10 100644
--- a/lib/SAMURAI/DB/consultas.ini
+++ b/lib/SAMURAI/DB/consultas.ini
@@ -1,6 +1,6 @@
 ; Configuración de la base de datos.
 ; $Id$
-dsn = "mysql://samurai:25fdd50c0e4d68@unix(/var/run/mysqld/mysqld.sock)/samurai"
+dsn = "mysql://intranet:intranet@unix(/var/run/mysqld/mysqld.sock)/samurai"
 
 [opciones]
 persistent = true
diff --git a/lib_perl/Perm.epl b/lib_perl/Perm.epl
index 346cc67..1dfdacf 100644
--- a/lib_perl/Perm.epl
+++ b/lib_perl/Perm.epl
@@ -47,7 +47,7 @@ $SAMURAI_Perm->{new} = sub
     ##Conexion con la base
     #TODO Cambiar los parametros de conexion segun corresponda.
     
-    my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
+    my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"intranet","intranet");
     ##Obtengo los permisos de la base        
     $re = $dbh->prepare($sql);
     $re->execute($udat{SAMURAI_Perm_vars}{login});        
@@ -152,7 +152,7 @@ $SAMURAI_Perm->{getObservaciones} = sub
         $udat{SAMURAI_Perm_vars}{observaciones} = '';
         $sql = 'SELECT ps.observaciones AS observaciones FROM samurai.perm_sist AS ps WHERE ps.id_permiso = ? AND ps.id_sistema = ?';
         #TODO cambiar los parametros de conexion segun corresponda
-        my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
+        my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"intranet","intranet");
         $re = $dbh->prepare($sql);
         $re->execute($perm, $sistema);        
         while ($r = $re->fetchrow_hashref()) {
@@ -178,7 +178,7 @@ $SAMURAI_Perm->{asignarPerfil} = sub
 	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=localhost',"samurai","25fdd50c0e4d68");
+	my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"intranet","intranet");
 	my $result=$dbh->do($sql);
     #Desconexion con la base
 	$dbh->disconnect;  
@@ -196,7 +196,7 @@ $SAMURAI_Perm->{quitarPerfil} = sub
 	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=localhost',"samurai","25fdd50c0e4d68");
+	my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"intranet","intranet");
 	my $result=$dbh->do($sql);
     #Desconexion con la base
 	$dbh->disconnect;  
diff --git a/sistema/www/perfiles/perfiles.php b/sistema/www/perfiles/perfiles.php
index 131bbff..d159788 100644
--- a/sistema/www/perfiles/perfiles.php
+++ b/sistema/www/perfiles/perfiles.php
@@ -60,9 +60,8 @@ if (!@$_SESSION['samurai']['id_sistema']) {
     $TABLA3->addRow($row,'align=left'); 
     
     //Agrego la posibilidad de seleccionar otro sistema para trabajar.
-    $row[] = '<a
-    href="/sistemas/samurai/sel-sistema?redirect=usuarios/usuarios"><img
-    src="/MECON/images/general_volver.gif"></a>';
+    $row = array ();
+    $row[] = '<a href="/sistemas/samurai/sel-sistema?redirect=perfiles/perfiles"><img src="/MECON/images/general_volver.gif">Seleccionar otro sistema para trabajar.</a>';
     //Agrego el link a nuevo
     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_ALTA)) {
         $row[] = '<a href="perfiles-nuevo"><img src="/MECON/images/general_nuevo.gif" border="0">Ingresar&nbsp;Nuevo&nbsp;Perfil</a>';
diff --git a/sistema/www/usuarios/usuarios.php b/sistema/www/usuarios/usuarios.php
index 4f3e6c9..6faf3f8 100644
--- a/sistema/www/usuarios/usuarios.php
+++ b/sistema/www/usuarios/usuarios.php
@@ -60,15 +60,14 @@ if (!@$_SESSION['samurai']['id_sistema']) {
 
 
     //Agrego la posibilidad de seleccionar otro sistema para trabajar.
-    $row[] = '<a
-    href="/sistemas/samurai/sel-sistema?redirect=usuarios/usuarios"><img
-    src="/MECON/images/general_volver.gif"></a>';
-
+    $row = array ();
+    $row[] = '<a href="/sistemas/samurai/sel-sistema?redirect=usuarios/usuarios"><img src="/MECON/images/general_volver.gif">Seleccionar otro sistema para trabajar.</a>';
     //Agrego el link a nuevo
     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_USUARIO_ALTA)) {
         $row[] = $aHref.'<img src="/MECON/images/general_nuevo.gif" border="0">Agregar Nuevo Usuario</a>';
     }
     $TABLA2->addRow($row,'align=right');    
+    $TABLA2->updateColAttributes(0,'align=left');
     //Genero la cabecera de la tabla
     $row  = array ('Login','Nombre');
     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_USUARIO_MODIF)) {
-- 
2.43.0