Libreria de Perl terminada.

diff --git a/lib_perl/Perm.epl b/lib_perl/Perm.epl
index b36bab69df4b6e4490b9267fa50fab91a6f3e4a5..fda3381013993c35756e56d2e9ade0cb3e49e3f2 100644 (file)
--- a/lib_perl/Perm.epl
+++ b/lib_perl/Perm.epl
@@ -38,7 +38,7 @@ $CLEANUP{'SAMURAI_Perm'} = 0;
 # @return void
 $SAMURAI_Perm->{new} = sub
 {
 # @return void
 $SAMURAI_Perm->{new} = sub
 {

-    my $sql = "SELECT DISTINCT psu.isd_sistema AS sistema, pps.id_permiso AS permiso FROM samurai.perfil_sist_usuario AS psu, samurai.perm_perfil_sist AS pps WHERE psu.login = ? AND psu.id_perfil = pps.id_perfil AND psu.id_sistema = pps.id_sistema ORDER BY psu.id_sistema";
+    my $sql = "SELECT DISTINCT psu.id_sistema AS sistema, pps.id_permiso AS permiso FROM samurai.perfil_sist_usuario AS psu, samurai.perm_perfil_sist AS pps WHERE psu.login = ? AND psu.id_perfil = pps.id_perfil AND psu.id_sistema = pps.id_sistema ORDER BY psu.id_sistema";

     $udat{SAMURAI_Perm_vars}{login} = @_[0];
     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
     ##Conexion con la base
     $udat{SAMURAI_Perm_vars}{login} = @_[0];
     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
     ##Conexion con la base


@@ -118,7 +118,6 @@ $SAMURAI_Perm->{getPermisos} = sub
 # permisos automaticamente lo redirige a una pagina de error.
 #
 # @return void
 # permisos automaticamente lo redirige a una pagina de error.
 #
 # @return void

-# TODO Probar que esto este funcionando bien.

 $SAMURAI_Perm->{chequear} = sub
 {
     if (!$ret->{SAMURAI_Perm}->{tiene} (@_)) {
 $SAMURAI_Perm->{chequear} = sub
 {
     if (!$ret->{SAMURAI_Perm}->{tiene} (@_)) {


@@ -148,6 +147,7 @@ $SAMURAI_Perm->{getObservaciones} = sub
     if (!$udat{SAMURAI_Perm_vars}{observaciones}{$sistema}{$perm}) {
         $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 = ?';
     if (!$udat{SAMURAI_Perm_vars}{observaciones}{$sistema}{$perm}) {
         $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=bal747f',"intranet","intranet");
         $re = $dbh->prepare($sql);
         $re->execute($perm, $sistema);        
         my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
         $re = $dbh->prepare($sql);
         $re->execute($perm, $sistema);        


@@ -157,9 +157,8 @@ $SAMURAI_Perm->{getObservaciones} = sub
         $re->finish();             
         #Desconexion con la base
         $dbh->disconnect;          
         $re->finish();             
         #Desconexion con la base
         $dbh->disconnect;          

-        $udat{SAMURAI_Perm_vars}{observaciones}{$sistema}{$perm} = \%obser;        
-        
-        return $obser;
+        $udat{SAMURAI_Perm_vars}{observaciones} = \%obser;
+        return $udat{SAMURAI_Perm_vars}{observaciones};

     }
 };
 !]
     }
 };
 !]

diff --git a/test/prueba.epl b/test/prueba.epl
index 1224035f42969e0ec20e4ee51deff81db6623e27..5ebac2f6c99118fea7cb3e531c558f0d89e82e7d 100644 (file)
--- a/test/prueba.epl
+++ b/test/prueba.epl
@@ -21,7 +21,7 @@ vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
 #define('SAMURAI_PERM_USUARIO_MODIF', 63
     
     print 'Cargo los datos -> Imitando el constructor.<br>';
 #define('SAMURAI_PERM_USUARIO_MODIF', 63
     
     print 'Cargo los datos -> Imitando el constructor.<br>';

-   $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);
+    $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);

 
     print 'Seteo otro sistema para trabajar<br>'; 
     $ret->{SAMURAI_Perm}->{setSistema} (44);
 
     print 'Seteo otro sistema para trabajar<br>'; 
     $ret->{SAMURAI_Perm}->{setSistema} (44);


@@ -52,14 +52,15 @@ vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
     print '<br>';
     
     print 'Pruebo la funcion chequear<BR>';
     print '<br>';
     
     print 'Pruebo la funcion chequear<BR>';

-#    $ret->{SAMURAI_Perm}->{chequear} (61);
+    $ret->{SAMURAI_Perm}->{chequear} (612,61);

     print 'Si aparece esto es porque tenia al menos uno de los permisos que se pasaron como parametro<br>';
     print 'Si aparece esto es porque tenia al menos uno de los permisos que se pasaron como parametro<br>';

-
+    

     print 'Hago un get observaciones<br>';
     print 'Hago un get observaciones<br>';

-#    $tmp = $ret->{SAMURAI_Perm}->{getObservaciones} (66,61);
-#    print Dumper(\%tmp);
-   
-#    print Dumper($udat{SAMURAI_Perm_vars}{observaciones});
+    $tmp = $ret->{SAMURAI_Perm}->{getObservaciones} (66,61);
+    print Dumper($tmp);
+
+    print '<BR><BR>Asi es como queda el udat de SAMURAI<BR>';
+    print '<pre>'.Dumper($udat{SAMURAI_Perm_vars}).'</pre>';

    
     print '<br><br>FINALE PRESTO CON TUTTI<br>';
 -]
    
     print '<br><br>FINALE PRESTO CON TUTTI<br>';
 -]