Index: openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	5 Feb 2009 17:18:18 -0000	1.9
+++ openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	17 Jun 2009 08:00:01 -0000	1.10
@@ -129,6 +129,21 @@
 				       -sort_order $sort_order \
 				       -number_elements $activities_number]
 
+		set del_node [$dom_doc createElement a]
+		$del_node setAttribute onclick "return loadTree('[export_vars -base activity-del {run_id activity_id}]')"
+		$del_node setAttribute href "#no"
+		$del_node setAttribute title "[_ imsld.Delete_URL]"
+
+		set del_icon [$dom_doc createElement img]
+		$del_node appendChild $del_icon
+		$del_icon setAttribute src "/resources/acs-subsite/Delete16.gif"
+		$del_icon setAttribute alt "[_ imsld.Delete]"
+
+		$del_node appendChild $del_icon
+		$activity_node appendChild [$dom_doc createTextNode " \["]
+		$activity_node appendChild $del_node
+		$activity_node appendChild [$dom_doc createTextNode "]"]
+
                 set completed_list [linsert $completed_list \
 					$sort_order [$activity_node asList]]
             }