1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
2 -------------------------------------------------------------------------------
3 Ministerio de EconomÃa
5 -------------------------------------------------------------------------------
6 This file is part of meconlib.
8 meconlib is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2 of the License, or (at your option)
13 meconlib is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
15 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License; if not,
18 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
19 Boston, MA 02111-1307 USA
20 -------------------------------------------------------------------------------
21 Creado: Thu Aug 11 15:17:11 2003
22 Autor: Manuel Nazar <manazar@mecon.gov.ar>
23 -------------------------------------------------------------------------------
24 $Id: Usuario.php 242 2003-08-11 18:02:16Z manazar $
25 -----------------------------------------------------------------------------*/
26 require_once 'MECON/Agente.php';
28 require_once 'DB.php';
29 require_once 'PEAR.php';
48 * @var string $nivelygrado
84 function ArmarconDNI($dni)
86 $sql = "SELECT login,nombre
89 $result = $this->_db->query($sql);
90 if (DB::isError($result)) {
92 } elseif ($result->NumRows()>0) {
93 $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
97 $this->nombre=$nombre;
100 return new PEAR_Error ('El dni '.$dni.' no existe, debe loguearse al
101 menos una vez a la intranet.');
106 * @param string $login
111 function ArmarconLOGIN($login)
113 //$login = ereg_replace ("@", "\\\@", $login);
114 $sql = "SELECT dni,nombre
116 where login = '$login'";
118 $result = $this->_db->query($sql);
120 if (DB::isError($result)) {
122 } elseif ($result->NumRows()>0) {
123 $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
124 $this->dni = $row[0];
125 $this->nombre = $row[1];
126 $this->login = $login;
128 return new PEAR_Error ('El usuario '.$login.' no existe, debe loguearse al
129 menos una vez a la intranet.');
139 function MECON_Usuario($db, $dni = null, $login = null)
142 if(! is_null($dni)) {
143 $this->ArmarconDNI($dni);
144 $this->buscarUsuarioDNI($dni);
146 if(! is_null($login)) {
147 $this->ArmarconLOGIN($login);
148 $this->buscarUsuarioDNI($this->getDni());
156 * @return lo que devuelve el query (DB_Result o DB_Error).
159 function Insertar_Usuario($dni, $login, $nombre)
161 $sql = "REPLACE INTO usuario.Usuario (login,dni,nombre)
162 values ('$login',$dni,'$nombre')";
163 return $this->_db->query($sql);
200 return $this->nombre;
207 function getNivelygrado()
209 return $this->nivelygrado;
229 function buscarUsuarioDNI($dni)
231 $MECON_Agente= & new MECON_Agente($this->_db, $dni);
233 $nombre = $MECON_Agente->getNombre();
234 $this->nombre = $nombre;
235 $codep= $MECON_Agente->getDependencia();
236 $this->codep = $codep;
237 $tipo= $MECON_Agente->getTipo();
239 $this->nivelygrado="";
240 if (isset($MECON_Agente->datos['nivel']))
242 $this->nivelygrado= $MECON_Agente->datos['nivel'].$MECON_Agente->datos['grado'];
248 * Verifica si el login pasado por parametro es valido
250 * @param string $login Login a verificar
255 function verificarLogin($login) {
256 $sql = "SELECT count(*) as cuenta FROM usuario.Usuario WHERE login = "
257 . $this->_db->quote($login) ;
258 $result = $this->_db->query($sql);
259 if (PEAR::isError($result)) {
262 $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
263 if ($row['cuenta'] != 0) {
270 * Devuelve un array de logins con aquellos que cumplan con algun requisito
273 * @param DB &$db Base de Datos
274 * @param string $login Login a filtrar. (Puede ser completo o una parte de el)
275 * @param string $nombre Nombre a filtrar.
281 function filtrarUsuarios(&$db, $login, $nombre) {
282 if ($login && $nombre) {
283 return new PEAR_Error('Solo debe ingresarse una opcion de filtro,
284 login o nombre, a la vez.');
286 $sql = "SELECT u.login as login, u.nombre as nombre FROM usuario.Usuario as u
290 $sql.= ' u.login LIKE \'%'.$login.'%\'';
293 $sql.= ' u.nombre LIKE \'%'.$nombre.'%\'';
295 $sql.= 'ORDER BY u.login';
297 $db->setFetchMode(DB_FETCHMODE_ASSOC);
298 $result = $db->query($sql);