X-Git-Url: https://git.llucax.com/mecon/samurai.git/blobdiff_plain/0cf56477ad378a18f1d9daad478a4e14427b6b3b..04fa3d055ad6d878257eda34c3347efccc5c9caa:/test/prueba.epl?ds=inline

diff --git a/test/prueba.epl b/test/prueba.epl
index 1224035..1137369 100644
--- a/test/prueba.epl
+++ b/test/prueba.epl
@@ -8,7 +8,7 @@ vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
 
     use Data::Dumper;
 
-    Execute('./../lib_perl/Perm.epl');
+    Execute('/var/www/sistemas/samurai/lib_perl/Perm.epl');
     
 #define('SAMURAI_PERM', 44);
 #define('SAMURAI_PERM_DEVELOPER', 66);
@@ -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>';
-   $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);
@@ -52,14 +52,15 @@ vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
     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 '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>';
 -]