2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
3 // +--------------------------------------------------------------------+
4 // | Ministerio de Economía |
5 // | AI (Administrador de Intranet) |
6 // +--------------------------------------------------------------------+
7 // | This file is part of AI. |
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. |
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. |
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: Tue Jun 24 16:22:07 2003 |
24 // | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
25 // +--------------------------------------------------------------------+
30 require_once 'AI/Error.php';
32 // +X2C Class 416 :AI_Sistema
41 * ID del sistema (ID en SAMURAI).
51 * @var HTML_Imagen $icono
57 * Enlace a donde se encuentra el sistema.
65 * Enlace a la ayuda del sistema.
67 * @var string $link_ayuda
73 * Indica si esta habilitado.
75 * @var bool $habilitado
78 var $habilitado = true;
84 * @param int $sistema ID del sistema.
89 function AI_Sistema($sistema = 0) // ~X2C
91 $this->sistema = $sistema;
97 * @param mixed $db Base de datos o Resultado a utilizar.
102 function cargar($db) // ~X2C
104 $sistema = intval($this->sistema);
105 if (is_a($db, 'db_result')) {
107 // Si no es un resultado, hago el query.
109 $result = $db->query(
112 WHERE sistema = $sistema"
114 if (DB::isError($result)) {
119 $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
121 return new AI_Error(AI_ERROR_NO_RESULTADOS,
122 "No hay más resultados en la DB [sistema=$sistema]");
124 // Asigno valores al objeto.
126 $this->sistema = $sistema;
127 $this->icono = $icono; # FIXME - new HTML_Icono (o no?)
129 $this->link_ayuda = $link_ayuda;
130 $this->habilitado = $habilitado;
135 // +X2C Operation 459
137 * @param DB $db DB donde guardar.
138 * @param bool $nuevo Si es true, se fuerza a guardar el servicio como nuevo.
143 function guardar($db, $nuevo = false) // ~X2C
145 $sistema = intval($this->sistema);
148 'icono' => $this->icono,
149 'link' => $this->link,
150 'link_ayuda' => $this->link_ayuda,
151 'habilitado' => $this->habilitado ? 1 : 0,
153 if ($sistema and !$nuevo) {
154 $accion = DB_AUTOQUERY_UPDATE;
155 $where = "sistema = $sistema";
157 $accion = DB_AUTOQUERY_INSERT;
158 // Si no tiene ID, le asigno uno nuevo.
160 $sistema = $db->nextId('sistema');
161 if (DB::isError($sistema)) {
164 $this->sistema = $sistema;
166 $datos['sistema'] = $sistema;
168 $res = $db->autoExecute('sistema', $datos, $accion, $where);
169 if (DB::isError($res)) {
176 // +X2C Operation 461
178 * @param DB $db DB de donde borrar.
183 function borrar($db) // ~X2C
185 $sistema = intval($this->sistema);
188 "DELETE FROM sistema WHERE sistema = $sistema");
189 if (DB::isError($res)) {
194 return PEAR::raiseError("No hay un sistema válido para borrar");
198 // +X2C Operation 502
203 function __clone() // ~X2C
209 } // -X2C Class :AI_Sistema