Adapto las paginas de permisos para funcionar con MECON_HTML_TablaDB.

[mecon/samurai.git] / test / prueba.epl

diff --git a/test/prueba.epl b/test/prueba.epl
index 1224035f42969e0ec20e4ee51deff81db6623e27..1137369d61c9b88f56f850147bd90ed7808730f5 100644 (file)
--- 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;
 
 
     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);
     
 #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>';
 #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>';
 -]