Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	31 May 2006 10:00:51 -0000	1.11
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	31 May 2006 10:50:05 -0000	1.12
@@ -351,16 +351,15 @@
 		order by
 		org_id
 	} {
-
-		db_foreach sql {		   
+		db_foreach sql {		               
 			SELECT
 			(tree_level(tree_sortkey) - :indent) as indent,
-			i.ims_item_id,
+			i.ims_item_id as item_id,
 			i.item_title as item_title
 			FROM 
 			acs_objects o, ims_cp_items i
 			WHERE 
-			o.object_type = 'ims_item'
+			o.object_type = 'ims_item_object'
 			AND
 			i.org_id = :org_id
 			AND