From: Martín Marrese <marrese@gmail.com>
Date: Fri, 14 Mar 2003 13:51:37 +0000 (+0000)
Subject: - Arregle los archivos de codigo para que se pudieran entender mejor.
X-Git-Tag: svn_import~598
X-Git-Url: https://git.llucax.com/mecon/meconlib.git/commitdiff_plain/bf4ceaa6453bf08f5223d2ccfcef1eaa5e8cc07e?hp=a39b9c1fd1fbd976ce9db682b06f73e92612400c

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