Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 15 Apr 2005 17:26:46 -0000 1.6 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 18 Apr 2005 10:19:13 -0000 1.7 @@ -27,12 +27,16 @@ ad_script_abort } +if {[template::form get_action item_show_mc] == "existing"} { + ad_returnredirect [export_vars -base item-edit-mc-existing {assessment_id section_id as_item_id}] + ad_script_abort +} + set page_title [_ assessment.edit_item_type_mc] set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] $page_title] set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]] set correct_options [list [list "[_ assessment.yes]" t]] -set add_existing_link [export_vars -base "item-edit-mc-existing" {assessment_id section_id as_item_id}] ad_form -name item_edit_mc -action item-edit-mc -export { assessment_id section_id num_choices } -form {