# 
#
# Serve up survey package pages under survey-library to add and edit items
#
# @author Dave Bauer (dave@thedesignexperience.org)
# @creation-date 2004-09-19
# @arch-tag: 35a5ad30-8b91-4a5b-b2a5-90257366bf4e
# @cvs-id $Id: index.vuh,v 1.4 2006/02/09 13:22:09 roelc Exp $

set page [ad_conn path_info]

# When adding/editing a section or question, check if the assessment has
# sessions
if { $page eq "section-form" || [string match "item-*" $page] } {
    set form [rp_getform]

    if { $form ne "" } {
	set assessment_id [ns_set get $form assessment_id]
	set override_p [ns_set get $form override_p]
	if { $assessment_id ne "" && $override_p != 1 } {
	    if { [db_0or1row get_sessions {
		select 1
		from dual
		where exists (select *
			      from as_sessionsi s, cr_revisions r
			      where s.assessment_id = r.revision_id
			      and r.item_id = :assessment_id)
	    }] } { 
		rp_form_put next_url [ad_return_url]
		rp_internal_redirect warning
	    }
	}
    }
}

rp_internal_redirect /packages/assessment/www/asm-admin/${page}