Se corrigio los nuevos nombres para MECON_HTML_Arbol y MECON_HTML_ArbolDB.

[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 804ed27148d8c401d2e9993a98f060c2c83a9896..f83c623d9f1b94489dd8d813a4dea2d0914985c7 100644 (file)
--- a/sistema/local_lib/AI/Form.php
+++ b/sistema/local_lib/AI/Form.php
@@ -87,12 +87,12 @@ class AI_Form extends MECON_HTML_QuickForm {
         if ($tipo == 'sistema') {
             require_once 'SAMURAI/Sistema.php';
             $sistemas = array('' => '--');
-            $cargados = AI_Sistema::getSistemasArray($db);
-            foreach (SAMURAI_Sistema::getArraySistemas($db) as $id => $nom) {
-                if (!in_array($id, $cargados)
-                        or ($accion & (AI_BAJA | AI_MODIF) and $id == $obj->$tipo)) {
-                    $sistemas[$id] = $nom;
-                }
+            if ($accion & AI_ALTA) {
+                // Si es un alta, tomo una lista de sistemas aún no agregados.
+                $sistemas += AI_Sistema::getSistemasArray($db);
+            } else {
+                // Si no, tomo una lista completa de sistemas.
+                $sistemas += SAMURAI_Sistema::getArraySistemas($db);
             }
             $fId =& $this->addElement('select', $tipo, 'Sistema', $sistemas);
             $this->addRule($tipo, 'Debe ingresar un sistema.', 'required');