Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	18 Nov 2005 08:44:50 -0000	1.19
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	23 Nov 2005 11:06:33 -0000	1.20
@@ -980,7 +980,7 @@
             return $item_list
         }
         # map item with the learning_object
-            relation_add imsld_l_object_item_rel $learning_object_id $item_id
+        relation_add imsld_l_object_item_rel $learning_object_id $item_id
     } 
     return $learning_object_id
 }
@@ -1475,7 +1475,7 @@
                                       -attributes [list [list feedback_title $feedback_title]]]
             set feedback_items [$feedback_desc child all imsld:item]
             foreach feedback_item $feedback_items {
-                set item_list [imsld::parse_and_create_item -manifest $manifest \
+                set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
                                    -manifest_id $manifest_id \
                                    -item_node $feedback_item \
                                    -parent_id $parent_id \
@@ -1620,7 +1620,7 @@
                                       -attributes [list [list feedback_title $feedback_title]]]
             set feedback_items [$feedback_desc child all imsld:item]
             foreach feedback_item $feedback_items {
-                set item_list [imsld::parse_and_create_item -manifest $manifest \
+                set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
                                    -manifest_id $manifest_id \
                                    -item_node $feedback_item \
                                    -parent_id $parent_id \
@@ -2382,7 +2382,7 @@
                                       -attributes [list [list feedback_title $feedback_title]]]
             set feedback_items [$feedback_desc child all imsld:item]
             foreach feedback_item $feedback_items {
-                set item_list [imsld::parse_and_create_item -manifest $manifest \
+                set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
                                    -manifest_id $manifest_id \
                                    -item_node $feedback_item \
                                    -parent_id $parent_id \
@@ -2518,7 +2518,7 @@
                                       -attributes [list [list feedback_title $feedback_title]]]
             set feedback_items [$feedback_desc child all imsld:item]
             foreach feedback_item $feedback_items {
-                set item_list [imsld::parse_and_create_item -manifest $manifest \
+                set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
                                    -manifest_id $manifest_id \
                                    -item_node $feedback_item \
                                    -parent_id $parent_id \
@@ -2856,7 +2856,7 @@
                                       -attributes [list [list feedback_title $feedback_title]]]
             set feedback_items [$feedback_desc child all imsld:item]
             foreach feedback_item $feedback_items {
-                set item_list [imsld::parse_and_create_item -manifest $manifest \
+                set item_list [imsld::parse::parse_and_create_item -manifest $manifest \
                                    -manifest_id $manifest_id \
                                    -item_node $feedback_item \
                                    -parent_id $cr_folder_id \