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 f17e12d2222d36547250b1e636c65d4f95226f1b..f83c623d9f1b94489dd8d813a4dea2d0914985c7 100644 (file)
--- a/sistema/local_lib/AI/Form.php
+++ b/sistema/local_lib/AI/Form.php
@@ -87,7 +87,13 @@ class AI_Form extends MECON_HTML_QuickForm {
         if ($tipo == 'sistema') {
             require_once 'SAMURAI/Sistema.php';
             $sistemas = array('' => '--');
-            $sistemas += AI_Sistema::getSistemasArray($db, false);
+            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');
         }