ad_page_contract {
	check if the page has recorded a redirect url
} 

#get base url
set path_info [ad_conn path_info]
set path_list [split $path_info /]
set base [lindex $path_list 0]
set dotlrn_package_id [dotlrn_community::get_community_id]	
set lorsm_url [dotlrn_community::get_community_url $dotlrn_package_id]lorsm/
set delivery_url ${lorsm_url}delivery
##########
# figure out the next page after we are done with this...
set ims_item_id [ad_get_client_property lorsm ims_id]
set man_id [ad_get_client_property lorsm man_id]

set user_id [ad_conn user_id]

set enabled_p [db_string enabled_p "select isenabled from ims_cp_manifest_class where man_id=:man_id and community_id=:dotlrn_package_id" -default "f"]
set item_list [lorsm::get_item_list $man_id $user_id]

if {$enabled_p} {
	permission::require_permission \
		-party_id $user_id \
	        -object_id $man_id \
                -privilege read
} else {
	permission::require_permission \
		-party_id $user_id \
	        -object_id $man_id \
                -privilege admin
}

set last_item_viewed [db_string select_last_item_viewed {    
	select ims_item_id
	from 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 "no_item"]

set first_item_id [lindex $item_list 0]

set first_item_url "<a href=\"[export_vars -base "${delivery_url}record-view" -url {{item_id $first_item_id} man_id}]\" target=\"content\"><img src=\"../Images/home.png\" border=\"0\" title=\"home\" onclick=\"window.location.reload()\"></a>"

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]]
set prev_url [export_vars -base "${delivery_url}/record-view" -url {{item_id $prev_item_id} man_id}]
set next_url [export_vars -base "${delivery_url}/record-view" -url {{item_id $next_item_id} man_id}]
if {$next_item_id eq ""} {
	set next_url ${delivery_url}/end
}
set form [rp_getform]
ns_set delkey $form next_url
rp_form_put next_url $next_url
rp_form_put next_item_id $next_item_id
#
##########

db_1row get_format "select folder_name, isscorm from lorsm_course_presentation_formats f, ims_cp_manifests m where f.format_id=m.course_presentation_format and m.man_id=:man_id"
if {$isscorm} {
    set folder_name delivery-scorm
}


switch $base {
	assessment {
			# find assessment package_id
			# get dotlrn package_id
			set assessment_package_id [dotlrn_community::get_applet_package_id -community_id $dotlrn_package_id -applet_key dotlrn_assessment]
	ns_log notice " RESETTING ad conn package id $assessment_package_id"
			ad_conn -set package_id $assessment_package_id

		if {[string match *view* $path_info]} {
			rp_internal_redirect /packages/assessment/www/view/index.vuh
			ad_script_abort
		}
	rp_form_put show_title_p 0
	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/www/delivery/${folder_name}
	} else {
		rp_internal_redirect "/packages/assessment/www/$path"
        }
		ad_script_abort
	}
	wiki {
	    rp_form_put __include /packages/xowiki/lib/view
	    rp_internal_redirect /packages/lorsm/www/delivery/${folder_name}
	    ad_script_abort	
	}
	end {
	    rp_form_put __include /packages/lorsm/lib/end
	    rp_internal_redirect /packages/lorsm/www/delivery/${folder_name}
	    ad_script_abort
	}
	default {
	    rp_form_put __include /packages/lorsm/lib/default
	    rp_internal_redirect /packages/lorsm/www/delivery/${folder_name}
	    ad_script_abort		
	}	
}