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.13 -r1.14
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	29 Jun 2018 17:27:18 -0000	1.13
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	3 Sep 2024 15:37:35 -0000	1.14
@@ -27,13 +27,17 @@
 as::assessment::data -assessment_id $assessment_id
 
 if {![info exists assessment_data(assessment_id)]} {
-    ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
+    ad_return_complaint 1 [_ assessment.Requested_assess_does]
     ad_script_abort
 }
 
 set package_id [ad_conn package_id]
 set page_title [_ assessment.edit_item_type_mc_choices]
-set context [list [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] [list [export_vars -base questions {assessment_id}] Questions] [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] $page_title]
+set context [list \
+                 [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] \
+                 [list [export_vars -base questions {assessment_id}] Questions] \
+                 [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] \
+                 $page_title]
 
 set selected_options [list [list "[_ assessment.yes]" t]]
 
@@ -97,7 +101,7 @@
     db_transaction {
         set max_file_size 10000000
         # [parameter::get -parameter MaxAttachmentSize]
-        set pretty_max_size [util_commify_number $max_file_size]
+        set pretty_max_size [lc_content_size_pretty -size $max_file_size]
         set folder_id [as::assessment::folder_id -package_id $package_id]
 
         set count 0