X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/3456f1f179ee9c0844e2a76e9ffba588c13dce04..c2de4e857201181b73e0da3064f53ff5cc8ce2f0:/lib/MECON/Usuario.php

diff --git a/lib/MECON/Usuario.php b/lib/MECON/Usuario.php
index 5e1997a..bdfd064 100644
--- a/lib/MECON/Usuario.php
+++ b/lib/MECON/Usuario.php
@@ -86,6 +86,7 @@ class MECON_Usuario {
                 $this->login=$login;
                 $this->nombre=$nombre;
                 $this->dni=$dni;
+            }
             else {
                 die ('El dni '.$dni.' no existe, debe loguearse al
                         menos una vez a la intranet.');
@@ -269,5 +270,32 @@ class MECON_Usuario {
     }
     // -X2C
 
+    /**
+      * Verifica si el login pasado por parametro es valido
+      *
+      * @param string $login Login a verificar
+      *
+      * @return mixed
+      * @access public
+      */
+    function verificarLogin($login = null) {
+        if ($login) {
+            $db = DB::connect($this->dsn);
+            if (PEAR::isError($db)) { 
+                return $db;
+            }
+            $sql = "SELECT count(*) as cuenta FROM Usuario WHERE login = '$login'";
+            $result = $db->query($sql);
+            if (PEAR::isError($result)) { 
+                return $result;
+            }
+            $row = $result->fetchRow(DB_FETCHMODE_ASSOC); 
+            if ($row['cuenta'] != 0) {
+                return true;
+            }
+        }
+        return false;
+    }
+
 } // -X2C Class :MECON_Usuario
 ?>
\ No newline at end of file