Index: openacs-4/packages/assessment/www/asm-admin/questions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/questions.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/questions.tcl 15 May 2007 20:14:18 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/questions.tcl 31 Jan 2008 16:06:26 -0000 1.3 @@ -23,10 +23,23 @@ as::assessment::data -assessment_id $assessment_id set assessment_rev_id $assessment_data(assessment_rev_id) -db_multirow -extend { section_url } sections sections_query {} { +db_multirow -extend { section_url section_form_edit_url section_form_add_url catalog_section_url section_display_form_url section_preview_url section_delete_url checks_admin_url add_edit_section_check_url section_swap_down_url section_swap_up_url } sections sections_query {} { set section_url [export_vars -base one-section {assessment_id section_id}] + + # Build URLs + set section_form_edit_url [export_vars -base section-form {section_id assessment_id}] + set section_form_add_url [export_vars -base section-form {assessment_id {after $sort_order}}] + set catalog_section_url [export_vars -base catalog-search {assessment_id {after $sort_order}}] + set section_display_form_url [export_vars -base section-display-form {assessment_id section_id display_type_id}] + set section_preview_url [export_vars -base section-preview {assessment_id section_id}] + set section_delete_url [export_vars -base section-delete {section_id assessment_id}] + set checks_admin_url [export_vars -base checks-admin {assessment_id section_id}] + set add_edit_section_check_url [export_vars -base add-edit-section-checks {assessment_id section_id}] + set section_swap_down_url [export_vars -base section-swap {assessment_id section_id {direction down}}] + set section_swap_up_url [export_vars -base section-swap {assessment_id section_id {direction up}}] } + set max_sort_order [db_string max_sort_order {}] ad_return_template