Index: openacs-4/packages/lorsm/www/delivery/delivery-context-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/delivery-context-bar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/delivery/delivery-context-bar.tcl	17 Nov 2008 13:38:36 -0000	1.3
+++ openacs-4/packages/lorsm/www/delivery/delivery-context-bar.tcl	12 Dec 2008 14:25:39 -0000	1.4
@@ -37,16 +37,7 @@
 
 set item_list [lorsm::get_item_list $man_id $user_id]
 
-set last_item_viewed [db_string select_last_item_viewed {
-    select ims_item_id
-    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
-    } -default ""]
+set last_item_viewed [db_string select_last_item_viewed {} -default ""]
 
 set first_item_id [lindex $item_list 0]
 set first_item_url "<a href=\"[export_vars \
@@ -82,20 +73,11 @@
                 -base "${lorsm_url}/record-view" \
                 -url {{item_id $next_item_id} man_id}]
 
-set prev_title [db_string get_title \
-                    "select item_title
-                    from ims_cp_items
-                    where ims_item_id=:prev_item_id" -default ""]
+set prev_title [db_string get_title_prev {} -default ""]
 
-set next_title [db_string get_title \
-                    "select item_title
-                    from ims_cp_items
-                    where ims_item_id=:next_item_id" -default ""]
+set next_title [db_string get_title_next {} -default ""]
 
-set current_title [db_string get_title \
-                    "select item_title
-                    from ims_cp_items
-                    where ims_item_id=:last_item_viewed" -default ""]
+set current_title [db_string get_title_current {} -default ""]
 
 set progress_list [template::util::number_list [llength $item_list] 1]
 set progress_index [expr {$curr_index + 1}]