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.15 -r1.15.2.1
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	7 Jun 2006 18:44:04 -0000	1.15
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	10 Jul 2007 16:20:10 -0000	1.15.2.1
@@ -613,13 +613,13 @@
     # that could be expensive if the tree is long or deep.
     array set visited_items [list]
     while { $count < $items_count } {
-        ns_log notice "loop [incr i]"
+        ns_log debug "lorsm::get_items_indent loop [incr i]"
         if {$i > 2} {break}
 	foreach item $items_list {
 	    set item_id [lindex $item 0]
-            ns_log notice "item_id $item_id [info exists visited_items($item_id)]"
+            ns_log debug "lorsm::get_items_indent item_id $item_id [info exists visited_items($item_id)]"
             if {![info exists visited_items($item_id)]} {
-            ns_log notice "adding to array item_id $item_id"                
+            ns_log debug "lorsm::get_items_indent adding to array item_id $item_id"                
                 set visited_items($item_id) $item_id
                 set indent [expr [lindex $item 1] + 1]
                 foreach ims_item_id [db_list get_items {select ims_item_id from ims_cp_items where parent_item = :item_id and org_id = :org_id}] {