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 "" -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 "
Organization: $org_title ($org_id)
" append orgs_list "" -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
Organization: $org_title ($org_id)