Index: openacs-4/packages/lorsm/www/delivery/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.vuh,v diff -u -r1.2 -r1.3 --- openacs-4/packages/lorsm/www/delivery/index.vuh 13 Jun 2006 01:25:02 -0000 1.2 +++ openacs-4/packages/lorsm/www/delivery/index.vuh 27 Jun 2006 16:33:21 -0000 1.3 @@ -32,8 +32,9 @@ } -default "no_item"] set first_item_id [lindex $item_list 0] -set first_item_url "" +set first_item_url "" + set curr_index [expr [lsearch -exact $item_list $last_item_viewed]] set prev_item_id [lindex $item_list [expr $curr_index - 1]] set next_item_id [lindex $item_list [expr $curr_index + 1]] @@ -42,11 +43,12 @@ if {$next_item_id eq ""} { set next_url [export_vars -base ${lorsm_url}/body {man_id}] } +set form [rp_getform] +ns_set delkey $form next_url rp_form_put next_url $next_url # ########## -upvar #[template::adp_level] __adp_master adp_master -set adp_master [template::util::url_to_file "/www/blank-master"] + switch $base { assessment { # find assessment package_id @@ -63,16 +65,15 @@ set path [join [lrange $path_list 1 end] /] if {[file exists [acs_root_dir]/packages/assessment/lib/${path}.tcl]} { rp_form_put __include /packages/assessment/lib/$path - rp_internal_redirect /packages/lorsm/lib/include +# rp_internal_redirect /packages/lorsm/lib/include + rp_internal_redirect /packages/lorsm/www/delivery/delivery-context-bar } else { - ns_log notice "NOPE $path" rp_internal_redirect "/packages/assessment/www/$path" } ad_script_abort } wiki { rp_form_put __include /packages/xowiki/lib/view - rp_internal_redirect "/packages/assessment/www/$path" ad_script_abort } default {