<?php
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
// +--------------------------------------------------------------------+
// |                      Ministerio de Economía                        |
// |                             Intranet                               |
// +--------------------------------------------------------------------+
// | This file is part of Intranet.                                     |
// |                                                                    |
// | Intranet is free software; you can redistribute it and/or modify   |
// | it under the terms of the GNU General Public License as published  |
// | by the Free Software Foundation; either version 2 of the License,  |
// | or (at your option) any later version.                             |
// |                                                                    |
// | Intranet is distributed in the hope that it will be useful, but    |
// | WITHOUT ANY WARRANTY; without even the implied warranty of         |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
// | General Public License for more details.                           |
// |                                                                    |
// | You should have received a copy of the GNU General Public License  |
// | along with Hooks; if not, write to the Free Software Foundation,   |
// | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
// +--------------------------------------------------------------------+
// | Creado: Mon Jul 7 17:22:10 2003                                    |
// | Autor:  Matías Sklar <msklar@mecon.gov.ar>                         |
// +--------------------------------------------------------------------+
//
// $Id: Intranet_Legajos_Estudios.php 23 2003-07-15 18:56:42Z msklar $
//


// +X2C includes
require_once 'DB.php';
// ~X2C
require_once 'intranetdb.php';

// +X2C Class 163 :Servicios_Legajos_Estudios
/**
 * Estudios del agente
 *
 * @access public
 */
// XXX - Pregunta llucar: POR QUE CATSO HEREDA DE DB???
class Servicios_Legajos_Estudios extends DB {
    /**
     * @var    int $agente
     * @access public
     */
    var $agente;

    /**
     * @var    int $datos
     * @access public
     */
    var $datos;

    // ~X2C

    // +X2C Operation 166
    /**
     * @param  int $agente 
     *
     * @return void
     * @access public
     */
    function Servicios_Legajos_Estudios($agente) // ~X2C
    {
        $this->agente = $agente;
        $db = IntranetDB::connect();
        if (DB::isError($db)) 
            trigger_error($db->getMessage('No pudo conectarse a la base'), E_USER_ERROR);
        $sql = "SELECT * 
                FROM novedades.web005
                WHERE documento = $agente";
        $result = $db->query($sql);
        if (DB::isError($result))
            trigger_error($result->getMessage('Query mal hecho'), E_USER_ERROR);

        for ($fila = 0; $fila < $result->numRows(); $fila++) {
            $this->datos[$fila] = $result->fetchRow(DB_FETCHMODE_ASSOC);
        }
    }
    // -X2C

    // +X2C Operation 172
    /**
     * @return void
     * @access public
     */
    function getEstudios() // ~X2C
    {
        return $this->datos;
    }
    // -X2C

} // -X2C Class :Servicios_Legajos_Estudios
?>