From 0030a5e4c8ffc960a1ab7413eb1cc1ef111bf366 Mon Sep 17 00:00:00 2001
From: Gonzalo Merayo <merayo@gmail.com>
Date: Tue, 24 Jun 2003 20:02:28 +0000
Subject: [PATCH] Demo usando ArbolDB

---
 sistema/www/noticias.php  | 15 ++++++++++++++-
 sistema/www/servicios.php | 13 +++++++++++++
 sistema/www/sistemas.php  | 12 ++++++++++++
 3 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/sistema/www/noticias.php b/sistema/www/noticias.php
index 08f1635..0ffde4d 100644
--- a/sistema/www/noticias.php
+++ b/sistema/www/noticias.php
@@ -7,7 +7,20 @@
 <table width='760' border='0'>
   <tr>
     <td width='160' valign='top'>
-      <? include '../../../meconlib/tronco/test/prueba_arbol.php'?>
+      <?
+          require_once '../local_lib/intranetdb.php';
+          require_once 'MECON/HTML/Arbol/ArbolDB.php';
+          $db = IntranetDB::connect();
+	  $dbdata = array(
+	        'db' => $db,
+                'tabla' => 'grupo_secciones',
+	        'id' => 'grupo',
+	        'nombre' => 'nombre',
+	        'id_padre' => 'grupo_padre',
+	        'prepend_link' => 'noticias.php?grupo=');
+	  $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
+	  echo $arbol->toHTML();
+     ?>
     </td>
     <td width='600'>
       <? include 'noticias.htm'?>
diff --git a/sistema/www/servicios.php b/sistema/www/servicios.php
index ebc9544..e1ba91d 100644
--- a/sistema/www/servicios.php
+++ b/sistema/www/servicios.php
@@ -3,5 +3,18 @@
   require_once '../local_lib/copete.php';
   $c = new Copete('servicios');
   echo $c->toHTML();
+
+  require_once '../local_lib/intranetdb.php';
+  require_once 'MECON/HTML/Arbol/ArbolDB.php';
+  $db = IntranetDB::connect();
+  $dbdata = array(
+       'db' => $db,
+       'tabla' => 'servicio',
+       'id' => 'servicio',
+       'nombre' => 'nombre',
+       'id_padre' => 'servicio_padre',
+       'link' => 'link');
+  $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
+  echo $arbol->toHTML();
 ?>
 </body>
diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 3897cfc..30bb291 100644
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -3,5 +3,17 @@
   require_once '../local_lib/copete.php';
   $c = new Copete('sistemas');
   echo $c->toHTML();
+  
+  require_once '../local_lib/intranetdb.php';
+  require_once 'MECON/HTML/Arbol/ArbolDB.php';
+  $db = IntranetDB::connect();
+  $dbdata = array(
+       'db' => $db,
+       'tabla' => 'sistema',
+       'id' => 'sistema',
+       'nombre' => 'sistema',
+       'link' => 'link');
+  $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
+  echo $arbol->toHTML();
 ?>
 </body>
-- 
2.43.0