Se agregan imagenes generales del boton de sistemas.

[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
 <?\r
   require_once 'MECON/HTML/Arbol/ArbolDB.php';\r

+  require_once 'DB.php';\r

 \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
   echo $arbol->toHTML();\r
 ?>\r