- Arregle los archivos de codigo para que se pudieran entender mejor.

- Agregue la documentacion de la libreria para Perl.

diff --git a/samurai_lib/doc/samurai_lib_PHP.rtf b/samurai_lib/doc/samurai_lib_PHP.rtf
index 5be6fcb61c46dceeede453ddaaafa1d9c16c0047..5059f5ce0c8b4ad923620a91944601edcc045002 100644 (file)
--- a/samurai_lib/doc/samurai_lib_PHP.rtf
+++ b/samurai_lib/doc/samurai_lib_PHP.rtf
@@ -4,7 +4,7 @@
 {\f1\fmodern Courier;}}\r
 {\info\r
 {\creatim \yr2003\mo3\dy12\hr14\min49\sec5}\r
-{\revtim \yr2003\mo3\dy12\hr15\min12\sec17}\r
+{\revtim \yr2003\mo3\dy14\hr10\min47\sec2}\r
 }\r
 \paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440\r
 \ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc\r
@@ -16,7 +16,8 @@ para ser usada en sistemas hechos en PHP\par
 Objeto:\b0\ul0  \b SA_Perm\par\r
 \ul Variables de Instancia:\par\r
 \ul0   - login   \par\r
-\b0     Contiene el login del usuario que se obtiene de $udat.\par\r
+\b0     Contiene el login del usuario que se obtiene de $udat\{user\}.\r
+\par\r
 \b   - sistema \par\r
    \b0  Contiene el identificador numerico del sistema.\par\r
 \b   - permisos\par\r
@@ -37,19 +38,21 @@ Objeto:\b0\ul0  \b SA_Perm\par
 se\par\r
     pasaron como parametro. Devuelve true si cumple con la condicion, \r
 \par\r
-    false en cualquier otro caso.\par\r
+    false en cualquier otro caso. Es de argumentos variable.\par\r
 \b   - tieneO \par\r
     \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
 que\par\r
     se pasaron como parametro. Devuelve true si cumple con la condicion,\r
 \par\r
-    false en cualquier otro caso.\par\r
+    false en cualquier otro caso. Es de argumentos variable.\par\r
 \b   - tieneODevol\par\r
     \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
 que\par\r
     se pasaron como parametro. Devuelve un array con aquellos permisos\r
 \par\r
-    que se pararon por parametro y el usuario tiene.\par\r
+    que se pasaron por parametro y el usuario tiene. Es de argumentos\r
+\par\r
+    variable.\par\r
 \b   - tieneUn\par\r
    \b0  Funcion que chequea que el usuario tenga el permiso que se pasa \r
 por \par\r

