Se acomodan los estilos de MECON_HTML_Page y MECON_HTML_Marco. Es mi despedida tempor...

[mecon/meconlib.git] / lib / MECON / Usuario.php

diff --git a/lib/MECON/Usuario.php b/lib/MECON/Usuario.php
index 3308cf771eb2e9a1e3fd41df7ca2d8c32a4e6895..8d4b9a2f0d8e45f1ae174654fe59e3f540f84bbb 100644 (file)
--- a/lib/MECON/Usuario.php
+++ b/lib/MECON/Usuario.php
@@ -26,6 +26,7 @@ $Id: Usuario.php 242 2003-08-11 18:02:16Z manazar $
 require_once 'MECON/Agente.php';
     
 require_once 'DB.php';
+require_once 'PEAR.php';
 
 /**
  * @access public
@@ -87,16 +88,16 @@ class MECON_Usuario {
                where dni = $dni";
         $result = $this->_db->query($sql);
         if (DB::isError($result)) {
-            trigger_error($result->getMessage(), E_USER_ERROR);
+            return $result;
         } elseif ($result->NumRows()>0) {
-            $row = $result->fetchRow();
+            $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
             $login = $row[0];
             $nombre = $row[1];
             $this->login=$login;
             $this->nombre=$nombre;
             $this->dni=$dni;
         } else {
-            trigger_error('El dni '.$dni.' no existe, debe loguearse al
+            return new PEAR_Error ('El dni '.$dni.' no existe, debe loguearse al
                  menos una vez a la intranet.');
         }
     }
@@ -117,16 +118,14 @@ class MECON_Usuario {
         $result = $this->_db->query($sql);
 
         if (DB::isError($result)) {
-            trigger_error($result->getMessage(), E_USER_ERROR);
+            return $result;
         } elseif ($result->NumRows()>0) {
-            $row = $result->fetchRow();
-            $dni = $row[0];
-            $nombre = $row[1];
-            $this->dni=$dni;
-            $this->nombre=$nombre;
-            $this->login=$login;
+            $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
+            $this->dni = $row[0];
+            $this->nombre = $row[1];
+            $this->login = $login;
         } else {
-            trigger_error('El usuario '.$login.' no existe, debe loguearse al
+            return new PEAR_Error ('El usuario '.$login.' no existe, debe loguearse al
                  menos una vez a la intranet.');
         }
     }
@@ -229,7 +228,7 @@ class MECON_Usuario {
      */
     function buscarUsuarioDNI($dni) 
     {
-        $MECON_Agente= & new MECON_Agente($dni);
+        $MECON_Agente= & new MECON_Agente($this->_db, $dni);
         $this->dni = $dni;
         $nombre = $MECON_Agente->getNombre();
         $this->nombre = $nombre;
@@ -254,9 +253,9 @@ class MECON_Usuario {
       * @access public
       */
     function verificarLogin($login) {
-        $login = $this->_db->quote($login);
-        $sql = "SELECT count(*) as usuario.cuenta FROM usuario.Usuario WHERE login = '$login'";
-        $result = $db->query($sql);
+        $sql = "SELECT count(*) as cuenta FROM usuario.Usuario WHERE login = " 
+            . $this->_db->quote($login) ;
+        $result = $this->_db->query($sql);
         if (PEAR::isError($result)) {
             return $result;
         }