BugFix en la interfaz, nada funcional.

diff --git a/lib/SAMURAI/DB/consultas.ini b/lib/SAMURAI/DB/consultas.ini
index 28226246f026ba6b4e93254af7eaa1a459fba0f7..5a64d10ff21ec3386f6f03f3b3f5128dce958e7a 100644 (file)
--- 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 346cc67dd7bca87e8f3609e8f92ecee1d553a1ab..1dfdacf4bba13493175c29d6b6d161242d6015c2 100644 (file)
--- 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 131bbff91bf58cb78db6ef8b80cc87519c546b73..d159788aecee28599c77ed85d239be4a368c9463 100644 (file)
--- 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 4f3e6c99a72baadc93714bd93ad343c461836c73..6faf3f8f48adacc800f13790abe53cb1753a0c94 100644 (file)
--- 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)) {