// $Id$
//
-// +X2C Class 516 :AI_DBObject
/**
* Objecto con capacidad de guardarse, cargarse y borrarse de una base de datos.
*
*/
var $conf = array();
- // ~X2C
-
- // +X2C Operation 519
/**
* @param int $id Identificador del objeto a cargar.
* @param string $confFile Archivo de configuración del objeto.
* @return void
* @access public
*/
- function AI_DBObject($id = 0, $confFile = '') // ~X2C
+ function AI_DBObject($id = 0, $confFile = '')
{
if ($confFile) {
$this->conf = parse_ini_file($confFile, true);
$id_field = $this->conf['id'];
$this->$id_field = $id;
}
- // -X2C
- // +X2C Operation 520
/**
* @param mixed $db Base de datos o resultado a usar para cargar el objeto.
*
* @return PEAR_Error
* @access public
*/
- function cargar($db) // ~X2C
+ function cargar($db)
{
$id_field = $this->conf['id'];
$id = intval($this->$id_field);
}
return true;
}
- // -X2C
- // +X2C Operation 521
/**
* @param DB $db Base de datos a usar para guardar el objeto.
- * @param array $datos Array con los datos a guardar en la DB (donde la clave es el campo y el valor el contenido a guardar).
- * @param bool $nuevo Si es true, se fuerza a cargar el objeto en la base como si fuera nuevo.
+ * @param array $datos Array con los datos a guardar en la DB (donde la
+ * clave es el campo y el valor el contenido a
+ * guardar).
+ * @param bool $nuevo Si es true, se fuerza a cargar el objeto en la base
+ * como si fuera nuevo.
*
* @return PEAR_Error
* @access public
*/
- function guardar($db, $datos, $nuevo = false) // ~X2C
+ function guardar($db, $datos, $nuevo = false)
{
$id_field = $this->conf['id'];
$tabla = $this->conf['tabla'];
}
return true;
}
- // -X2C
- // +X2C Operation 522
/**
* @param DB $db Base de datos a usar para borrar el objeto.
*
* @return PEAR_Error
* @access public
*/
- function borrar($db) // ~X2C
+ function borrar($db)
{
$id_field = $this->conf['id'];
$tabla = $this->conf['base'].'.'.$this->conf['tabla'];
}
return PEAR::raiseError('No hay un identificador válido para borrar');
}
- // -X2C
- // +X2C Operation 523
/**
* @return AI_DBObject
* @access public
*/
- function __clone() // ~X2C
+ function __clone()
{
return $this;
}
- // -X2C
-} // -X2C Class :AI_DBObject
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'AI/DBObject.php';
-// ~X2C
-// +X2C Class 524 :AI_DBTreeObject
/**
* @package AI
* @access public
return $this->_hijos;
}
- // ~X2C
-
- // +X2C Operation 526
/**
* @param int $id Identificador del objecto.
* @param string $confFile Configuración del objeto.
* @return void
* @access public
*/
- function AI_DBTreeObject($id = 0, $confFile = '') // ~X2C
+ function AI_DBTreeObject($id = 0, $confFile = '')
{
parent::AI_DBObject($id, $confFile);
}
- // -X2C
- // +X2C Operation 527
/**
- * Carga hijos de un objeto. Si hubo error devuelve un PEAR_Error, si no hubo error, devuleve un array de objetos (los hijos).
+ * Carga hijos de un objeto.
+ * Si hubo error devuelve un PEAR_Error, si no hubo error, devuleve un
+ * array de objetos (los hijos).
*
* @param mixed $db Base de datos o resultado de donde cargar los hijos.
- * @param bool $soloHabilitados Si es true, se cargan solo los hijos con el flag habilitado.
+ * @param bool $soloHabilitados Si es true, se cargan solo los hijos con
+ * el flag habilitado.
* @param string $orden Indica cómo ordenar los hijos cargados.
*
* @return mixed
* @access public
*/
- function cargarHijos($db, $soloHabilitados = true, $orden = 'nombre') // ~X2C
+ function cargarHijos($db, $soloHabilitados = true, $orden = 'nombre')
{
$id_field = $this->conf['id'];
$id_padre = $this->conf['padre'];
// 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.
*
* @return PEAR_Error
* @access public
*/
- function borrar($db) // ~X2C
+ function borrar($db)
{
$id_field = $this->conf['id'];
$id_padre = $this->conf['padre'];
}
return PEAR::raiseError('No hay un identificador válido para borrar');
}
- // -X2C
-} // -X2C Class :AI_DBTreeObject
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'PEAR.php';
-// ~X2C
/**
* Error que indica que no hay más resultados en una base de datos.
- *
* Es un error esperado y poco grave que sucede cada vez que se itera
* sobre un resultado de una base de datos.
*/
define('AI_ERROR_NO_RESULTADOS', 1);
/**
- * Error que indica que un padre no se puede borrar porque aún tiene
- * hijos.
- *
+ * Error que indica que un padre no se puede borrar porque aún tiene hijos.
* Es un error esperado y poco grave que sucede cuando se intenta borrar
* un elemento del tipo AI_DBTreeObject que aún tiene hijos.
*/
*/
define('AI_ERROR_ORDEN_INVALIDO', 3);
-// +X2C Class 469 :AI_Error
/**
* @package AI
* @access public
*/
class AI_Error extends PEAR_Error {
- // ~X2C
- // +X2C Operation 470
/**
* @param int $codigo Código de error.
* @param string $mensaje Mensaje para mostrar
* @return void
* @access public
*/
- function AI_Error($codigo, $mensaje = '') // ~X2C
+ function AI_Error($codigo, $mensaje = '')
{
$this->PEAR_Error($mensaje, $codigo);
}
- // -X2C
- // +X2C Operation 530
/**
* @param mixed $error Variable a evaluar si es un error.
*
* @access public
* @static
*/
- function isError($error) // ~X2C
+ function isError($error)
{
return is_a($error, 'ai_error');
}
- // -X2C
-} // -X2C Class :AI_Error
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'AI/DBTreeObject.php';
-// ~X2C
-
require_once 'AI/Error.php';
/**
*/
define('AI_GRUPOSECCIONES_CONFFILE', dirname(__FILE__).'/GrupoSecciones.ini');
-// +X2C Class 486 :AI_GrupoSecciones
/**
* Grupo de secciones.
*
var $antiguedad = 0;
/**
- * True si hay que mostrar los grupos hijos (?? FIXME).
+ * True si hay que mostrar los grupos hijos.
*
* @var bool $mostrar_hijos
* @access public
*/
var $habilitado = true;
- // ~X2C
-
- // +X2C Operation 495
/**
* @param int $grupo ID del grupo.
*
* @return void
* @access public
*/
- function AI_GrupoSecciones($grupo = 0) // ~X2C
+ function AI_GrupoSecciones($grupo = 0)
{
parent::AI_DBTreeObject($grupo, AI_GRUPOSECCIONES_CONFFILE);
}
- // -X2C
- // +X2C Operation 496
/**
* @param mixed $db Base de datos o Resultado a utilizar.
*
* @return PEAR_Error
* @access public
*/
- function cargar($db) // ~X2C
+ function cargar($db)
{
// Obtengo campos comunes.
$err = parent::cargar($db);
}
return true;
}
- // -X2C
- // +X2C Operation 497
/**
* @param DB $db DB donde guardar.
- * @param bool $nuevo Si es true, se fuerza a guardar el Grupo de Secciones como nuevo.
+ * @param bool $nuevo Si es true, se fuerza a guardar el Grupo de
+ * Secciones como nuevo.
*
* @return PEAR_Error
* @access public
*/
- function guardar($db, $nuevo = false) // ~X2C
+ function guardar($db, $nuevo = false)
{
// Guardo datos generales.
$datos = array(
}
return true;
}
- // -X2C
- // +X2C Operation 498
/**
* @param DB $db DB de donde borrar.
*
* @return PEAR_Error
* @access public
*/
- function borrar($db) // ~X2C
+ function borrar($db)
{
// Obtengo campos comunes.
$err = parent::borrar($db);
}
return true;
}
- // -X2C
- // +X2C Operation 512
/**
* Obtiene un array con una lista de secciones.
-Sólo se obtienen las secciones que todavía no pertenecen a ningún grupo. Si se especifica un grupo, se agregan las secciones de ese grupo al <em>array</em> resultante.
+ * Sólo se obtienen las secciones que todavía no pertenecen a ningún
+ * grupo. Si se especifica un grupo, se agregan las secciones de ese grupo
+ * al <em>array</em> resultante.
*
* @param DB $db Base de datos a usar para obtener los datos.
* @param int $grupo Grupo del cual obtener las secciones.
* @access public
* @static
*/
- function getSeccionesArray($db = null, $grupo = 0) // ~X2C
+ function getSeccionesArray($db = null, $grupo = 0)
{
static $conf_dav, $conf_sec;
if (!$conf_dav or !$conf_sec) {
OR s.$sec_id = $grupo
ORDER BY d.$dav_campo ASC");
}
- // -X2C
/**
* Obtiene un array con una lista de todas las secciones.
return count($secciones);
}
- // +X2C Operation 537
/**
* Obtiene el grupo al que pertenece una sección.
*
* @access public
* @static
*/
- function getGrupo($seccion, $db = null) // ~X2C
+ function getGrupo($seccion, $db = null)
{
static $conf;
if (!$conf) {
FROM $base.$tabla
WHERE $campo = " . $db->quote($seccion));
}
- // -X2C
-} // -X2C Class :AI_GrupoSecciones
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'AI/DBTreeObject.php';
-// ~X2C
-
require_once 'AI/Error.php';
/**
*/
define('AI_SERVICIO_ORDEN_LONG_NOMBRE', 2);
-// +X2C Class 413 :AI_Servicio
/**
* Servicio.
*
+ * @package AI
* @access public
*/
class AI_Servicio extends AI_DBTreeObject {
*/
var $ventana_nueva = false;
- // ~X2C
-
- // +X2C Operation 465
/**
* @param int $servicio ID del servicio.
*
* @return void
* @access public
*/
- function AI_Servicio($servicio = 0) // ~X2C
+ function AI_Servicio($servicio = 0)
{
parent::AI_DBTreeObject($servicio, AI_SERVICIO_CONFFILE);
}
- // -X2C
- // +X2C Operation 458
/**
* @param DB $db DB donde guardar.
- * @param bool $nuevo Si es true, se fuerza a guardar el Servicio como nuevo.
+ * @param bool $nuevo Si es true, se fuerza a guardar el Servicio como
+ * nuevo.
*
* @return PEAR_Error
* @access public
*/
- function guardar($db, $nuevo = false) // ~X2C
+ function guardar($db, $nuevo = false)
{
$datos = array(
'servicio_padre' => intval($this->servicio_padre),
return $err;
}
}
- // -X2C
- // +X2C Operation 539
/**
- * Carga hijos de un servicio. Si hubo error devuelve un PEAR_Error, si no hubo error, devuleve un array de objetos (los hijos).
+ * Carga hijos de un servicio.
+ * Si hubo error devuelve un PEAR_Error, si no hubo error, devuleve un
+ * array de objetos (los hijos).
*
* @param mixed $db Base de datos o resultado a usar.
- * @param bool $soloHabilitados Si es true, sólo trae los servicios habilitados.
- * @param mixed $orden Indica el orden en que se deben traer los hijos. Puede ser AI_SERVICIO_ORDEN_CANT_HIJOS, AI_SERVICIO_ORDEN_LONG_NOMBRE o un campo arbitrario.
+ * @param bool $soloHabilitados Si es true, sólo trae los servicios
+ * habilitados.
+ * @param mixed $orden Indica el orden en que se deben traer los hijos.
+ * Puede ser AI_SERVICIO_ORDEN_CANT_HIJOS,
+ * AI_SERVICIO_ORDEN_LONG_NOMBRE o un campo
+ * arbitrario.
*
* @return mixed
* @access public
*/
- function cargarHijos($db, $soloHabilitados = true, $orden = false) // ~X2C
+ function cargarHijos($db, $soloHabilitados = true, $orden = false)
{
if (!is_a($db, 'db_result')) {
if (is_int($orden)) {
}
return parent::cargarHijos($db, $soloHabilitados, $orden);
}
- // -X2C
-} // -X2C Class :AI_Servicio
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'AI/DBObject.php';
-// ~X2C
-
require_once 'AI/Error.php';
/**
*/
define('AI_SISTEMA_CONFFILE', dirname(__FILE__).'/Sistema.ini');
-// +X2C Class 416 :AI_Sistema
/**
* Sistema.
*
*/
var $tipo = 'php';
- // ~X2C
-
- // +X2C Operation 466
/**
* @param int $sistema ID del sistema.
*
* @return void
* @access public
*/
- function AI_Sistema($sistema = 0) // ~X2C
+ function AI_Sistema($sistema = 0)
{
parent::AI_DBObject($sistema, AI_SISTEMA_CONFFILE);
}
- // -X2C
- // +X2C Operation 536
/**
* @param mixed $db Base de datos o resultado de donde cargar el sistema.
*
* @return PEAR_Error
* @access public
*/
- function cargar($db) // ~X2C
+ function cargar($db)
{
$id_field = $this->conf['id'];
$id = intval($this->$id_field);
}
return true;
}
- // -X2C
- // +X2C Operation 459
/**
* @param DB $db DB donde guardar.
- * @param bool $nuevo Si es true, se fuerza a guardar el servicio como nuevo.
+ * @param bool $nuevo Si es true, se fuerza a guardar el servicio como
+ * nuevo.
*
* @return PEAR_Error
* @access public
*/
- function guardar($db, $nuevo = false) // ~X2C
+ function guardar($db, $nuevo = false)
{
$datos = array(
'icono' => $this->icono,
return $err;
}
}
- // -X2C
- // +X2C Operation 528
/**
* Obtiene un array con los identificadores de los sistemas cargados.
*
* @access public
* @static
*/
- function getSistemasArray($db, $where = '') // ~X2C
+ function getSistemasArray($db, $where = '')
{
static $conf;
if (!$conf) {
$query .= " ORDER BY SA.nombre_sistema ASC";
return $db->getAssoc($query);
}
- // -X2C
- // +X2C Operation 531
/**
* @param DB $db Base de datos de donde obtener los sistemas.
* @param bool $soloHabilitados Clausula WHERE para filtrar la búsqueda.
* @access public
* @static
*/
- function getSistemas($db, $soloHabilitados = true, $where = '') // ~X2C
+ function getSistemas($db, $soloHabilitados = true, $where = '')
{
static $conf;
if (!$conf) {
// Si no, se devuelve el error.
return $err;
}
- // -X2C
-} // -X2C Class :AI_Sistema
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'MECON/HTML/ArbolDB.php';
-// ~X2C
-// +X2C Class 535 :AI_Arbol
/**
* Arbol para generar los menúes.
*
* @access public
*/
class AI_Arbol extends MECON_HTML_ArbolDB {
- // ~X2C
- // +X2C Operation 536
/**
* Constructor.
*
- * @param mixed $objeto Objeto del cual generar el árbol. Puede ser AI_GrupoSecciones, AI_Servicio o AI_Sistema.
+ * @param mixed $objeto Objeto del cual generar el árbol. Puede ser
+ * AI_GrupoSecciones, AI_Servicio o AI_Sistema.
* @param DB &$db Base de datos de donde sacar los datos para el árbol.
* @param bool $expandir Indica si debe expandirse el árbol.
*
* @return void
* @access public
*/
- function AI_Arbol($objeto, &$db, $expandir = true) // ~X2C
+ function AI_Arbol($objeto, &$db, $expandir = true)
{
switch (get_class($objeto)) {
case 'ai_gruposecciones':
}
parent::MECON_HTML_ArbolDB($dbdata, $titulo, $tipo.'?accion='.AI_MODIF.'&id=', $expandir);
}
- // -X2C
-} // -X2C Class :AI_Arbol
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'DB.php';
-// ~X2C
-// +X2C Class 503 :AI_DB
/**
* Base de datos del Administrador de Intranet.
*
* @access public
*/
class AI_DB extends DB {
- // ~X2C
- // +X2C Operation 506
/**
- * @param string $confFile Archivo de configuración de la base de datos. Si no se especifica se toma uno por defecto del directorio de configuración.
+ * @param string $confFile Archivo de configuración de la base de datos.
+ * Si no se especifica se toma uno por defecto del directorio de
+ * configuración.
*
* @return &mixed
* @access public
*/
- function &connect($confFile = '') // ~X2C
+ function &connect($confFile = '')
{
if (!$confFile) {
$confFile = dirname(realpath(__FILE__)).'../conf/DB.ini';
$conf = parse_ini_file($confFile, true);
return DB::connect($conf['dsn'], $conf['opciones']);
}
- // -X2C
-} // -X2C Class :AI_DB
+}
?>
\ No newline at end of file
// $Id$
//
-// +X2C includes
require_once 'MECON/HTML/QuickForm.php';
-// ~X2C
-
require_once 'general.php';
// Definicion de acciones.
define('AI_BAJA', 2);
define('AI_MODIF', 4);
-// +X2C Class 507 :AI_Form
/**
* Formularios para el Administrador de Intranet.
*
* @access public
*/
class AI_Form extends MECON_HTML_QuickForm {
- // ~X2C
- // +X2C Operation 509
/**
* Construye un formulario para el objecto especificado.
*
- * @param object &$obj Objeto con el cual rellenar el formulario. Puede ser GrupoSecciones, Servicio o Sistema.
- * @param int $accion Accion que realizará el formulario a crear. Puede ser AI_ALTA, AI_BAJA o AI_MODIFICACION.
+ * @param object &$obj Objeto con el cual rellenar el formulario. Puede
+ * ser GrupoSecciones, Servicio o Sistema.
+ * @param int $accion Accion que realizará el formulario a crear.
+ * Puede ser AI_ALTA, AI_BAJA o AI_MODIFICACION.
* @param DB $db Base de datos a usar.
*
* @return void
* @access public
*/
- function iniciar(&$obj, $accion, $db) // ~X2C
+ function iniciar(&$obj, $accion, $db)
{
$tipo = substr(get_class($obj), 3);
$s_tipo = ucfirst($tipo);
);
$this->addGroup($grupo, 'botones');
}
- // -X2C
- // +X2C Operation 510
/**
* Llena un objeto con los datos del formulario.
*
- * @param mixed &$obj Objeto a llenar con los datos del formulario. Puede ser GrupoSecciones, Servicio o Sistema.
+ * @param mixed &$obj Objeto a llenar con los datos del formulario.
+ * Puede ser GrupoSecciones, Servicio o Sistema.
*
* @return void
* @access public
*/
- function llenarObjeto(&$obj) // ~X2C
+ function llenarObjeto(&$obj)
{
$tipo = substr(get_class($obj), 3);
if ($tipo == 'gruposecciones') {
$obj->icono = $this->getSubmitValue('icono');
}
}
- // -X2C
-} // -X2C Class :AI_Form
+}
?>
\ No newline at end of file