Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl	6 May 2005 15:45:34 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices-delete.tcl	12 Jun 2006 02:49:51 -0000	1.4
@@ -13,7 +13,6 @@
     section_id:integer,notnull
     as_item_id:integer,notnull
     choice_id:integer,notnull
-    mc_id:integer,notnull
 }
 
 set package_id [ad_conn package_id]
@@ -24,6 +23,9 @@
     set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
     set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
     set new_item_id [as::item::new_revision -as_item_id $as_item_id]
+    # HAM : querried the mc_id for the given choice id
+    set mc_id [db_string "get_mc_id" "select mc_id from as_item_choices where choice_id=:choice_id"]
+    #  ***********
     set new_mc_id [as::item_type_mc::new_revision -as_item_type_id $mc_id -with_choices_p f]
     db_dml update_section_in_assessment {}
     db_dml update_item_in_section {}