Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.tcl	29 Jun 2018 17:27:18 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.tcl	3 Sep 2024 15:37:35 -0000	1.7
@@ -20,12 +20,15 @@
 as::assessment::data -assessment_id $assessment_id
 
 if {![info exists assessment_data(assessment_id)]} {
-    ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
+    ad_return_complaint 1 [_ assessment.Requested_assess_does]
     ad_script_abort
 }
 
 set page_title [_ assessment.edit_item_display_f]
-set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] $page_title]
+set context_bar [ad_context_bar \
+                     [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] \
+                     [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] \
+                     $page_title]
 
 set orientation_types [list]
 foreach orientation_type [list horizontal vertical] {
@@ -42,45 +45,45 @@
 } -edit_request {
     db_1row last_used_display_type {}
     if {$as_item_display_id ne ""} {
-	db_1row display_type_data {}
+        db_1row display_type_data {}
     } else {
-	# default data if display newly mapped
-	set html_display_options ""
-	set abs_size 5
-	set box_orientation "vertical"
-	set as_item_display_id 0
+        # default data if display newly mapped
+        set html_display_options ""
+        set abs_size 5
+        set box_orientation "vertical"
+        set as_item_display_id 0
     }
 } -validate {
     {html_display_options {[as::assessment::check_html_options -options $html_display_options]} "[_ assessment.error_html_options]"}
 } -edit_data {
     db_transaction {
-	set new_item_id [as::item::new_revision -as_item_id $as_item_id]
+        set new_item_id [as::item::new_revision -as_item_id $as_item_id]
 
-	if {$as_item_display_id} {
-	    # edit existing display type
-	    set new_item_display_id [as::item_display_f::edit \
-					 -as_item_display_id $as_item_display_id \
-					 -html_display_options $html_display_options \
-					 -abs_size $abs_size \
-					 -box_orientation $box_orientation]
-	} else {
-	    # create new display type
-	    set new_item_display_id [as::item_display_f::new \
-					 -html_display_options $html_display_options \
-					 -abs_size $abs_size \
-					 -box_orientation $box_orientation]
-	}
+        if {$as_item_display_id} {
+            # edit existing display type
+            set new_item_display_id [as::item_display_f::edit \
+                                         -as_item_display_id $as_item_display_id \
+                                         -html_display_options $html_display_options \
+                                         -abs_size $abs_size \
+                                         -box_orientation $box_orientation]
+        } else {
+            # create new display type
+            set new_item_display_id [as::item_display_f::new \
+                                         -html_display_options $html_display_options \
+                                         -abs_size $abs_size \
+                                         -box_orientation $box_orientation]
+        }
 
-	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]
-	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
-	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
-	as::section::update_section_in_assessment\
+        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]
+        set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
+        set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
+        as::section::update_section_in_assessment\
                 -old_section_id $section_id \
                 -new_section_id $new_section_id \
                 -new_assessment_rev_id $new_assessment_rev_id
-	db_dml update_item_in_section {}
-	db_dml update_display_of_item {}
+        db_dml update_item_in_section {}
+        db_dml update_display_of_item {}
     }
     set as_item_id $new_item_id
     set section_id $new_section_id