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 -N -r1.18 -r1.18.2.1
--- 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	13 Sep 2022 12:43:37 -0000	1.18.2.1
@@ -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]
@@ -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 {
@@ -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
@@ -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 {