]> git.llucax.com Git - mecon/ai.git/commitdiff
Se sacan las marcas del xmi2code porque no anda bien con las versiones nuevas de...
authorLeandro Lucarella <llucax@gmail.com>
Mon, 10 Nov 2003 14:21:47 +0000 (14:21 +0000)
committerLeandro Lucarella <llucax@gmail.com>
Mon, 10 Nov 2003 14:21:47 +0000 (14:21 +0000)
lib/AI/DBObject.php
lib/AI/DBTreeObject.php
lib/AI/Error.php
lib/AI/GrupoSecciones.php
lib/AI/Servicio.php
lib/AI/Sistema.php
sistema/local_lib/AI/Arbol.php
sistema/local_lib/AI/DB.php
sistema/local_lib/AI/Form.php

index aa51692193885c77efe99a969a48369b827b5803..6de59cc26a112991000e1098cbf2124711fb65e2 100644 (file)
@@ -27,7 +27,6 @@
 // $Id$
 //
 
-// +X2C Class 516 :AI_DBObject
 /**
  * Objecto con capacidad de guardarse, cargarse y borrarse de una base de datos.
  *
@@ -42,9 +41,6 @@ class AI_DBObject {
      */
     var $conf = array();
 
-    // ~X2C
-
-    // +X2C Operation 519
     /**
      * @param  int $id Identificador del objeto a cargar.
      * @param  string $confFile Archivo de configuración del objeto.
@@ -52,7 +48,7 @@ class AI_DBObject {
      * @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);
@@ -63,16 +59,14 @@ class AI_DBObject {
                $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);
@@ -102,18 +96,19 @@ class AI_DBObject {
         }
         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'];
@@ -141,16 +136,14 @@ class AI_DBObject {
         }
         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'];
@@ -165,19 +158,16 @@ class AI_DBObject {
         }
         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
index 994f8f5bd93913bf7e5b0b01478c626ea56b9479..b322043309fac634c86b56a86b7886471f1012b2 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'AI/DBObject.php';
-// ~X2C
 
-// +X2C Class 524 :AI_DBTreeObject
 /**
  * @package AI
  * @access public
@@ -57,9 +54,6 @@ class AI_DBTreeObject extends AI_DBObject {
         return $this->_hijos;
     }
 
-    // ~X2C
-
-    // +X2C Operation 526
     /**
      * @param  int $id Identificador del objecto.
      * @param  string $confFile Configuración del objeto.
@@ -67,24 +61,25 @@ class AI_DBTreeObject extends AI_DBObject {
      * @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'];
@@ -123,9 +118,7 @@ class AI_DBTreeObject extends AI_DBObject {
         // 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.
      *
@@ -134,7 +127,7 @@ class AI_DBTreeObject extends AI_DBObject {
      * @return PEAR_Error
      * @access public
      */
-    function borrar($db) // ~X2C
+    function borrar($db)
     {
                $id_field = $this->conf['id'];
                $id_padre = $this->conf['padre'];
@@ -159,8 +152,7 @@ class AI_DBTreeObject extends AI_DBObject {
         }
         return PEAR::raiseError('No hay un identificador válido para borrar');
     }
-    // -X2C
 
-} // -X2C Class :AI_DBTreeObject
+}
 
 ?>
