Index: openacs-4/packages/imsld/www/admin/monitor/monitor-tree.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/monitor-tree.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/admin/monitor/monitor-tree.adp	8 Jul 2008 15:35:47 -0000	1.6
+++ openacs-4/packages/imsld/www/admin/monitor/monitor-tree.adp	19 Feb 2009 13:05:34 -0000	1.7
@@ -15,7 +15,7 @@
   
   @user_activity;noquote@
   
-  @html_tree;noquote@
+  <include src="../../../lib/monitor/activity-tree" run_id="@run_id@" />
   
   @aux_html_tree;noquote@
   
Index: openacs-4/packages/imsld/www/admin/monitor/monitor-tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/monitor-tree.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/imsld/www/admin/monitor/monitor-tree.tcl	22 Oct 2008 18:27:15 -0000	1.7
+++ openacs-4/packages/imsld/www/admin/monitor/monitor-tree.tcl	19 Feb 2009 13:05:34 -0000	1.8
@@ -102,26 +102,6 @@
 
 set user_activity [$dom_root asXML]
 
-# Create the activity tree
-dom createDocument ul doc
-set dom_root [$doc documentElement]
-$dom_root setAttribute class "mktree"
-set imsld_title_node [$doc createElement li]
-$imsld_title_node setAttribute class "liOpen"
-set text [$doc createTextNode "$imsld_title"] 
-$imsld_title_node appendChild $text
-$dom_root appendChild $imsld_title_node
-
-set activities_node [$doc createElement ul]
-
-imsld::monitor::activities_tree -run_id $run_id \
-    -dom_node $activities_node \
-    -dom_doc $doc
-
-$imsld_title_node appendChild $activities_node
-    
-set html_tree [$dom_root asXML]
-
 # runtime generated activities (notifications, level C)
 if { [db_string generated_acitivties_p {
     select count(*)