Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-2.tcl,v
diff -u -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/drill-student-2.tcl	11 Jul 2006 20:43:13 -0000	1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-2.tcl	5 Dec 2006 10:53:19 -0000	1.1.2.2.2.1
@@ -56,21 +56,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]"
@@ -85,32 +71,7 @@
     	append orgs_list "<HR><TABLE $table_extra_html BORDER=0>"
     	append orgs_list "<TH colspan=6>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.ims_item_id,
-                i.item_title as item_title,
-                i.hasmetadata,
-		i.ims_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.ims_item_id
-           AND
-                m.man_id = :man_id
-        ORDER BY 
-                object_id, tree_sortkey
-} {
+db_foreach organization_item {} {
 
 
 	if { [empty_string_p $identifierref] } {
@@ -129,29 +90,7 @@
 
 	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.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}]