lib/AI/DBTreeObject.php

   1 <?php
   2 // vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
   3 // +--------------------------------------------------------------------+
   4 // |                      Ministerio de Economía                        |
   5 // |                  AI (Administrador de Intranet)                    |
   6 // +--------------------------------------------------------------------+
   7 // | This file is part of AI.                                           |
   8 // |                                                                    |
   9 // | AI is free software; you can redistribute it and/or modify         |
  10 // | it under the terms of the GNU General Public License as published  |
  11 // | by the Free Software Foundation; either version 2 of the License,  |
  12 // | or (at your option) any later version.                             |
  13 // |                                                                    |
  14 // | AI is distributed in the hope that it will be useful, but          |
  15 // | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16 // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
  17 // | General Public License for more details.                           |
  18 // |                                                                    |
  19 // | You should have received a copy of the GNU General Public License  |
  20 // | along with Hooks; if not, write to the Free Software Foundation,   |
  21 // | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
  22 // +--------------------------------------------------------------------+
  23 // | Creado: Fri Jul 18 18:19:35 2003                                   |
  24 // | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
  25 // +--------------------------------------------------------------------+
  26 //
  27 // $Id$
  28 //
  29
  30 // +X2C includes
  31 require_once 'AI/DBObject.php';
  32 // ~X2C
  33
  34 // +X2C Class 524 :AI_DBTreeObject
  35 /**
  36  * @package AI
  37  * @access public
  38  * @abstract
  39  */
  40 class AI_DBTreeObject extends AI_DBObject {
  41     /**
  42      * Grupos de secciones que tiene este grupo.
  43      *
  44      * @var    array $hijos
  45      * @access protected
  46      */
  47     var $_hijos = array();
  48
  49     /**
  50      * Gets Hijos.
  51      *
  52      * @return array
  53      * @access public
  54      */
  55     function getHijos()
  56     {
  57         return $this->_hijos;
  58     }
  59
  60     // ~X2C
  61
  62     // +X2C Operation 526
  63     /**
  64      * @param  int $id Identificador del objecto.
  65      * @param  string $confFile Configuración del objeto.
  66      *
  67      * @return void
  68      * @access public
  69      */
  70     function AI_DBTreeObject($id = 0, $confFile = '') // ~X2C
  71     {
  72         parent::AI_DBObject($id, $confFile);
  73     }
  74     // -X2C
  75
  76     // +X2C Operation 527
  77     /**
  78      * Carga hijos de un objeto. Si hubo error devuelve un PEAR_Error, si no hubo error, devuleve un array de objetos (los hijos).
  79      *
  80      * @param  mixed $db Base de datos o resultado de donde cargar los hijos.
  81      * @param  bool $soloHabilitados Si es true, se cargan solo los hijos con el flag habilitado.
  82      *
  83      * @return mixed
  84      * @access public
  85      */
  86     function cargarHijos($db, $soloHabilitados = true) // ~X2C
  87     {
  88         $id_field = $this->conf['id'];
  89         $id_padre = $this->conf['padre'];
  90         $tabla    = $this->conf['base'].'.'.$this->conf['tabla'];
  91         $id       = intval($this->$id_field);
  92         if (is_a($db, 'db_result')) {
  93             $result = $db;
  94             $db     = $result->dbh;
  95         // Si no es un resultado, hago el query.
  96         } else {
  97             $query = "SELECT * FROM $tabla WHERE $id_padre = $id";
  98             if ($soloHabilitados) {
  99                 $query .= ' AND ' . $this->conf['habilitado'] . ' = 1';
 100             }
 101             $result = $db->query($query);
 102             if (DB::isError($result)) {
 103                 return $result;
 104             }
 105         }
 106         $this->_hijos = array();
 107         $clase = get_class($this);
 108         $hijo  = new $clase;
 109         $err   = $hijo->cargar($result);
 110         while (!PEAR::isError($err)) {
 111             $this->_hijos[] = $hijo->__clone();
 112             $err = $hijo->cargar($result);
 113         }
 114         // Si no hay mas resultados, entonces terminó bien.
 115         if (AI_Error::isError($err)
 116                 and $err->getCode() == AI_ERROR_NO_RESULTADOS) {
 117             return $this->_hijos;
 118         }
 119         // Si no, se devuelve el error.
 120         return $err;
 121     }
 122     // -X2C
 123
 124     // +X2C Operation 529
 125     /**
 126      * Borra el objeto de la base de datos verificando que no tenga hijos.
 127      *
 128      * @param  DB $db Base de datos de la cual borrar el objeto.
 129      *
 130      * @return PEAR_Error
 131      * @access public
 132      */
 133     function borrar($db) // ~X2C
 134     {
 135                 $id_field = $this->conf['id'];
 136                 $id_padre = $this->conf['padre'];
 137         $tabla = $this->conf['base'].'.'.$this->conf['tabla'];
 138         $id = intval($this->$id_field);
 139         if ($id) {
 140             // Verifico si tiene hijos.
 141             $hijos = $db->getOne("
 142                 SELECT $id_field
 143                 FROM   $tabla
 144                 WHERE  $id_padre = $id");
 145             if (DB::isError($hijos)) {
 146                 return $hijos;
 147             } elseif ($hijos) {
 148                 // Si tiene hijos, da error.
 149                 return new AI_Error(AI_ERROR_TIENE_HIJOS,
 150                     "El elemento de identificador $id todavía tiene hijos.");
 151             } else {
 152                 // Si no tiene hijos, lo borro.
 153                 return parent::borrar($db);
 154             }
 155         }
 156         return PEAR::raiseError('No hay un identificador válido para borrar');
 157     }
 158     // -X2C
 159
 160 } // -X2C Class :AI_DBTreeObject
 161
 162 ?>