Libreria SAMURAI_Perm en Perl casi lista. Falta getObservaciones y verificar que...

[mecon/samurai.git] / lib / SAMURAI / Usuario.php

diff --git a/lib/SAMURAI/Usuario.php b/lib/SAMURAI/Usuario.php
index a394091ea34ce810315d28fe173d22ea3d94d865..8633bc2fd7a9a28ce81f7910bfe4cbee8c238f33 100644 (file)
--- a/lib/SAMURAI/Usuario.php
+++ b/lib/SAMURAI/Usuario.php
@@ -24,14 +24,6 @@
 // $Rev$
 //
 
-/** \page page_
-
-\section PRUEBA PRUEBA
-hola esto es una prueba
-
- */
-
-
 require_once 'PEAR.php';
 require_once 'Perfil.php';
 require_once 'MECON/Usuario.php';
@@ -40,6 +32,7 @@ require_once 'MECON/Usuario.php';
 // +X2C Class 207 :SAMURAI_Usuario
 /**
  * Clase para el manejo de los usuarios.
+@see \ref page_samurai_html_usuario
  *
  * @access public
  */
@@ -354,7 +347,7 @@ class SAMURAI_Usuario {
     function _grabarDb() // ~X2C
     {   
         $datos = array ('login', 'id_perfil', 'id_sistema', 'responsable');
-        $re = $this->_db->autoPrepare('perfil_sist_usuario', $datos, DB_AUTOQUERY_INSERT);
+        $re = $this->_db->autoPrepare('samurai.perfil_sist_usuario', $datos, DB_AUTOQUERY_INSERT);
         foreach ($this->getPerfiles() as $perfil) {
             $datos = array ($this->getLogin(),
                             $perfil,
@@ -470,9 +463,6 @@ class SAMURAI_Usuario {
             if (PEAR::isError($tmp)) {
                 return $tmp;
             }
-            else {
-                return true;
-            }
         }
         else {
             return new PEAR_Error('Usuario no reconocido.<br>Recuerde que &eacute;ste debe haberse logueado previamente a Intranet');
@@ -493,5 +483,41 @@ class SAMURAI_Usuario {
     }
     // -X2C
 
+    // +X2C Operation 396
+    /**
+     * Devuelve la informacion completa del usuario. Sistemas a los que esta asignado, perfiles que tiene dentro de cada sistema y permisos.
+     *
+     * @return mixed
+     * @access public
+     */
+    function informacionGeneral() // ~X2C
+    {
+        $sql = parse_ini_file(dirname(__FILE__) . '/Usuario/consultas.ini', true);
+        $tmp = $sql['obtener_informacion'];
+        $dbh = $this->_db->prepare($tmp);
+        $res = $this->_db->execute($dbh,array($this->getLogin()));
+
+        if (PEAR::isError($res)) {
+            return $res;
+        }
+        
+        $rta = array();
+
+        while ($re = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
+            $rta[$re['id_sistema']]['nombre_sistema'] = $re['nombre_sistema'];
+            $rta[$re['id_sistema']]['perfiles'][$re['id_perfil']]['desc_perfil'] =
+                $re['desc_perfil'];
+            
+            $rta[$re['id_sistema']]['perfiles'][$re['id_perfil']]['permisos'][$re['id_permiso']]
+                [$re['observaciones']]['desc_permiso'] = $re['desc_permiso'];
+            
+            $rta[$re['id_sistema']]['perfiles'][$re['id_perfil']]['permisos'][$re['id_permiso']]
+                [$re['observaciones']]['observaciones'] = $re['observaciones'];
+        }
+        
+        return $rta;
+    }
+    // -X2C
+
 } // -X2C Class :SAMURAI_Usuario
 ?>
\ No newline at end of file