Index: openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl	10 Jul 2018 14:13:10 -0000	1.18
+++ openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl	3 Sep 2024 15:37:35 -0000	1.19
@@ -13,11 +13,11 @@
     {-sort_order_type ""}
     {-item_answer_alignment ""}
 } {
+    New Item Display RadioButton Type to the database.
+
     @author Eduardo Perez (eperez@it.uc3m.es)
     @author Natalia Perez (nperper@it.uc3m.es)
     @creation-date 2004-07-26
-
-    New Item Display RadioButton Type to the database.
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -32,7 +32,7 @@
 					[list choice_orientation $choice_orientation] \
 					[list choice_label_orientation $choice_label_orientation] \
 					[list sort_order_type $sort_order_type] \
-					[list item_answer_alignment $item_answer_alignment] ] ]	
+					[list item_answer_alignment $item_answer_alignment] ] ]
     }
 
     return $as_item_display_rb_id
@@ -46,10 +46,10 @@
     {-sort_order_type ""}
     {-item_answer_alignment ""}
 } {
+    Edit Item Display RadioButton Type to the database.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Edit Item Display RadioButton Type to the database.
 } {
     # Update as_item_display_rb in the CR (and as_item_display_rb table) getting the revision_id (as_item_display_id)
     db_transaction {
@@ -61,7 +61,7 @@
 						      [list choice_orientation $choice_orientation] \
 						      [list choice_label_orientation $choice_label_orientation] \
 						      [list sort_order_type $sort_order_type] \
-						      [list item_answer_alignment $item_answer_alignment] ] ]	
+						      [list item_answer_alignment $item_answer_alignment] ] ]
     }
 
     return $new_item_display_id
@@ -70,10 +70,10 @@
 ad_proc -public as::item_display_rb::copy {
     -type_id:required
 } {
+    Copy an Item Display RadioButton Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Copy an Item Display RadioButton Type.
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -105,10 +105,10 @@
     {-data ""}
     -item:required
 } {
+    Render an Item Display RadioButton Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-10
-
-    Render an Item Display RadioButton Type.
 } {
     if {$required_p eq ""} {
 	set required_p f
@@ -144,7 +144,7 @@
         set widget radio
         set datatype text
     }
-    
+
     set param_list [list [list label \$title] [list help_text \$subtext] [list value \$default_value] [list options \$data] [list html \$type(html_display_options)]]
     set element_params [concat [list "$element\:${datatype}($widget)$optional"] $param_list]
     ad_form -extend -name $form -form [list $element_params]
@@ -155,21 +155,21 @@
 ad_proc -public as::item_display_rb::data {
     -type_id:required
 } {
+    Get the cached Display Data of RadioButton Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the cached Display Data of RadioButton Type.
 } {
     return [util_memoize [list as::item_display_rb::data_not_cached -type_id $type_id]]
 }
 
 ad_proc -private as::item_display_rb::data_not_cached {
     -type_id:required
 } {
+    Get the Display Data of RadioButton Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the Display Data of RadioButton Type.
 } {
     db_1row display_item_data {} -column_array type
     return [array get type]
@@ -187,6 +187,7 @@
     {-order_type "order_of_entry"}
     {-answer_alignment "beside_right"}
 } {
+    Set item display type
 } {
 
     db_transaction {
@@ -203,7 +204,7 @@
 					-choice_label_orientation $label_orientation \
 					-sort_order_type $order_type \
 					-item_answer_alignment $answer_alignment]
-	
+
 	    if {![info exists object_type]} {
 		# first item display mapped
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel