Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	25 Apr 2018 19:47:47 -0000	1.44
+++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	26 Apr 2018 08:56:38 -0000	1.45
@@ -41,7 +41,7 @@
 #set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
 
 set package_id [ad_conn package_id]
-set validate [list]
+set validate {}
 set show_price_option_p [dotlrn_ecommerce::util::param::get -default 1 ShowPriceOptionP]
 
 catch {
@@ -163,7 +163,7 @@
 	# community_id is valid
 	# list users
 	set _instructors [dotlrn_community::list_users  $instructor_community_id]
-	set instructors_list [list]
+	set instructors_list {}
 	foreach instructor $_instructors {
 	    set instructor_user_id [ns_set get $instructor user_id]
 	    set instructor_name "[ns_set get $instructor first_names] [ns_set get $instructor last_name]"
@@ -183,7 +183,7 @@
 } else {
 	# community_id is valid
 	set _assistants [dotlrn_community::list_users  $assistant_community_id]
-	set assistants_list [list]
+	set assistants_list {}
 	foreach assistant $_assistants {
 		set assistant_user_id [ns_set get $assistant user_id]
 		set assistant_name "[ns_set get $assistant first_names] [ns_set get $assistant last_name]"
@@ -228,7 +228,7 @@
 }
 
 
-set tree_options [list]
+set tree_options {}
 if { [parameter::get -package_id [ad_conn package_id] -parameter GradePrerequisitesP -default 1 ] } {
 	db_foreach prerequisites {
 	select tree_id