Index: openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl,v
diff -u -r1.13.4.2 -r1.13.4.3
--- openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl	26 Jun 2007 10:27:55 -0000	1.13.4.2
+++ openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl	26 Jun 2007 15:57:31 -0000	1.13.4.3
@@ -426,7 +426,8 @@
         }
         
         # 1. items --> learning objectives, prerequisites, roles, 
-        #      learning objects, activity description, information(activity structures)
+        #      learning objects, activity description, information(activity structures),
+	#      feedback
         
         # 1.1 learning objectives items
         set linear_item_list [db_list item_in_imsld_loi {
@@ -512,6 +513,16 @@
             and ast.component_id = :component_item_id
         }]]
 
+        # 1.8. feedbak (learning activities)
+        set linear_item_list [concat $linear_item_list [db_list item_in_la_feedback {
+            select ii.imsld_item_id
+            from acs_rels ar, imsld_itemsi ii, imsld_learning_activitiesi la
+            where ar.object_id_one = la.on_completion_id
+            and ar.object_id_two = ii.item_id
+            and ar.rel_type = 'imsld_feedback_rel'
+            and la.component_id = :component_item_id
+        }]]
+
         foreach imsld_item_id $linear_item_list {
             db_foreach nested_associated_items {
                 select ii.imsld_item_id, ii.item_id,