Index: openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	13 Sep 2022 12:44:43 -0000	1.12.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	13 Sep 2022 12:45:43 -0000	1.12.2.2
@@ -11,10 +11,10 @@
     {-abs_size ""}
     {-box_orientation ""}
 } {
+    New Item Display ShortAnswer Type to the database
+
     @author Natalia Perez (nperper@it.uc3m.es)
     @creation-date 2004-09-29
-
-    New Item Display ShortAnswer Type to the database
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -39,10 +39,10 @@
     {-abs_size ""}
     {-box_orientation ""}
 } {
+    Edit Item Display ShortAnswer Type to the database
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Edit Item Display ShortAnswer Type to the database
 } {
     # Update as_item_display_sa in the CR (and as_item_display_sa table) getting the revision_id (as_item_display_id)
     db_transaction {
@@ -61,10 +61,10 @@
 ad_proc -public as::item_display_sa::copy {
     -type_id:required
 } {
+    Copy an Item Display ShortAnswer Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Copy an Item Display ShortAnswer Type
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -94,10 +94,10 @@
     {-data ""}
     -item:required
 } {
+    Render an Item Display ShortAnswer Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-10
-
-    Render an Item Display ShortAnswer Type
 } {
     array set type [util_memoize [list as::item_display_sa::data -type_id $type_id]]
     if {$required_p eq ""} {
@@ -123,21 +123,21 @@
 ad_proc -public as::item_display_sa::data {
     -type_id:required
 } {
+    Get the cached Display Data of ShortAnswer Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the cached Display Data of ShortAnswer Type
 } {
     return [util_memoize [list as::item_display_sa::data_not_cached -type_id $type_id]]
 }
 
 ad_proc -private as::item_display_sa::data_not_cached {
     -type_id:required
 } {
+    Get the Display Data of ShortAnswer Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the Display Data of ShortAnswer Type
 } {
     db_1row display_item_data {} -column_array type
     return [array get type]
Index: openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl,v
diff -u -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	13 Sep 2022 12:46:30 -0000	1.17.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	13 Sep 2022 12:47:31 -0000	1.17.2.2
@@ -14,10 +14,10 @@
     {-item_answer_alignment ""}
     {-prepend_empty_p "t"}
 } {
+    New Item Display SelectBox Type to the database.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-08
-
-    New Item Display SelectBox Type to the database.
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -48,10 +48,10 @@
     {-item_answer_alignment ""}
     {-prepend_empty_p "f"}
 } {
+    Edit Item Display SelectBox Type to the database.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-08
-
-    Edit Item Display SelectBox Type to the database.
 } {
     # Update as_item_display_sb in the CR (and as_item_display_sb table) getting the revision_id (as_item_display_id)
     db_transaction {
@@ -73,10 +73,10 @@
 ad_proc -public as::item_display_sb::copy {
     -type_id:required
 } {
+    Copy an Item Display SelectBox Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Copy an Item Display SelectBox Type.
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -108,10 +108,10 @@
     {-data ""}
     -item:required
 } {
+    Render an Item Display SelectBox Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-10
-
-    Render an Item Display SelectBox Type.
 } {
     if {$required_p eq ""} {
 	set required_p f
@@ -168,21 +168,21 @@
 ad_proc -public as::item_display_sb::data {
     -type_id:required
 } {
+    Get the cached Display Data of SelectBox Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the cached Display Data of SelectBox Type.
 } {
     return [util_memoize [list as::item_display_sb::data_not_cached -type_id $type_id]]
 }
 
 ad_proc -private as::item_display_sb::data_not_cached {
     -type_id:required
 } {
+    Get the Display Data of SelectBox Type.
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the Display Data of SelectBox Type.
 } {
     db_1row display_item_data {} -column_array type
     return [array get type]
Index: openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl	15 Jun 2018 23:11:09 -0000	1.15
+++ openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl	13 Sep 2022 12:52:01 -0000	1.15.2.1
@@ -12,10 +12,10 @@
     {-item_answer_alignment ""}
     {-package_id ""}
 } {
+    New Item Display TextBox Type to the database
+
     @author Natalia Perez (nperper@it.uc3m.es)
     @creation-date 2004-09-29
-
-    New Item Display TextBox Type to the database
 } {
     if { $package_id eq "" } {
         set package_id [ad_conn package_id]
@@ -42,10 +42,10 @@
     {-abs_size ""}
     {-item_answer_alignment ""}
 } {
+    Edit Item Display TextBox Type to the database
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Edit Item Display TextBox Type to the database
 } {
     # Update as_item_display_tb in the CR (and as_item_display_tb table) getting the revision_id (as_item_display_id)
     db_transaction {
@@ -64,10 +64,10 @@
 ad_proc -public as::item_display_tb::copy {
     -type_id:required
 } {
+    Copy an Item Display TextBox Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
-
-    Copy an Item Display TextBox Type
 } {
     set package_id [ad_conn package_id]
     set folder_id [as::assessment::folder_id -package_id $package_id]
@@ -97,10 +97,10 @@
     {-data ""}
     -item:required
 } {
+    Render an Item Display TextBox Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-10
-
-    Render an Item Display TextBox Type
 } {
     array set type [util_memoize [list as::item_display_tb::data -type_id $type_id]]
     if {$required_p eq ""} {
@@ -128,21 +128,21 @@
 ad_proc -public as::item_display_tb::data {
     -type_id:required
 } {
+    Get the cached Display Data of TextBox Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the cached Display Data of TextBox Type
 } {
     return [util_memoize [list as::item_display_tb::data_not_cached -type_id $type_id]]
 }
 
 ad_proc -private as::item_display_tb::data_not_cached {
     -type_id:required
 } {
+    Get the Display Data of TextBox Type
+
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
-
-    Get the Display Data of TextBox Type
 } {
     db_1row display_item_data {} -column_array type
     return [array get type]
@@ -160,8 +160,6 @@
 } {
     Add display type to item and add item and all components to assessment
     and section
-
-
 } {
     set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
     set section_id [as::section::latest -section_id $section_id -assessment_rev_id $new_assessment_rev_id]