\ No newline at end of file
index 3af3bef6b5bcaff53f0c0f87e9ef853c7eec7981..f0609e89d0661af1867e1392e6758d4d52b2e233 100644 (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.
  */
@@ -54,15 +49,12 @@ define('AI_ERROR_TIENE_HIJOS', 2);
  */
 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
@@ -70,13 +62,11 @@ class AI_Error extends PEAR_Error {
      * @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.
      *
@@ -84,12 +74,11 @@ class AI_Error extends PEAR_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
index eef18103d714156ece478a4ba9075f4e7d6a24b5..b7dc567562f6e6a5d60ae19e04074966b1dff2eb 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'AI/DBTreeObject.php';
-// ~X2C
-
 require_once 'AI/Error.php';
 
 /**
@@ -38,7 +35,6 @@ require_once 'AI/Error.php';
  */
 define('AI_GRUPOSECCIONES_CONFFILE', dirname(__FILE__).'/GrupoSecciones.ini');
 
-// +X2C Class 486 :AI_GrupoSecciones
 /**
  * Grupo de secciones.
  *
@@ -85,7 +81,7 @@ class AI_GrupoSecciones extends AI_DBTreeObject {
     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
@@ -100,29 +96,24 @@ class AI_GrupoSecciones extends AI_DBTreeObject {
      */
     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);
@@ -174,17 +165,16 @@ class AI_GrupoSecciones extends AI_DBTreeObject {
         }
         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(
@@ -217,16 +207,14 @@ class AI_GrupoSecciones extends AI_DBTreeObject {
         }
         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);
@@ -243,12 +231,12 @@ class AI_GrupoSecciones extends AI_DBTreeObject {
         }
         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.
@@ -257,7 +245,7 @@ S
      * @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) {
@@ -276,7 +264,6 @@ S
                     OR    s.$sec_id = $grupo
                 ORDER BY  d.$dav_campo ASC");
     }
-    // -X2C
 
     /**
      * Obtiene un array con una lista de todas las secciones.
@@ -353,7 +340,6 @@ S
         return count($secciones);
     }
 
-    // +X2C Operation 537
     /**
      * Obtiene el grupo al que pertenece una sección.
      *
@@ -364,7 +350,7 @@ S
      * @access public
      * @static
      */
-    function getGrupo($seccion, $db = null) // ~X2C
+    function getGrupo($seccion, $db = null)
     {
         static $conf;
         if (!$conf) {
@@ -377,8 +363,7 @@ S
                 FROM  $base.$tabla
                 WHERE $campo = " . $db->quote($seccion));
     }
-    // -X2C
 
-} // -X2C Class :AI_GrupoSecciones
+}
 
 ?>
\ No newline at end of file
index 6928d32b6e6c56387ad322ae630ffe738ac20821..ea6c13f53c3b9e8224988dc2e1134efaee882a7f 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'AI/DBTreeObject.php';
-// ~X2C
-
 require_once 'AI/Error.php';
 
 /**
@@ -50,10 +47,10 @@ define('AI_SERVICIO_ORDEN_LONG_HIJOS', 1);
  */
 define('AI_SERVICIO_ORDEN_LONG_NOMBRE', 2);
 
-// +X2C Class 413 :AI_Servicio
 /**
  * Servicio.
  *
+ * @package AI
  * @access public
  */
 class AI_Servicio extends AI_DBTreeObject {
@@ -135,30 +132,26 @@ 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),
@@ -175,20 +168,24 @@ class AI_Servicio extends AI_DBTreeObject {
             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)) {
@@ -233,8 +230,7 @@ class AI_Servicio extends AI_DBTreeObject {
         }
         return parent::cargarHijos($db, $soloHabilitados, $orden);
     }
-    // -X2C
 
-} // -X2C Class :AI_Servicio
+}
 
 ?>
\ No newline at end of file
index 2f65ea84da5b998c6d4828aca023f272c3f4d1e7..bb3be575ca17990da1aea24bee3136c7e23de959 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'AI/DBObject.php';
-// ~X2C
-
 require_once 'AI/Error.php';
 
 /**
@@ -38,7 +35,6 @@ require_once 'AI/Error.php';
  */
 define('AI_SISTEMA_CONFFILE', dirname(__FILE__).'/Sistema.ini');
 
-// +X2C Class 416 :AI_Sistema
 /**
  * Sistema.
  *
@@ -108,29 +104,24 @@ class AI_Sistema extends AI_DBObject {
      */
     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);
@@ -160,17 +151,16 @@ class AI_Sistema extends AI_DBObject {
         }
         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,
