Se agrega un campo para indicar si el sistema está hecho en EmbPerl.

[mecon/ai.git] / lib / AI / Sistema.php

diff --git a/lib/AI/Sistema.php b/lib/AI/Sistema.php
index a2a20451559a4877fd6b8f82ea1c51b60d3e5add..2f65ea84da5b998c6d4828aca023f272c3f4d1e7 100644 (file)
--- a/lib/AI/Sistema.php
+++ b/lib/AI/Sistema.php
@@ -55,7 +55,7 @@ class AI_Sistema extends AI_DBObject {
     var $sistema = 0;
 
     /**
-     * Nombre del sistema (slo de lectura, extra?o de SAMURAI).
+     * Nombre del sistema (sólo de lectura, extraído de SAMURAI).
      *
      * @var    string $nombre
      * @access public
@@ -63,7 +63,7 @@ class AI_Sistema extends AI_DBObject {
     var $nombre = '';
 
     /**
-     * Descripcin del sistema (slo de lectura, extra?o de SAMURAI).
+     * Descripción del sistema (sólo de lectura, extraído de SAMURAI).
      *
      * @var    string $descripcion
      * @access public
@@ -71,7 +71,7 @@ class AI_Sistema extends AI_DBObject {
     var $descripcion = '';
 
     /**
-     * ?ono del sistema.
+     * Ícono del sistema.
      *
      * @var    string $icono
      * @access public
@@ -102,6 +102,12 @@ class AI_Sistema extends AI_DBObject {
      */
     var $habilitado = true;
 
+    /**
+     * @var    string $tipo
+     * @access public
+     */
+    var $tipo = 'php';
+
     // ~X2C
 
     // +X2C Operation 466
@@ -133,7 +139,6 @@ class AI_Sistema extends AI_DBObject {
             $db     = $result->dbh;
         // Si no es un resultado, hago el query.
         } else {
-            // FIXME - ver como manejar JOINs - Ver de hacer el JOIN tambien en cargar.
             $result = $db->query(
                 "SELECT AI.*, SA.nombre_sistema as nombre, SA.desc_sistema as descripcion
                     FROM {$this->conf['base']}.{$this->conf['tabla']} as AI, samurai.sistema as SA
@@ -172,6 +177,7 @@ class AI_Sistema extends AI_DBObject {
             'link'       => $this->link,
             'link_ayuda' => $this->link_ayuda,
             'habilitado' => $this->habilitado ? 1 : 0,
+            'tipo'       => $this->tipo,
         );
         $err = parent::guardar($db, $datos, $nuevo);
         if (PEAR::isError($err)) {
@@ -185,7 +191,7 @@ class AI_Sistema extends AI_DBObject {
      * Obtiene un array con los identificadores de los sistemas cargados.
      *
      * @param  DB $db Base de datos de la cual obtener los sistemas.
-     * @param  string $where Clausula WHERE para filtrar la bsqueda.
+     * @param  string $where Clausula WHERE para filtrar la búsqueda.
      *
      * @return array
      * @access public
@@ -198,7 +204,6 @@ class AI_Sistema extends AI_DBObject {
             $conf = parse_ini_file(AI_SISTEMA_CONFFILE, true);
         }
         extract($conf);
-        // FIXME - ver como manejar JOINs - Ver de hacer el JOIN tambien en cargar.
         $query = "
             SELECT    SA.id_sistema, SA.nombre_sistema
             FROM      samurai.sistema as SA
@@ -216,8 +221,8 @@ class AI_Sistema extends AI_DBObject {
     // +X2C Operation 531
     /**
      * @param  DB $db Base de datos de donde obtener los sistemas.
-     * @param  bool $soloHabilitados Clausula WHERE para filtrar la bsqueda.
-     * @param  string $where Clausula WHERE para filtrar la bsqueda.
+     * @param  bool $soloHabilitados Clausula WHERE para filtrar la búsqueda.
+     * @param  string $where Clausula WHERE para filtrar la búsqueda.
      *
      * @return array
      * @access public
@@ -231,7 +236,6 @@ class AI_Sistema extends AI_DBObject {
         }
         $id_field = $conf['id'];
         $tabla    = $conf['base'].'.'.$conf['tabla'];
-        // FIXME - ver como manejar JOINs - Ver de hacer el JOIN tambien en cargar.
         $query = "
             SELECT AI.*, SA.nombre_sistema as nombre, SA.desc_sistema as descripcion
             FROM   $tabla as AI, samurai.sistema as SA