Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.xql 7 Feb 2006 13:51:39 -0000 1.3
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.xql 22 Feb 2006 16:09:39 -0000 1.4
@@ -61,7 +61,7 @@
- select item_id as the_item_id
+ select item_id as role_item_id
from imsld_rolesi
where identifier = :role_ref
and content_revision__is_live(role_id) = 't'
@@ -156,19 +156,42 @@
-
+
select item_id as refrenced_struct_id,
structure_id
from imsld_activity_structuresi
- where identifier = :searching_ref
+ where identifier = :ref
and content_revision__is_live(structure_id) = 't'
and component_id = :component_id
+
+
+ select item_id as refrenced_struct_id,
+ structure_id
+ from imsld_activity_structuresi
+ where identifier = :learning_activity_ref
+ and content_revision__is_live(structure_id) = 't'
+ and component_id = :component_id
+
+
+
+
+
+ select item_id as refrenced_struct_id,
+ structure_id
+ from imsld_activity_structuresi
+ where identifier = :support_activity_ref
+ and content_revision__is_live(structure_id) = 't'
+ and component_id = :component_id
+
+
+
+
update imsld_activity_structures