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 {