Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	7 Aug 2017 23:48:03 -0000	1.19
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	3 Sep 2024 15:37:35 -0000	1.20
@@ -16,19 +16,33 @@
     {-required_p f}
     {-random_p ""}
 } {
+    Add items to a form. The form values are stored in
+    response_to_item.item_id
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Add items to a form. The form values are stored in response_to_item.item_id
 } {
-    randomInit [randomRange 20000]
+    util::random_init [util::random_range 20000]
     set element_name "response_to_item.$item_id"
     array set item [as::item::item_data -as_item_id $item_id]
 
     if {$random_p == "f"} {
-	set item_data [util_memoize [list as::item_type_$item(item_type)\::render -type_id $item(item_type_id) -session_id "" -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]]
+	set item_data [util_memoize [list \
+                                         as::item_type_$item(item_type)\::render \
+                                         -type_id $item(item_type_id) \
+                                         -session_id "" \
+                                         -section_id $section_id \
+                                         -as_item_id $item_id \
+                                         -default_value $default_value \
+                                         -show_feedback $show_feedback]]
     } else {
-	set item_data [as::item_type_$item(item_type)\::render -type_id $item(item_type_id) -session_id $session_id -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]
+	set item_data [as::item_type_$item(item_type)\::render \
+                           -type_id $item(item_type_id) \
+                           -session_id $session_id \
+                           -section_id $section_id \
+                           -as_item_id $item_id \
+                           -default_value $default_value \
+                           -show_feedback $show_feedback]
     }
 
     lassign $item_data default_value data