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 -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/lorsm/www/delivery/body.tcl	5 Jan 2005 17:01:51 -0000	1.3.2.1
+++ openacs-4/packages/lorsm/www/delivery/body.tcl	2 Feb 2005 16:13:27 -0000	1.3.2.2
@@ -16,6 +16,7 @@
 }
 
 set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
 db_0or1row get_last_viewed {
     select item_id as imsitem_id, coalesce(acs_object__name(object_id),'Item '||object_id) as last_page_viewed
     from views v,
@@ -41,11 +42,20 @@
             select v.object_id
               from views v
              where v.viewer_id = :user_id
-               and v.object_id in ([join $all_items ,])
+	     and v.object_id in ([join $all_items ,])
         "]
 set viewed_item_count [llength $viewed_items]
 set viewed_percent [lc_numeric [expr [expr $viewed_item_count * 1.00] / $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 "]
+
 # Get the course name
 if {[db_0or1row manifest "
     select