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

[mecon/ai.git] / sistema / local_lib / AI / Form.php

diff --git a/sistema/local_lib/AI/Form.php b/sistema/local_lib/AI/Form.php
index 27e9bb24c49b7e4e978b745a49cbba8f33e470c9..6faef90aff3b2e9a0c4cc360139195531afd4aef 100644 (file)
--- a/sistema/local_lib/AI/Form.php
+++ b/sistema/local_lib/AI/Form.php
@@ -82,7 +82,8 @@ class AI_Form extends MECON_HTML_QuickForm {
         // Construyo con el padre y seteos generales.
         $this->renderer->updateAttributes(array('width' => '400'));
         $this->addElement('header','cabecera', $s_accion . ' ' . $s_tipo);
-        // Elementos.
+        // Elementos:
+        // ID.
         if ($tipo == 'sistema') {
             require_once 'SAMURAI/Sistema.php';
             $sistemas = array('' => '--');
@@ -105,6 +106,7 @@ class AI_Form extends MECON_HTML_QuickForm {
             }
             $fId->freeze();
         }
+        // Padre / Nombre.
         if ($tipo == 'grupo' or $tipo == 'servicio') {
             require_once 'AI/Arbol.php';
             $arbol = new AI_Arbol($obj, $db, true);
@@ -127,6 +129,7 @@ class AI_Form extends MECON_HTML_QuickForm {
                 $fNombre->setValue($obj->nombre);
             }
         }
+        // Antigüedad / Secciones / Mostrar Hijos.
         if ($tipo == 'grupo') {
             $fAntiguedad   =& $this->addElement('select', 'antiguedad', 'Antigüedad',
                 array(3 => '3 días', 1 => '1 día', 7 => '1 semana'));
@@ -144,6 +147,7 @@ class AI_Form extends MECON_HTML_QuickForm {
                 $fMostrarHijos->setChecked($obj->mostrar_hijos);
             }
         }
+        // Descripción / Necesita Logueo.
         if ($tipo == 'servicio') {
             $fDescripcion =& $this->addElement('text', 'descripcion', 'Descripción');
             $fLogueo      =& $this->addElement('checkbox','logueo', 'Necesita login');
@@ -155,12 +159,13 @@ class AI_Form extends MECON_HTML_QuickForm {
                 $fLogueo->setChecked($obj->necesita_logueo);
             }
         }
+        // Link / Link Ayuda.
         if ($tipo == 'servicio' or $tipo == 'sistema') {
             $fLink      =& $this->addElement('text', 'link', 'Enlace');
             $fLinkAyuda =& $this->addElement('text', 'link_ayuda', 'Enlace de la ayuda');
             //$fIcono     =& $this->addElement('text', 'icono', 'Ícono');
             $fIcono     =& $this->addElement('select', 'icono', 'Ícono',
-                listarArchivos('/var/www/sistemas/intranet/www/images', $tipo . '_', '\.gif'));
+                listarArchivos('/var/www/sistemas/intranet/sistema/www/images', $tipo . '_', '\.gif'));
             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fLink->setValue($obj->link);
@@ -173,10 +178,18 @@ class AI_Form extends MECON_HTML_QuickForm {
                 $this->addRule('icono', 'Debe ingresar un ícono.',  'required');
             }
         }
+        // Tipo de sistema.
+        if ($tipo == 'sistema') {
+            $fTipo =& $this->addElement('checkbox', 'tipo', 'Programado en EmbPerl');
+            // Carga datos.
+            if ($accion & (AI_BAJA | AI_MODIF)) {
+                $fTipo->setChecked($obj->tipo == 'embperl');
+            }
+        }
+        // Habilitado.
         $fHabilitado =& $this->addElement('checkbox','habilitado', 'Está habilitado',
             '', array('checked' => 'checked'));
-        // Carga datos.
-        if ($accion & (AI_BAJA | AI_MODIF)) {
+        if ($accion & (AI_BAJA | AI_MODIF)) { // Carga datos.
             $fHabilitado->setChecked($obj->habilitado);
         }
         // Botones.
@@ -228,6 +241,9 @@ class AI_Form extends MECON_HTML_QuickForm {
             $obj->descripcion     = $this->getSubmitValue('descripcion');
             $obj->necesita_logueo = $this->getSubmitValue('logueo');
         }
+        if ($tipo == 'sistema') {
+            $obj->tipo = $this->getSubmitValue('tipo') ? 'embperl' : 'php';
+        }
         if ($tipo == 'servicio' or $tipo == 'sistema') {
             $obj->link       = $this->getSubmitValue('link');
             $obj->link_ayuda = $this->getSubmitValue('link_ayuda');