Index: openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl	17 Nov 2008 13:37:55 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl	12 Dec 2008 14:25:39 -0000	1.3
@@ -38,14 +38,7 @@
 
 set extra_vars fs_local_package_id
 
-db_foreach organizations {
-    select org.org_id, org.org_title as org_title, org.hasmetadata,
-        tree_level(o.tree_sortkey) as indent
-    from ims_cp_organizations org, acs_objects o
-    where org.org_id = o.object_id
-        and man_id = :man_id
-    order by org_id
-} {
+db_foreach organizations {} {
 
     set indent [expr $indent +1]
     set missing_text "[_ lorsm.Nothing_here]"
@@ -61,19 +54,7 @@
         append orgs_list "<TH colspan=5>Organization: $org_title ($org_id)
             </TH></TR>"
 
-    db_foreach organization_item {
-        select o.object_id,
-            repeat('&nbsp;', (tree_level(tree_sortkey) - :indent)* 2) as indent,
-            i.item_id, i.item_title as item_title, i.hasmetadata,
-            i.item_id as identifierref,
-            i.type, i.org_id, m.fs_package_id, m.folder_id, m.course_name
-        from acs_objects o, ims_cp_items i, ims_cp_manifests m
-        where o.object_type = 'ims_item'
-            and i.org_id = :org_id
-            and o.object_id = i.item_id
-            and m.man_id = :man_id
-        order by object_id, tree_sortkey
-    } {
+    db_foreach organization_item {} {
         if { [empty_string_p $identifierref] } {
             set table_item "<td colspan=6>Item: $item_id $indent AAA $item_title"
         } else {
@@ -86,19 +67,7 @@
         append orgs_list [string trim $table_item]
         set item_table ""
 
-        db_foreach student_activity {
-                    select *
-                    from lorsm_student_track lorsm, lorsm_cmi_core cmi, ims_cp_manifests manif, ims_cp_items imsitems
-                    where lorsm.community_id=:community_id
-                        and lorsm.track_id=cmi.track_id
-                        and lorsm.course_id=:man_id
-                        and manif.man_id=:man_id
-                        and cmi.man_id=:man_id
-                        and cmi.item_id=:identifierref
-                        and user_id=:user_id
-                        and imsitems.ims_item_id=cmi.item_id
-                    order by cmi.track_id asc
-        } {
+        db_foreach student_activity {} {
             set cut_start_time [string range $start_time 0 18]
             set total_total_time [expr $total_time+$session_time]
             set edit_url [export_vars -base "drill-student-singletrack" {track_id}]