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

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

diff --git a/sistema/local_lib/AI/Arbol.php b/sistema/local_lib/AI/Arbol.php
index 02f55f389e76f1669b40e5307ff6b641133b5a89..a9691abebf3d28b449df03613c47467df49a4152 100644 (file)
--- a/sistema/local_lib/AI/Arbol.php
+++ b/sistema/local_lib/AI/Arbol.php
@@ -82,7 +82,7 @@ class AI_Arbol extends MECON_HTML_ArbolDB {
         );
         if ($tipo == 'grupo' or $tipo == 'servicio') {
             $dbdata['id_padre'] = $tipo . '_padre';
-        } elseif ($tipo == 'sistema') { // FIXME - horrible!!!
+        } elseif ($tipo == 'sistema') { // FIXME - es bastante poco ortodoxo esto.
             $dbdata =
                 array(
                     'tabla'         => "intranet.$tabla as A, samurai.sistema as S",