Se agrega el checkbox para abrir en ventana nueva.

[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 6faef90aff3b2e9a0c4cc360139195531afd4aef..52c565ea1a17199b57d2bfb9e976ee9954d9af7a 100644 (file)
--- a/sistema/local_lib/AI/Form.php
+++ b/sistema/local_lib/AI/Form.php
@@ -27,10 +27,7 @@
 // $Id$
 //
 
 // $Id$
 //
 

-// +X2C includes

 require_once 'MECON/HTML/QuickForm.php';
 require_once 'MECON/HTML/QuickForm.php';

-// ~X2C
-

 require_once 'general.php';
 
 // Definicion de acciones.
 require_once 'general.php';
 
 // Definicion de acciones.


@@ -38,7 +35,6 @@ define('AI_ALTA',   1);
 define('AI_BAJA',   2);
 define('AI_MODIF',  4);
 
 define('AI_BAJA',   2);
 define('AI_MODIF',  4);
 

-// +X2C Class 507 :AI_Form

 /**
  * Formularios para el Administrador de Intranet.
  *
 /**
  * Formularios para el Administrador de Intranet.
  *


@@ -46,20 +42,20 @@ define('AI_MODIF',  4);
  * @access public
  */
 class AI_Form extends MECON_HTML_QuickForm {
  * @access public
  */
 class AI_Form extends MECON_HTML_QuickForm {

-    // ~X2C

 
 

-    // +X2C Operation 509

     /**
      * Construye un formulario para el objecto especificado.
      *
     /**
      * 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
      */
      * @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);
     {
         $tipo   = substr(get_class($obj), 3);
         $s_tipo = ucfirst($tipo);


@@ -151,12 +147,14 @@ class AI_Form extends MECON_HTML_QuickForm {
         if ($tipo == 'servicio') {
             $fDescripcion =& $this->addElement('text', 'descripcion', 'Descripción');
             $fLogueo      =& $this->addElement('checkbox','logueo', 'Necesita login');
         if ($tipo == 'servicio') {
             $fDescripcion =& $this->addElement('text', 'descripcion', 'Descripción');
             $fLogueo      =& $this->addElement('checkbox','logueo', 'Necesita login');

+            $fVentana     =& $this->addElement('checkbox','ventana', 'Abrir en ventana nueva');

             // Validación
             $this->addRule('descripcion',   'Debe ingresar una descripción.',   'required');
             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fDescripcion->setValue($obj->descripcion);
                 $fLogueo->setChecked($obj->necesita_logueo);
             // Validación
             $this->addRule('descripcion',   'Debe ingresar una descripción.',   'required');
             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fDescripcion->setValue($obj->descripcion);
                 $fLogueo->setChecked($obj->necesita_logueo);

+                $fVentana->setChecked($obj->ventana_nueva);

             }
         }
         // Link / Link Ayuda.
             }
         }
         // Link / Link Ayuda.


@@ -180,7 +178,7 @@ class AI_Form extends MECON_HTML_QuickForm {
         }
         // Tipo de sistema.
         if ($tipo == 'sistema') {
         }
         // Tipo de sistema.
         if ($tipo == 'sistema') {

-            $fTipo =& $this->addElement('checkbox', 'tipo', 'Programado en EmbPerl');
+            $fTipo =& $this->addElement('checkbox', 'tipo', 'Usa EmbPerl');

             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fTipo->setChecked($obj->tipo == 'embperl');
             // Carga datos.
             if ($accion & (AI_BAJA | AI_MODIF)) {
                 $fTipo->setChecked($obj->tipo == 'embperl');


@@ -207,18 +205,17 @@ class AI_Form extends MECON_HTML_QuickForm {
         );
         $this->addGroup($grupo, 'botones');
     }
         );
         $this->addGroup($grupo, 'botones');
     }

-    // -X2C

 
 

-    // +X2C Operation 510

     /**
      * Llena un objeto con los datos del formulario.
      *
     /**
      * 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
      */
      *
      * @return void
      * @access public
      */

-    function llenarObjeto(&$obj) // ~X2C
+    function llenarObjeto(&$obj)

     {
         $tipo  = substr(get_class($obj), 3);
         if ($tipo == 'gruposecciones') {
     {
         $tipo  = substr(get_class($obj), 3);
         if ($tipo == 'gruposecciones') {


@@ -240,6 +237,7 @@ class AI_Form extends MECON_HTML_QuickForm {
         if ($tipo == 'servicio') {
             $obj->descripcion     = $this->getSubmitValue('descripcion');
             $obj->necesita_logueo = $this->getSubmitValue('logueo');
         if ($tipo == 'servicio') {
             $obj->descripcion     = $this->getSubmitValue('descripcion');
             $obj->necesita_logueo = $this->getSubmitValue('logueo');

+            $obj->ventana_nueva   = $this->getSubmitValue('ventana');

         }
         if ($tipo == 'sistema') {
             $obj->tipo = $this->getSubmitValue('tipo') ? 'embperl' : 'php';
         }
         if ($tipo == 'sistema') {
             $obj->tipo = $this->getSubmitValue('tipo') ? 'embperl' : 'php';


@@ -250,8 +248,7 @@ class AI_Form extends MECON_HTML_QuickForm {
             $obj->icono      = $this->getSubmitValue('icono');
         }
     }
             $obj->icono      = $this->getSubmitValue('icono');
         }
     }

-    // -X2C

 
 

-} // -X2C Class :AI_Form
+}

 
 ?>
\ No newline at end of file
 
 ?>
\ No newline at end of file