diff --git a/samurai_lib/doc/samurai_lib_Perl.rtf b/samurai_lib/doc/samurai_lib_Perl.rtf
new file mode 100644 (file)
index 0000000..1a0e123
--- /dev/null
+++ b/samurai_lib/doc/samurai_lib_Perl.rtf
@@ -0,0 +1,70 @@
+{\rtf0\ansi\r
+{\fonttbl\r
+{\f0\fswiss Helvetica;}\r
+{\f1\fmodern Courier;}}\r
+{\info\r
+{\creatim \yr2003\mo3\dy14\hr10\min35\sec30}\r
+{\revtim \yr2003\mo3\dy14\hr10\min45\sec52}\r
+}\r
+\paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440\r
+\ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc\r
+\sectd\r
+\f1\fs20\b SAMURAI - samurai_lib - Perl\par\r
+para ser usada en sistemas hechos en Perl\par\r
+\par\r
+\ul Funcionamiento\par\r
+\b0\ul0 Para que tenga un funcionamiento similar a samurai_lib (PHP) \r
+hay una especie de objeto llamado SA_Perm, y funciones que cuelgan de \r
+el. Este objeto y todos sus metodos se encuentran en $ret->\{SA_Perm\}, \r
+el set de permisos del usuario en el sistema se cargan en un array y se \r
+asignan a $udat\{SA_Permisos\}, esto para que esten disponibles en \r
+cualquier momento.\par\r
+\par\r
+\par\r
+\b\ul Objeto:\b0\ul0  \b SA_Perm\par\r
+\ul Metodos:\par\r
+\ul0   - $ret->\{SA_Perm\}->\{SA_Perm\}\par\r
+    \b0 Constructor. Recive como parametro el identificador numerico del\r
+\par\r
+    sistema, el login del usuario lo toma de $udat\{user\} (que es del\r
+\par\r
+    tipo <usuario>@<organismo>)\par\r
+\b   - tiene \par\r
+    \b0 Funcion que chequea que el usuario tenga todos los permisos que \r
+se\par\r
+    pasaron como parametro. Devuelve 1 si cumple con la condicion, \par\r
+    0 en cualquier otro caso. Es de argumentos variable.\par\r
+\b   - tieneO \par\r
+    \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
+que\par\r
+    se pasaron como parametro. Devuelve 1 si cumple con la condicion,\r
+\par\r
+    0 en cualquier otro caso. Es de argumentos variable.\par\r
+\b   - tieneODevol\par\r
+    \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
+que\par\r
+    se pasaron como parametro. Devuelve un array con aquellos permisos\r
+\par\r
+    que se pasaron por parametro y el usuario tiene. Es de argumentos\r
+\par\r
+    variable.\par\r
+\b   - tieneUn\par\r
+   \b0  Funcion que chequea que el usuario tenga el permiso que se pasa \r
+por \par\r
+    por parametro. Devuelve 1 si cumple con la condicion, 0 en cualquier\r
+\par\r
+    otro caso.\par\r
+\b \par\r
+\b0 \par\r
+-------------------------------------\par\r
+Autores  : Martin Marrese\par\r
+-------------------------------------\par\r
+Fecha                    : 14/03/2003\par\r
+Fecha Ultima Modificacion: 14/03/2003\par\r
+-------------------------------------             \par\r
+$Id$\par\r
+$Author$\par\r
+$Date$\par\r
+$Url$\par\r
+$Rev$\par\r
+}\r

diff --git a/samurai_lib/php/Samurai/Perm.php b/samurai_lib/php/Samurai/Perm.php
index 0976f127a3248f0426f56eb2ad0a8d3eb4ff116f..5580f6eae05f24a19935b8892541948abfa2de00 100644 (file)
--- a/samurai_lib/php/Samurai/Perm.php
+++ b/samurai_lib/php/Samurai/Perm.php
@@ -37,7 +37,6 @@ require_once 'DB.php';
  * @author  $Author$
  */
 
-// Comienzo Clase {{{ 
 class SA_Perm extends PEAR {
     
     /**
@@ -105,9 +104,9 @@ class SA_Perm extends PEAR {
     function tiene() 
     {
         $args   = func_get_args(); //Obtengo los permisos que me pasaron como argumento
-        $result = true;            //Asumo que no va a fallar
-        if (!count($args)) {
-            $result = false;       //Siempre se debe pasar al menos un permiso a buscar
+        $result = true;           //Asumo que no va a fallar
+        if (!count($args)) {     
+            $result = false;    //Siempre se debe pasar al menos un permiso a buscar
         }
         else {
             if (count(array_diff($args, $this->permisos))){
@@ -135,7 +134,7 @@ class SA_Perm extends PEAR {
     {
         $args   = func_get_args(); //Obtengo los permisos que me pasaron como argumento
         $result = true;           //Asumo que no va a fallar
-        if (!count($args)) {      //Siempre se debe pasar al menos un permiso a buscar
+        if (!count($args)) {     //Siempre se debe pasar al menos un permiso a buscar
             $result = false;
         }
         else {
@@ -229,13 +228,12 @@ class SA_Perm extends PEAR {
         $datos = include 'Perm/db_Conf.php';
         $dsn   = $datos['db_type']."://".$datos['db_user'].":".$datos['db_pass']."@".$datos['db_host']."/".$datos['db_name'];  
         $db    = DB::connect($dsn, true); //Quiero que la conexion sea persistente
-        if (DB::isError($db)) {
+        if (DB::isError($db)) {          //En caso de error en la conexion que la muestre
             die($db->getMessage());
         }
         return $db;
     }
 
 }
-// }}} Fin Clase
 
 ?>