Se corrige un bugcito.

[mecon/meconlib.git] / test / prueba_arboldb.php

diff --git a/test/prueba_arboldb.php b/test/prueba_arboldb.php
index aa856a1c945626a01d4655267edadfdd73faf517..f57d7f54582665eb63200fea0b2b0d518087573a 100644 (file)
--- a/test/prueba_arboldb.php
+++ b/test/prueba_arboldb.php
@@ -1,6 +1,19 @@
 <?\r
   require_once 'MECON/HTML/Arbol/ArbolDB.php';\r
+  require_once 'DB.php';\r
 \r
-  $arbol = new HTML_ArbolDB($dat, '/MECON/images/arbol_noticias.gif');\r
+\r
+  $dsn = 'mysql://intranet:intranet@bal747f.mecon.ar/intranet';\r
+  $db = DB::connect($dsn,true);\r
+\r
+  $dbdata = array(\r
+      'db' => $db,\r
+      'tabla' => 'grupo_secciones',\r
+      'id' => 'grupo',\r
+      'nombre' => 'nombre',\r
+      'id_padre' => 'grupo_padre',\r
+      'prepend_link' => 'noticias.php?grupo=');\r
+\r
+  $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');\r
   echo $arbol->toHTML();\r
 ?>\r