Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	29 Aug 2008 19:13:34 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	29 Sep 2013 13:40:40 -0000	1.9
@@ -46,7 +46,7 @@
 set count_correct 0
 set choices [db_list_of_lists get_choices {}]
 foreach one_choice $choices {
-    util_unlist $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score fixed_position answer_value content_rev_id content_filename content_name
+    lassign $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score fixed_position answer_value content_rev_id content_filename content_name
     if {$correct_answer_p == "t"} {
 	append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $title\"\} \{value \"<img src=/resources/assessment/correct.gif>\"\}\}\n"
     } else {
@@ -84,7 +84,7 @@
 
 ad_form -extend -name item_edit_mc_choices -edit_request {
     foreach one_choice $choices {
-	util_unlist $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score fixed_position answer_value
+	lassign $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score fixed_position answer_value
 	set feedback($choice_id) $feedback_text
 	set percent($choice_id) $percent_score
 	set fixed_pos($choice_id) $fixed_position
@@ -96,7 +96,7 @@
 } -edit_data {
     db_transaction {
 	set max_file_size 10000000
-	# [ad_parameter MaxAttachmentSize]
+	# [parameter::get -parameter MaxAttachmentSize]
 	set pretty_max_size [util_commify_number $max_file_size]
 	set folder_id [as::assessment::folder_id -package_id $package_id]