Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-2-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-2-oracle.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,35 @@
+
+
+ oracle8.1.6
+
+
+
+ select org.org_id, org.org_title as org_title, org.hasmetadata,
+ (select level
+ from acs_objects
+ connect by prior object_id = context_id
+ start with object_id = org.org_id) as indent
+ from ims_cp_organizations org
+ where man_id = :man_id
+ order by org_id
+
+
+
+
+
+ select i.ims_item_id as object_id,
+ ((select level
+ from acs_objects connect by prior object_id = context_id
+ start with object_id = i.org_id) - :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 ims_cp_items i, ims_cp_manifests m
+ where i.org_id = :org_id and m.man_id = :man_id
+ order by indent, ims_item_id;
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-2-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-2-postgresql.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,31 @@
+
+
+ postgresql7.1
+
+
+
+ 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
+
+
+
+
+
+ select o.object_id, repeat(' ', (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
+
+
+
+
\ No newline at end of file
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 -N -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 "
"
append orgs_list "Organization: $org_title ($org_id) | "
-db_foreach organization_item {
- SELECT
- o.object_id,
- repeat(' ', (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}]
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-2.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-2.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+ 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
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-singletrack.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-singletrack.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/drill-student-singletrack.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-singletrack.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -22,22 +22,12 @@
set man_name [lorsm::get_course_name -manifest_id $man_id]
-set thistrack [ db_1row thiscmitrack " select * from lorsm_cmi_core where track_id=:track_id " ]
+set thistrack [ db_1row thiscmitrack "" ]
set thistrack $track_id
set context [list "$classname,$man_name,$student_name,session_id: $track_id"]
-set numrows [ db_0or1row istherealready " select min(lorsm.track_id) as mint from lorsm_cmi_core cmi, lorsm_student_track lorsm
- where
- lorsm.community_id=:community_id
- and
- lorsm.course_id=:man_id
- and
- user_id=:user_id
- and
- lorsm.track_id=cmi.track_id
- and
- lorsm.track_id>:track_id "]
+set numrows [ db_0or1row istherealready ""]
# seems numrows always 1 when doing an aggregate query
if { $mint == "" } {
set querypart ""
@@ -69,28 +59,8 @@
}
}
-db_multirow \
- student_track single_student_track "
- select *
- from
- lorsm_student_track lorsm, ims_cp_manifests manif
- where
- lorsm.community_id=$community_id
- and
- lorsm.course_id=$man_id
- and
- (
- lorsm.track_id>=$track_id
- $querypart
- )
- and
- manif.man_id=$man_id
- and
- user_id=$user_id
- order by
- lorsm.track_id asc " \
- {
+db_multirow student_track single_student_track "" {
set edit_url [export_vars -base "drill-student-singletrack" {track_id}]
set drill_url [export_vars -base "drill-student-singletrack" {track_id}]
- }
+}
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student-singletrack.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student-singletrack.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student-singletrack.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,34 @@
+
+
+
+
+
+ select *
+ from lorsm_cmi_core
+ where track_id=:track_id
+
+
+
+
+
+ select min(lorsm.track_id) as mint
+ from lorsm_cmi_core cmi, lorsm_student_track lorsm
+ where lorsm.community_id=:community_id and lorsm.course_id=:man_id
+ and user_id=:user_id and lorsm.track_id=cmi.track_id
+ and lorsm.track_id > :track_id
+
+
+
+
+
+ select *
+ from lorsm_student_track lorsm, ims_cp_manifests manif
+ where lorsm.community_id=$community_id and lorsm.course_id=$man_id
+ and (lorsm.track_id>=$track_id
+ $querypart
+ ) and manif.man_id=$man_id and user_id=$user_id
+ order by lorsm.track_id asc
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/drill-student.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -64,27 +64,7 @@
drill_url
total_total_time
cut_start_time
- } student single_student {
- 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
- user_id=:user_id
- and
- imsitems.ims_item_id=cmi.item_id
- order by
- cmi.track_id asc
- } {
+ } student single_student {} {
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}]
Index: openacs-4/packages/lorsm/www/tracking-rte/drill-student.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/drill-student.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/drill-student.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+ 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 user_id=:user_id
+ and imsitems.ims_item_id=cmi.item_id
+ order by cmi.track_id asc
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/items.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/items.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/items.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -31,29 +31,6 @@
set indent [expr $indent +1]
db_multirow -extend { item_id items_title identifierref } suborgs select_suborgs {
- SELECT
- o.object_id,
- 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
} {
set item_id $item_id
}
Index: openacs-4/packages/lorsm/www/tracking-rte/items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/items.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/items.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,18 @@
+
+
+
+
+
+ select o.object_id, 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
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/list.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/list.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/list.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -23,24 +23,7 @@
-extend {
edit_url
drill_url
- } students which_students {
- select user_id, course_name, max(score_raw) as max_attained from
- (
- select *
- from
- lorsm_student_track lorsm, lorsm_cmi_core cmi, ims_cp_manifests manif
- 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
- ) alltracks
- group by
- user_id, course_name
- } {
+ } students which_students {} {
set edit_url [export_vars -base "drill-student" {user_id}]
set drill_url [export_vars -base "drill-student" {user_id}]
}
Index: openacs-4/packages/lorsm/www/tracking-rte/list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/list.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/list.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+ select user_id, course_name, max(score_raw) as max_attained
+ from (select *
+ from lorsm_student_track lorsm, lorsm_cmi_core cmi, ims_cp_manifests manif
+ 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
+
+ ) alltracks
+ group by user_id, course_name
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/orgs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/orgs-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/orgs-oracle.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,35 @@
+
+
+ oracle8.1.6
+
+
+
+ select org.org_id, org.org_title as org_title, org.hasmetadata,
+ (select level
+ from acs_objects
+ connect by prior object_id = context_id
+ start with object_id = org.org_id) as indent
+ from ims_cp_organizations org
+ where man_id = :man_id
+ order by org_id
+
+
+
+
+
+ select i.ims_item_id as object_id,
+ ((select level
+ from acs_objects connect by prior object_id = context_id
+ start with object_id = i.org_id) - :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 ims_cp_items i, ims_cp_manifests m
+ where i.org_id = :org_id and m.man_id = :man_id
+ order by indent, ims_item_id;
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/orgs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/orgs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/orgs-postgresql.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,31 @@
+
+
+ postgresql7.1
+
+
+
+ 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
+
+
+
+
+
+ select o.object_id, repeat(' ', (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
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/orgs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/orgs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/orgs.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/orgs.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -25,51 +25,12 @@
# documentation for further details.
-db_multirow orgs select_orgs {
- 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_multirow orgs select_orgs {} {
set org_title $org_title
}
-db_multirow suborgs select_suborgs {
- SELECT
- o.object_id,
- repeat(' ', (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_multirow suborgs select_suborgs {}
Index: openacs-4/packages/lorsm/www/tracking-rte/toc-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/toc-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/toc-oracle.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,35 @@
+
+
+ oracle8.1.6
+
+
+
+ select org.org_id, org.org_title as org_title, org.hasmetadata,
+ (select level
+ from acs_objects
+ connect by prior object_id = context_id
+ start with object_id = org.org_id) as indent
+ from ims_cp_organizations org
+ where man_id = :man_id
+ order by org_id
+
+
+
+
+
+ select i.ims_item_id as object_id,
+ ((select level
+ from acs_objects connect by prior object_id = context_id
+ start with object_id = i.org_id) - :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 ims_cp_items i, ims_cp_manifests m
+ where i.org_id = :org_id and m.man_id = :man_id
+ order by indent, ims_item_id;
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/toc-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/toc-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/toc-postgresql.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,31 @@
+
+
+ postgresql7.1
+
+
+
+ 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
+
+
+
+
+
+ select o.object_id, repeat(' ', (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
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/tracking-rte/toc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/toc.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.2.2.1
--- openacs-4/packages/lorsm/www/tracking-rte/toc.tcl 11 Jul 2006 20:43:13 -0000 1.1.2.2
+++ openacs-4/packages/lorsm/www/tracking-rte/toc.tcl 5 Dec 2006 10:53:19 -0000 1.1.2.2.2.1
@@ -36,21 +36,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]"
@@ -65,32 +51,7 @@
append orgs_list ""
append orgs_list "Organization: $org_title ($org_id) | "
-db_foreach organization_item {
- SELECT
- o.object_id,
- repeat(' ', (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] } {
@@ -107,29 +68,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.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}]
Index: openacs-4/packages/lorsm/www/tracking-rte/toc.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking-rte/Attic/toc.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking-rte/toc.xql 5 Dec 2006 10:53:19 -0000 1.1.2.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+ 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
+
+
+
+
\ No newline at end of file