Index: openacs-4/packages/assessment/www/asm-admin/item-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/assessment/www/asm-admin/item-add.tcl	23 Jul 2018 12:46:53 -0000	1.28
+++ openacs-4/packages/assessment/www/asm-admin/item-add.tcl	3 Sep 2024 15:37:35 -0000	1.29
@@ -42,8 +42,12 @@
 
 set item_types [as_item_type::get_item_types]
 
-ad_form -name item-add -action item-add -export { assessment_id section_id after type } -html {enctype multipart/form-data} -form {
+ad_form -name item-add -action item-add -html {enctype multipart/form-data} -form {
     {as_item_id:key}
+    {assessment_id:naturalnum(hidden),optional}
+    {section_id:naturalnum(hidden),optional}
+    {after:integer(hidden),optional}
+    {type:text(hidden),optional}
     {question_text:richtext,nospell {label "[_ assessment.item_Question]"} {html {rows 12 cols 80 style {width: 99%}}} {help_text "[_ assessment.item_Question_help]"}}
 }
 if { $type ne "survey"} {
@@ -260,7 +264,7 @@
             set n_bytes [file size $tmp_filename]
             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]
 
             if { $n_bytes > $max_file_size && $max_file_size > 0 } {
                 ad_return_complaint 1 "[_ assessment.file_too_large]"