<?php
// vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
// +--------------------------------------------------------------------+
// |                      Ministerio de Economía                        |
// |                  AI (Administrador de Intranet)                    |
// +--------------------------------------------------------------------+
// | This file is part of AI.                                           |
// |                                                                    |
// | AI 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.                             |
// |                                                                    |
// | AI 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: Fri Jul 18 18:19:35 2003                                   |
// | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
// +--------------------------------------------------------------------+
//
// $Id$
//

// +X2C includes
require_once 'AI/DBObject.php';
// ~X2C

// +X2C Class 524 :AI_DBTreeObject
/**
 * @package AI
 * @access public
 * @abstract
 */
class AI_DBTreeObject extends AI_DBObject {
    /**
     * Grupos de secciones que tiene este grupo.
     *
     * @var    array $hijos
     * @access protected
     */
    var $_hijos = array();

    /**
     * Gets Hijos.
     *
     * @return array
     * @access public
     */
    function getHijos()
    {
        return $this->_hijos;
    }

    // ~X2C

    // +X2C Operation 526
    /**
     * @param  int $id Identificador del objecto.
     * @param  string $confFile Configuracin del objeto.
     *
     * @return void
     * @access public
     */
    function AI_DBTreeObject($id = 0, $confFile = '') // ~X2C
    {
        parent::AI_DBObject($id, $confFile);
    }
    // -X2C

    // +X2C Operation 527
    /**
     * @param  mixed $db Base de datos o resultado de donde cargar los hijos.
     *
     * @return PEAR_Error
     * @access public
     */
    function cargarHijos($db) // ~X2C
    {
        $id_field = $this->conf['id'];
        $id_padre = $this->conf['padre'];
        $tabla    = $this->conf['base'].'.'.$this->conf['tabla'];
        $id       = intval($this->$id_field);
        if (is_a($db, 'db_result')) {
            $result = $db;
            $db     = $result->dbh;
        // Si no es un resultado, hago el query.
        } else {
            $result   = $db->query("SELECT * FROM $tabla WHERE $id_padre = $id");
            if (DB::isError($result)) {
                return $result;
            }
        }
        $this->_hijos = array();
        $clase = get_class($this);
        $hijo  = new $clase;
        $err   = $hijo->cargar($result);
        while (!PEAR::isError($err)) {
            $this->_hijos[] = $hijo->__clone();
            $err = $hijo->cargar($result);
        }
        // Si no hay mas resultados, entonces terminó bien.
        if (AI_Error::isError($err)
                and $err->getCode() == AI_ERROR_NO_RESULTADOS) {
            return true;
        }
        // Si no, se devuelve el error.
        return $err;
    }
    // -X2C

    // +X2C Operation 529
    /**
     * Borra el objeto de la base de datos verificando que no tenga hijos.
     *
     * @param  DB $db Base de datos de la cual borrar el objeto.
     *
     * @return PEAR_Error
     * @access public
     */
    function borrar($db) // ~X2C
    {
		$id_field = $this->conf['id'];
		$id_padre = $this->conf['padre'];
        $tabla = $this->conf['base'].'.'.$this->conf['tabla'];
        $id = intval($this->$id_field);
        if ($id) {
            // Verifico si tiene hijos.
            $hijos = $db->getOne("
                SELECT $id_field
                FROM   $tabla
                WHERE  $id_padre = $id");
            if (DB::isError($hijos)) {
                return $hijos;
            } elseif ($hijos) {
                // Si tiene hijos, da error.
                return new AI_Error(AI_ERROR_TIENE_HIJOS,
                    "El elemento de identificador $id todavía tiene hijos.");
            } else {
                // Si no tiene hijos, lo borro.
                return parent::borrar($db);
            }
        }
        return PEAR::raiseError('No hay un identificador válido para borrar');
    }
    // -X2C

} // -X2C Class :AI_DBTreeObject

?>