@@ -184,9 +174,7 @@ class AI_Sistema extends AI_DBObject {
             return $err;
         }
     }
-    // -X2C
 
-    // +X2C Operation 528
     /**
      * Obtiene un array con los identificadores de los sistemas cargados.
      *
@@ -197,7 +185,7 @@ class AI_Sistema extends AI_DBObject {
      * @access public
      * @static
      */
-    function getSistemasArray($db, $where = '') // ~X2C
+    function getSistemasArray($db, $where = '')
     {
         static $conf;
         if (!$conf) {
@@ -216,9 +204,7 @@ class AI_Sistema extends AI_DBObject {
         $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.
@@ -228,7 +214,7 @@ class AI_Sistema extends AI_DBObject {
      * @access public
      * @static
      */
-    function getSistemas($db, $soloHabilitados = true, $where = '') // ~X2C
+    function getSistemas($db, $soloHabilitados = true, $where = '')
     {
         static $conf;
         if (!$conf) {
@@ -267,8 +253,7 @@ class AI_Sistema extends AI_DBObject {
         // Si no, se devuelve el error.
         return $err;
     }
-    // -X2C
 
-} // -X2C Class :AI_Sistema
+}
 
 ?>
\ No newline at end of file
index a9691abebf3d28b449df03613c47467df49a4152..aa7241b9aaa19718cb7291e8483c9d3a52728710 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'MECON/HTML/ArbolDB.php';
-// ~X2C
 
-// +X2C Class 535 :AI_Arbol
 /**
  * Arbol para generar los menúes.
  *
@@ -39,20 +36,19 @@ require_once 'MECON/HTML/ArbolDB.php';
  * @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':
@@ -94,8 +90,7 @@ class AI_Arbol extends MECON_HTML_ArbolDB {
         }
         parent::MECON_HTML_ArbolDB($dbdata, $titulo, $tipo.'?accion='.AI_MODIF.'&id=', $expandir);
     }
-    // -X2C
 
-} // -X2C Class :AI_Arbol
+}
 
 ?>
\ No newline at end of file
index 3cf2e8451f290cc2cca31ddaef5beef22462c378..c91b688a4f50933de7893cc3b9d6eada77a88481 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'DB.php';
-// ~X2C
 
-// +X2C Class 503 :AI_DB
 /**
  * Base de datos del Administrador de Intranet.
  *
@@ -39,16 +36,16 @@ require_once 'DB.php';
  * @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';
@@ -56,9 +53,8 @@ class AI_DB extends DB {
         $conf = parse_ini_file($confFile, true);
         return DB::connect($conf['dsn'], $conf['opciones']);
     }
-    // -X2C
 
 
-} // -X2C Class :AI_DB
+}
 
 ?>
\ No newline at end of file
index 0d26902ce1ffd21f6533a370e8e5954497aad7d1..e3d5ce1d4d50a6f0f110c17cc02af426bb5ef687 100644 (file)
 // $Id$
 //
 
-// +X2C includes
 require_once 'MECON/HTML/QuickForm.php';
-// ~X2C
-
 require_once 'general.php';
 
 // Definicion de acciones.
@@ -38,7 +35,6 @@ define('AI_ALTA',   1);
 define('AI_BAJA',   2);
 define('AI_MODIF',  4);
 
-// +X2C Class 507 :AI_Form
 /**
  * Formularios para el Administrador de Intranet.
  *
@@ -46,20 +42,20 @@ define('AI_MODIF',  4);
  * @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);
@@ -207,18 +203,17 @@ class AI_Form extends MECON_HTML_QuickForm {
         );
         $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') {
@@ -250,8 +245,7 @@ class AI_Form extends MECON_HTML_QuickForm {
             $obj->icono      = $this->getSubmitValue('icono');
         }
     }
-    // -X2C
 
-} // -X2C Class :AI_Form
+}
 
 ?>
\ No newline at end of file