Index: openacs-4/packages/imsld/lib/activity-tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/activity-tree.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/lib/activity-tree.tcl	18 Feb 2009 19:01:13 -0000	1.1
+++ openacs-4/packages/imsld/lib/activity-tree.tcl	23 Jun 2009 17:04:17 -0000	1.2
@@ -34,5 +34,12 @@
     set act_item_id [lindex $role_part_list 4]
     set play_id [lindex $role_part_list 5]
 
-    multirow append activities $activity_id $type $play_id $act_id $role_part_id
+    if {$type ne {structure}} {
+	multirow append activities $activity_id $type $play_id $act_id $role_part_id
+    } else {
+	set started_p [db_0or1row as_started_p { *SQL* }]
+	if { $started_p } {
+	    multirow append activities $activity_id $type $play_id $act_id $role_part_id
+	}
+    }
 }