Index: openacs-4/packages/lorsm/www/delivery/body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/body.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/lorsm/www/delivery/body.tcl	17 Nov 2008 13:38:35 -0000	1.9
+++ openacs-4/packages/lorsm/www/delivery/body.tcl	12 Dec 2008 14:25:39 -0000	1.10
@@ -45,29 +45,12 @@
 }
 
 
-db_0or1row get_last_viewed {
-    select ims_item_id as imsitem_id, coalesce(acs_object__name(object_id),'Item '||object_id) as last_page_viewed
-    from views_views v, ims_cp_items i, ims_cp_organizations o
-    where v.viewer_id = :user_id
-        and v.object_id = i.ims_item_id
-        and i.org_id = o.org_id
-        and o.man_id = :man_id
-    order by v.last_viewed desc
-    limit 1
-}
+db_0or1row get_last_viewed {}
 
-set all_items [db_list get_total_items {
-    select i.ims_item_id
-    from ims_cp_items i, ims_cp_organizations o
-    where o.man_id = :man_id
-        and i.org_id = o.org_id}]
+set all_items [db_list get_total_items {}]
 
 set total_item_count [llength $all_items]
-set viewed_items [db_list get_viewed_items \
-        "select v.object_id
-        from views_views v
-        where v.viewer_id = :user_id
-        and v.object_id in ([join $all_items ,])"]
+set viewed_items [db_list get_viewed_items {}]
 
 set viewed_item_count [llength $viewed_items]
 set viewed_percent [lc_numeric \
@@ -76,19 +59,10 @@
                             $total_item_count * 100] "%.2f"]
 
 #Get times viewed
-set viewed_times [db_string select_viewed_times \
-                    "select count(*)
-                    from lorsm_student_track
-                    where community_id = :community_id
-                        and course_id = :man_id
-                        and user_id = :user_id "]
+set viewed_times [db_string select_viewed_times {}]
 
 # Get the course name
-if {[db_0or1row manifest "
-    select cp.course_name, cp.fs_package_id
-    from ims_cp_manifests cp
-    where cp.man_id = :man_id
-        and cp.parent_man_id = 0"]} {
+if {[db_0or1row manifest {}]} {
 
     # Course Name
     if {[empty_string_p $course_name]} {