Index: openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl 7 Aug 2017 23:47:57 -0000 1.2
+++ openacs-4/packages/acs-outdated/tcl/acs-tcl-procs.tcl 25 Apr 2018 19:47:46 -0000 1.3
@@ -2,7 +2,7 @@
Applies proc_name to each item of the list, appending the result of
each call to a new list that is the return value.
} {
- set lmap [list]
+ set lmap {}
foreach item $list {
lappend lmap [safe_eval $proc_name $item]
}
Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 25 Apr 2018 08:46:13 -0000 1.15
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 25 Apr 2018 19:47:46 -0000 1.16
@@ -228,7 +228,7 @@
#
####################
- array set export [list]
+ array set export {}
set override_p 0
foreach argument { include override } {
@@ -283,13 +283,13 @@
####################
if { !$form_p } {
- set export_list [list]
+ set export_list {}
foreach varname [array names export] {
lappend export_list "[ns_urlencode $varname]=[ns_urlencode $export($varname)]"
}
return [join $export_list &]
} else {
- set export_list [list]
+ set export_list {}
foreach varname [array names export] {
lappend export_list ""
@@ -815,7 +815,7 @@
$page_title
"
- array set attrs [list]
+ array set attrs {}
set attrs(bgcolor) [parameter::get -package_id [ad_acs_kernel_id] -parameter bgcolor -default "white"]
set attrs(text) [parameter::get -package_id [ad_acs_kernel_id] -parameter textcolor -default "black"]
@@ -1773,8 +1773,8 @@
# build the map of currently selected columns
set full_column [split $sort_spec ","]
- set sel_columns [list]
- set direction [list]
+ set sel_columns {}
+ set direction {}
foreach col $full_column {
regexp {([^*,]+)([*])?} $col match coln dirn
if {$dirn eq "*"} {
@@ -2153,7 +2153,7 @@
ad_proc -deprecated set_intersection { u v } {
Returns the intersection of sets $u and $v.
} {
- set result [list]
+ set result {}
foreach ue $u {
if { [set_member? $v $ue] } {
@@ -2171,7 +2171,7 @@
to that intersection, and also returns that intersection.
} {
upvar $u-name u
- set result [list]
+ set result {}
foreach ue $u {
if { [set_member? $v $ue] } {
@@ -2187,7 +2187,7 @@
Returns the difference of sets $u and $v. (i.e. The set of all
members of u that aren't also members of $v.)
} {
- set result [list]
+ set result {}
foreach ue $u {
if { ![set_member? $v $ue] } {
@@ -2205,7 +2205,7 @@
to that difference, and also returns that difference.
} {
upvar $u-name u
- set result [list]
+ set result {}
foreach ue $u {
if { ![set_member? $v $ue] } {
@@ -2663,7 +2663,7 @@
}
- set variables [list]
+ set variables {}
switch -- $mode {
array {
set variables $formvars
Index: openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl 11 May 2009 03:22:28 -0000 1.12
+++ openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl 25 Apr 2018 19:47:46 -0000 1.13
@@ -70,7 +70,7 @@
if { [exists_and_not_null package_id] } {
- set options [list]
+ set options {}
# get the root folder
set rootfolder_id [fs_get_root_folder -package_id $package_id]
Index: openacs-4/packages/ajax-photoalbum-ui/lib/ajaxpa-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajax-photoalbum-ui/lib/ajaxpa-include.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/ajax-photoalbum-ui/lib/ajaxpa-include.tcl 11 Apr 2009 15:46:44 -0000 1.1
+++ openacs-4/packages/ajax-photoalbum-ui/lib/ajaxpa-include.tcl 25 Apr 2018 19:47:46 -0000 1.2
@@ -16,7 +16,7 @@
if { [exists_and_not_null package_id] } {
set user_id [ad_conn user_id]
- set options [list]
+ set options {}
set rootfolder_id [pa_get_root_folder $package_id]
set instance_name [db_string "get_folder_name" "select name as instance_name from fs_folders where folder_id = :rootfolder_id"]
Index: openacs-4/packages/ajax-photoalbum-ui/www/doc/photo-album-ajaxpa.diff
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajax-photoalbum-ui/www/doc/photo-album-ajaxpa.diff,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/ajax-photoalbum-ui/www/doc/photo-album-ajaxpa.diff 11 Apr 2009 15:56:13 -0000 1.1
+++ openacs-4/packages/ajax-photoalbum-ui/www/doc/photo-album-ajaxpa.diff 25 Apr 2018 19:47:46 -0000 1.2
@@ -65,7 +65,7 @@
} {
return the image information from a given file
} {
- set info [list]
+ set info {}
+ if { ![exists_and_not_null package_id] } { set package_id [ad_conn package_id] }
if { [catch {set size [file size $file]} errMsg] } {
return -code error $errMsg
Index: openacs-4/packages/ajaxhelper/tcl/ajax-listbuilder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/ajax-listbuilder-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/ajaxhelper/tcl/ajax-listbuilder-procs.tcl 28 Mar 2018 17:00:40 -0000 1.5
+++ openacs-4/packages/ajaxhelper/tcl/ajax-listbuilder-procs.tcl 25 Apr 2018 19:47:46 -0000 1.6
@@ -33,13 +33,13 @@
if {[info exists _hide_column]} {
set hide_column $_hide_column
} else {
- set hide_column [list]
+ set hide_column {}
}
upvar move _move
if {[info exists _move]} {
set move $_move
} else {
- set move [list]
+ set move {}
}
upvar groupby _groupby
set previous_index 0
@@ -49,7 +49,7 @@
template::list::get_reference -name $list_name
upvar #[template::adp_level] ${list_name}:filter:groupby:properties groupby_ref
- set groupbys [list]
+ set groupbys {}
foreach elm $groupby_ref(values) {
set value [lindex $elm 1]
lappend groupbys [lindex $value 0 1]
@@ -73,16 +73,16 @@
set first_not_checkbox 1
}
- set sortmenuitems [list]
+ set sortmenuitems {}
lappend sortmenuitems [list [list "text" "A-Z"] [list "url" "[filter_url -list_name $list_name -filter_name orderby -filter_value ${element},asc -return_url $return_url]"]]
lappend sortmenuitems [list [list "text" "Z-A"] [list "url" "[filter_url -list_name $list_name -filter_name orderby -filter_value ${element},desc -return_url $return_url]"]]
- set groupmenuitems [list]
+ set groupmenuitems {}
lappend groupmenuitems [list [list "text" "By Exact Value"] [list "url" "[filter_url -list_name $list_name -filter_name groupby -filter_value $element -return_url $return_url]"] ]
# lappend groupmenuitems [list [list "text" "By First Letter"] [list "url" "javascript:void(0)"] ]
- set movemenuitems [list]
+ set movemenuitems {}
set this_move $move
if {[set this_move_index [lsearch $move $element]] > -1} {
set this_move [lreplace $move $this_move_index [expr {$this_move_index + 1}]]
@@ -97,7 +97,7 @@
lappend movemenuitems [list [list "text" "First"] [list "url" "[filter_url -list_name $list_name -filter_name move -filter_value [concat $this_move [list $element $first_not_checkbox]] -return_url $return_url]"]]
}
- set menulist [list]
+ set menulist {}
if {[lsearch $list_properties(orderby_refs) "*${element_properties(name)}*"] > -1} {
lappend menulist [list [list "text" "Sort"] [list "submenu" [list [list "id" "sort-$element_properties(name)"] [list "itemdata" $sortmenuitems] ] ] ]
}
@@ -180,9 +180,9 @@
if {[info exists _add_column]} {
set add_column $_add_column
} else {
- set add_column [list]
+ set add_column {}
}
- set addcolumnlist [list]
+ set addcolumnlist {}
template::list::get_reference -name $list_name
lappend list_properties(actions) [_ acs-templating.Add_Column] "javascript:void(0)" [_ acs-templating.Add_Column]
@@ -252,7 +252,7 @@
foreach view $view_names {
set view_name [lindex $view 0]
set value [lindex $view 1]
- set viewmenuitems [list]
+ set viewmenuitems {}
lappend viewlist [list [list "text" $view_name] [list "url" "[filter_url -list_name $list_name -filter_name __list_view -filter_value $value -return_url [ad_conn url]]" ]]
}
@@ -455,7 +455,7 @@
}
if {[info exists hide]} {
- set reset_filters [list]
+ set reset_filters {}
if {[info exists orderby] && [lsearch $hide [lindex [split $orderby ,] 0]] > -1} {
unset orderby
lappend reset_filters orderby
Index: openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl 4 Apr 2018 08:11:26 -0000 1.17
+++ openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl 25 Apr 2018 19:47:46 -0000 1.18
@@ -240,16 +240,16 @@
Converts a properly structured list of lists into JSON format.
The list of lists may look something like
- set data [list]
+ set data {}
lappend data [list [list "x" "1"] [list "y" "10"] ]
lappend data [list [list "x" "5"] [list "y" "20"] ]
each line represents a row composed of lists.
Each list in the row holds a pair that will be joined by ":".
} {
- set rows [list]
+ set rows {}
foreach row $lists_of_pairs {
- set pairs [list]
+ set pairs {}
foreach pair $row {
lappend pairs [join $pair ":"]
}
Index: openacs-4/packages/ajaxhelper/tcl/ajax-yahoo-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/ajax-yahoo-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/ajaxhelper/tcl/ajax-yahoo-procs.tcl 7 Aug 2017 23:48:03 -0000 1.13
+++ openacs-4/packages/ajaxhelper/tcl/ajax-yahoo-procs.tcl 25 Apr 2018 19:47:46 -0000 1.14
@@ -367,7 +367,7 @@
This is an example of a node list.
- set nodes [list]
+ set nodes {}
lappend nodes [list "fld1" "Folder 1" "tree" "" "" "" ""]
lappend nodes [list "fld2" "Folder 2" "tree" "javascript:alert('this is a tree node')" "" "" ""]
@@ -531,17 +531,17 @@
Converts a properly structured list of menu items into JSON format.
The list of lists may look something like
- set submenu [list]
+ set submenu {}
lappend submenu [list [list "text" "Submenu1"] [list "url" "http://www.google.com"] ]
lappend submenu [list [list "text" "Submenu2"] [list "url" "http://www.yahoo.com"] ]
each line represents a row composed of lists.
Each list in the row holds a pair that will be joined by ":".
} {
- set rows [list]
+ set rows {}
foreach row $lists_of_pairs {
- set pairs [list]
+ set pairs {}
foreach pair $row {
if { [lindex $pair 0] eq "submenu" } {
set submenulist [lindex $pair 1]
@@ -695,17 +695,17 @@
if { [llength [lindex $suggestlist 0]] > 1} {
# yes , let's create the array for the innerlist and put each array into one big array
- set outerlist [list]
+ set outerlist {}
foreach onelist $suggestlist {
- set escaped_list [list]
+ set escaped_list {}
foreach elm $onelist {
lappend escaped_list [string map {' \\'} $elm]
}
lappend outerlist "\[ '[join $escaped_list "','"]' \]"
}
set script "var ${varname}Arr = \[ [join $outerlist ","] \];"
- set markup [list]
+ set markup {}
for { set x 0} { $x < [llength [lindex $suggestlist 0]] } { incr x} {
lappend markup "oResultItem\[${x}\]"
}
Index: openacs-4/packages/ajaxhelper/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/json-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/ajaxhelper/tcl/json-procs.tcl 31 Dec 2017 09:40:04 -0000 1.3
+++ openacs-4/packages/ajaxhelper/tcl/json-procs.tcl 25 Apr 2018 19:47:46 -0000 1.4
@@ -67,7 +67,7 @@
# we are dealing with an Object
getc
set state OBJECT
- set dictVal [list]
+ set dictVal {}
}
VALUE {
# this object element's value is an Object
Index: openacs-4/packages/ajaxhelper/www/doc/head-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/doc/head-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ajaxhelper/www/doc/head-procs.tcl 18 Apr 2018 22:25:03 -0000 1.4
+++ openacs-4/packages/ajaxhelper/www/doc/head-procs.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -20,28 +20,28 @@
} {
variable ::template::head::scripts
array unset scripts
- array set scripts [list]
+ array set scripts {}
variable ::template::head::links
array unset links
- array set links [list]
+ array set links {}
variable ::template::head::metas
array unset metas
- array set metas [list]
+ array set metas {}
variable ::template::body_handlers
array unset body_handlers
- array set body_handlers [list]
+ array set body_handlers {}
variable ::template::body_scripts
array unset body_scripts
- set body_scripts [list]
+ set body_scripts {}
variable ::template::headers
- set headers [list]
+ set headers {}
variable ::template::footers
- set footers [list]
+ set footers {}
}
ad_proc -public template::head::add_script {
Index: openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl 25 Dec 2006 16:40:04 -0000 1.1
+++ openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl 25 Apr 2018 19:47:46 -0000 1.2
@@ -25,7 +25,7 @@
return $type
}
$objname proc bindings_from_list {lists_of_pairs} {
- set pairs [list]
+ set pairs {}
foreach pair $lists_of_pairs {
lappend pairs [join $pair ":"]
}
@@ -58,7 +58,7 @@
return $varname
}
$objname proc range_from_list {rangelist} {
- set pairs [list]
+ set pairs {}
foreach pair $rangelist {
lappend pairs [join $pair ":"]
}
@@ -100,7 +100,7 @@
return $varname
}
$objname proc range_from_list {rangelist} {
- set pairs [list]
+ set pairs {}
foreach pair $rangelist {
lappend pairs [join $pair ":"]
}
@@ -135,7 +135,7 @@
$objname set axis_obj_list [list "axis1" "axis2"]
$objname proc createscript { } {
my instvar varname series_obj_list axis_obj_list
- set axislist [list]
+ set axislist {}
foreach axis $axis_obj_list {
lappend axislist [$axis getvarname]
}
Index: openacs-4/packages/ajaxhelper/www/tests/test_yahoomenu-js.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/tests/test_yahoomenu-js.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/ajaxhelper/www/tests/test_yahoomenu-js.tcl 7 Aug 2017 23:48:03 -0000 1.3
+++ openacs-4/packages/ajaxhelper/www/tests/test_yahoomenu-js.tcl 25 Apr 2018 19:47:46 -0000 1.4
@@ -2,7 +2,7 @@
# Menu 1
-# set menulist1 [list]
+# set menulist1 {}
# lappend menulist1 [list [list "text" "Google"] [list "url" "http://www.google.com"] ]
# lappend menulist1 [list [list "text" "Yahoo"] [list "url" "http://www.yahoo.com"] ]
@@ -19,11 +19,11 @@
# Menu 2
-# set submenuitems [list]
+# set submenuitems {}
# lappend submenuitems [list [list "text" "Home Page"] [list "url" "http://www.solutiongrove.com"] ]
# lappend submenuitems [list [list "text" "Blog"] [list "url" "http://www.solutiongrove.com/blogger/"] ]
# set submenulist1 [list [list "id" "sgrovelinks"] [list "itemdata" $submenuitems] ]
-# set menulist2 [list]
+# set menulist2 {}
# lappend menulist2 [list [list "text" "OpenACS"] [list "url" "http://www.openacs.org"] ]
# lappend menulist2 [list [list "text" "Solution Grove"] [list "submenu" $submenulist1] ]
Index: openacs-4/packages/ams/tcl/address-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl 18 Dec 2006 19:14:23 -0000 1.19
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl 25 Apr 2018 19:47:46 -0000 1.20
@@ -156,7 +156,7 @@
Returns the country list.
} {
set country_code_list [db_list get_country_codes {}]
- set return_country_list [list]
+ set return_country_list {}
set reserved_country_codes [parameter::get_from_package_key -parameter "DefaultISOCountryCode" -package_key "ams" -default ""]
foreach country $country_code_list {
@@ -165,7 +165,7 @@
}
}
set return_country_list [ams::util::sort_list_of_lists -list $return_country_list]
- set country_code [list]
+ set country_code {}
if { [exists_and_not_null reserved_country_codes] } {
foreach country $reserved_country_codes {
set country [string toupper $country]
@@ -215,7 +215,7 @@
set additional_text [template::util::address::get_property additional_text $address_list]
set postal_type [template::util::address::get_property postal_type $address_list]
- set message [list]
+ set message {}
# this is used to make sure there are no invalid characters in the address
set address_temp "$delivery_address $municipality $region $postal_code $country_code $additional_text $postal_type"
if { [::string match "\{" $address_temp] || [::string match "\}" $address_temp] } {
@@ -371,7 +371,7 @@
}
if { $country_code == "US" || $country_code == "CA" } {
# make the city pretty
- set municipality_temp [list]
+ set municipality_temp {}
foreach word $municipality {
# I am sure there are more then "Mc" words when they come up add them here
if { [regexp {^MC([a-zA-Z]+?)} [string toupper $word]] } {
Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -N -r1.54 -r1.55
--- openacs-4/packages/ams/tcl/ams-procs.tcl 5 Apr 2018 14:44:08 -0000 1.54
+++ openacs-4/packages/ams/tcl/ams-procs.tcl 25 Apr 2018 19:47:46 -0000 1.55
@@ -202,9 +202,9 @@
} {
localize the elements of a list_of_lists
} {
- set list_output [list]
+ set list_output {}
foreach item $list {
- set item_output [list]
+ set item_output {}
foreach part $item {
lappend item_output [lang::util::localize $part]
}
@@ -219,7 +219,7 @@
} {
sort a list_of_lists
} {
-# set sort_output [list]
+# set sort_output {}
# foreach item $list {
# set sort_key [string toupper [lindex $item $position]]
# we need to replace spaces because it prevents
@@ -229,7 +229,7 @@
# lappend sort_output [list $sort_key $item]
# }
# set sort_output [lsort $sort_output]
-# set list_output [list]
+# set list_output {}
# foreach item $sort_output {
# lappend list_output [lindex $item 1]
# }
@@ -461,7 +461,7 @@
@param list_names A list of list_names to get the list_ids from. Either this or list_name must be provided.
@param key The key element to use in the form.
} {
- set list_ids [list]
+ set list_ids {}
if { [empty_string_p $list_names] && [empty_string_p $list_name] } {
ad_return_complaint 1 "[_ ams.you_must_provide_list_name]"
ad_script_abort
@@ -499,11 +499,11 @@
# Control list to know which attributes are already in the
# elements list so we don't en up with duplicates
- set control_list [list]
+ set control_list {}
# If we do not have a list_id then don't bother to try and get any attributes...
if {[string eq "" $list_ids]} {
- set all_attributes [list]
+ set all_attributes {}
} else {
set all_attributes [db_list_of_lists select_elements " "]
}
@@ -664,7 +664,7 @@
set list_names $list_name
}
- set list_ids [list]
+ set list_ids {}
foreach l_name $list_names {
set list_id [ams::list::get_list_id -package_key $package_key -object_type $object_type -list_name $l_name]
if {![empty_string_p $list_id]} {
@@ -677,7 +677,7 @@
set list_ids [template::util::tcl_to_sql_list $list_ids]
if { [exists_and_not_null list_ids] } {
- set values [list]
+ set values {}
set heading ""
# Control list to know which attributes are already in the
Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v
diff -u -N -r1.38 -r1.39
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl 23 Mar 2018 22:56:43 -0000 1.38
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl 25 Apr 2018 19:47:46 -0000 1.39
@@ -67,7 +67,7 @@
value_text - value_html {
if { [exists_and_not_null value] } {
if { [::ams::widget_has_options_p -widget $widget] } {
- set output [list]
+ set output {}
foreach option [::ams::widget_options -attribute_id $attribute_id -locale $locale] {
if { [lsearch $value [lindex $option 1]] >= 0 } {
lappend output [lindex $option 0]
@@ -106,7 +106,7 @@
} {
Return all widget procs. Each list element is a list of the first then pretty_name then the widget
} {
- set return_list [list]
+ set return_list {}
db_foreach get_options {} {
set pretty_name "[lang::util::localize $pretty_name $locale]"
lappend return_list [list $pretty_name $option_id]
@@ -126,7 +126,7 @@
} {
Return all widget procs. Each list element is a list of the first then pretty_name then the widget
} {
- set widgets [list]
+ set widgets {}
set all_procs [::info procs "::ams::widget::*"]
foreach widget $all_procs {
if { [string is false [regsub {__arg_parser} $widget {} widget]] } {
@@ -141,7 +141,7 @@
} {
Initialize all widgets. Deprecated widgets that no longer exist in the tcl api.
} {
- set proc_widgets [list]
+ set proc_widgets {}
foreach widget [ams::widget_list] {
lappend proc_widgets [lindex $widget 1]
}
@@ -422,7 +422,7 @@
switch $request {
ad_form_widget {
set help_text [attribute::help_text -attribute_id $attribute_id]
- set element [list]
+ set element {}
if { [string is true $optional_p] } {
return "${attribute_name}:mobile_number(mobile_number),optional {help_text \"$help_text\"} {[list label ${pretty_name}]} {[list html ${html_options}]}"
} else {
@@ -513,7 +513,7 @@
switch $request {
ad_form_widget {
set help_text [attribute::help_text -attribute_id $attribute_id]
- set element [list]
+ set element {}
if { [string is true $optional_p] } {
lappend element ${attribute_name}:text(text),optional
} else {
@@ -606,7 +606,7 @@
switch $request {
ad_form_widget {
set help_text [attribute::help_text -attribute_id $attribute_id]
- set element [list]
+ set element {}
if { [string is true $optional_p] } {
lappend element ${attribute_name}:text(text),optional
} else {
Index: openacs-4/packages/ams/www/attribute-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute-add-2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ams/www/attribute-add-2.tcl 28 May 2005 15:37:27 -0000 1.4
+++ openacs-4/packages/ams/www/attribute-add-2.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -91,7 +91,7 @@
} -on_submit {
set i 1
- set options [list]
+ set options {}
while { $i <= "9" } {
set option_value [string trim [set option${i}]]
ns_log notice $option_value
Index: openacs-4/packages/ams/www/attribute-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute-add.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/ams/www/attribute-add.tcl 31 Jul 2007 00:53:01 -0000 1.10
+++ openacs-4/packages/ams/www/attribute-add.tcl 25 Apr 2018 19:47:46 -0000 1.11
@@ -41,7 +41,7 @@
set default_number_of_options 5
set option_fields_count $default_number_of_options
set i 1
- set elements [list]
+ set elements {}
lappend elements [list option_fields_count:integer(hidden) [list value $option_fields_count]]
# lappend elements [list options_on_last_screen:integer(hidden),optional]
while { $i <= $option_fields_count } {
Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl 7 Aug 2017 23:48:03 -0000 1.29
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl 25 Apr 2018 19:47:46 -0000 1.30
@@ -274,7 +274,7 @@
}
set admin [db_list_of_lists get_assessment_admin {}]
- set to [list]
+ set to {}
foreach notify_user $admin {
lappend to $notify_user
}
@@ -348,7 +348,7 @@
db_dml update_actions_log {}
set admin [db_list_of_lists get_assessment_admin {}]
- set to [list]
+ set to {}
foreach notify_user $admin {
lappend to $notify_user
}
Index: openacs-4/packages/assessment/tcl/as-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-list-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/assessment/tcl/as-list-procs.tcl 7 Aug 2017 23:48:03 -0000 1.7
+++ openacs-4/packages/assessment/tcl/as-list-procs.tcl 25 Apr 2018 19:47:46 -0000 1.8
@@ -27,7 +27,7 @@
set paramlist [list]
if { [set form [rp_getform]] ne "" } {
array set formarr [util_ns_set_to_list -set $form]
- set paramlist [list]
+ set paramlist {}
foreach param [array names formarr] {
if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
@@ -53,7 +53,7 @@
set as_item_ids [list]
if { [set form [rp_getform]] ne "" } {
array set formarr [util_ns_set_to_list -set $form]
- set paramlist [list]
+ set paramlist {}
foreach param [array names formarr] {
if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
@@ -102,15 +102,15 @@
@param assessment_ids List of IDs of the assessments to get the items from
} {
- set elements [list]
+ set elements {}
set multirow __as_list_$list_name
as::list::get_items_multirow \
-assessment_ids $assessment_ids \
-multirow $multirow
# don't query the same item more than one
- array set visited_items [list]
+ array set visited_items {}
template::multirow foreach $multirow {
if {![info exists visited_items($item_id)] && $as_item_id == $latest_revision} {
set visited_items($item_id) $item_id
@@ -182,7 +182,7 @@
#get all the items
- set filters [list]
+ set filters {}
# we just want the questions that are in all the assessments we received
set multirow __as_list_$list_name
@@ -191,7 +191,7 @@
-multirow $multirow
# don't query the same item more than one
- array set visited_items [list]
+ array set visited_items {}
template::multirow foreach $multirow {
if {![info exists visited_items($item_id)]} {
set visited_items($item_id) $item_id
@@ -271,7 +271,7 @@
} else {
set multiple_assessment_where ""
}
- array set visited_sections [list]
+ array set visited_sections {}
foreach section [db_list_of_lists sections {}] {
set option_section_title [lindex $section 0]
set option_section_id [lindex $section 1]
@@ -295,7 +295,7 @@
#get all the items
- set groupbys [list]
+ set groupbys {}
# we just want the questions that are in all the assessments we received
set multirow __as_list_$list_name
@@ -304,7 +304,7 @@
-multirow $multirow
# don't query the same item more than one
- array set visited_items [list]
+ array set visited_items {}
template::multirow foreach $multirow {
if {![info exists visited_items($item_id)]} {
set visited_items($item_id) $item_id
@@ -331,7 +331,7 @@
#get all the items
- set orderbys [list]
+ set orderbys {}
# we just want the questions that are in all the assessments we received
set multirow __as_list_$list_name
@@ -340,7 +340,7 @@
-multirow $multirow
# don't query the same item more than one
- array set visited_items [list]
+ array set visited_items {}
template::multirow foreach $multirow {
if {![info exists visited_items($item_id)]} {
set visited_items($item_id) $item_id
Index: openacs-4/packages/assessment/www/asm-admin/action-params.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/action-params.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/assessment/www/asm-admin/action-params.tcl 20 Jan 2018 22:38:28 -0000 1.11
+++ openacs-4/packages/assessment/www/asm-admin/action-params.tcl 25 Apr 2018 19:47:46 -0000 1.12
@@ -68,7 +68,7 @@
}
db_foreach get_params {} {
- set choices [list]
+ set choices {}
if { $type eq "n" } {
if { $action_perform eq "aa" || $action_perform eq "m" || $action_perform eq "or" || $action_perform eq "sa"} {
set choices [db_list_of_lists choices {}]
Index: openacs-4/packages/assessment/www/asm-admin/item-stats.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-stats.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/item-stats.tcl 7 Aug 2017 23:48:04 -0000 1.8
+++ openacs-4/packages/assessment/www/asm-admin/item-stats.tcl 25 Apr 2018 19:47:46 -0000 1.9
@@ -33,7 +33,7 @@
if {[info exists session_id_list]} {
set session_ids $session_id_list
- set session_id_list [list]
+ set session_id_list {}
foreach elm [split $session_id_list] {
if {$elm ne ""} {
lappend session_id_list $elm
@@ -95,8 +95,8 @@
set total_correct 0
set total_choices 0
- set choices [list]
- set visited_session_ids [list]
+ set choices {}
+ set visited_session_ids {}
set item_choices_limit_session ""
if { ([info exists limit_to_section_clause] && $limit_to_section_clause ne "") } { set item_choices_limit_session "and d.session_id in $limit_to_section_clause" }
@@ -210,7 +210,7 @@
"float" {
set stats "
\n"
- set number_answers [list]
+ set number_answers {}
set total_responses 0
db_foreach get_number_answers {
select count(*) as n_responses, numeric_answer
Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl 27 Mar 2018 17:08:50 -0000 1.14
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl 25 Apr 2018 19:47:46 -0000 1.15
@@ -523,7 +523,7 @@
}
append dn ",$params(BaseDN)"
- set attributes [list]
+ set attributes {}
foreach elm [split $params(Attributes) ";"] {
set elmv [split $elm "="]
set attribute [string trim [lindex $elmv 0]]
@@ -603,7 +603,7 @@
}
# Set up mapping data structure
- array set map [list]
+ array set map {}
foreach elm [split $params(InfoAttributeMap) ";"] {
set elmv [split $elm "="]
set oacs_elm [string trim [lindex $elmv 0]]
@@ -613,7 +613,7 @@
}
# Map LDAP attributes to OpenACS elements
- array set user [list]
+ array set user {}
foreach { attribute value } [lindex $search_result 0] {
if { [info exists map($attribute)] } {
foreach oacs_elm $map($attribute) {
Index: openacs-4/packages/b-responsive-theme/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/b-responsive-theme/www/blank-master.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/b-responsive-theme/www/blank-master.tcl 12 Apr 2018 07:47:22 -0000 1.2
+++ openacs-4/packages/b-responsive-theme/www/blank-master.tcl 25 Apr 2018 19:47:46 -0000 1.3
@@ -100,7 +100,7 @@
if { [llength $css] == 2 && [llength [lindex $css 0]] == 1 } {
template::head::add_css -href [lindex $css 0] -media [lindex $css 1]
} else {
- set params [list]
+ set params {}
foreach param $css {
lappend params -[lindex $param 0] [lindex $param 1]
}
@@ -172,7 +172,7 @@
# we are using TinyMCE
template::head::add_javascript -src "/resources/acs-templating/tinymce/jscripts/tiny_mce/tiny_mce_src.js" -order tinymce0
# get the textareas where we apply tinymce
- set tinymce_elements [list]
+ set tinymce_elements {}
foreach htmlarea_id [lsort -unique $::acs_blank_master__htmlareas] {
lappend tinymce_elements $htmlarea_id
}
Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -N -r1.39 -r1.40
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 8 Apr 2018 05:29:43 -0000 1.39
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 25 Apr 2018 19:47:46 -0000 1.40
@@ -262,7 +262,7 @@
} {
upvar $array row
- array set assignments [list]
+ array set assignments {}
set role_prefix "role_"
foreach name [array names row "${role_prefix}*"] {
@@ -710,7 +710,7 @@
}
# Build up the details list
- set details_list [list]
+ set details_list {}
foreach field $fields {
lappend details_list $label($field) $value($field)
}
@@ -824,7 +824,7 @@
}
}
- set category_defaults [list]
+ set category_defaults {}
foreach { parent_id parent_heading } [bug_tracker::category_types] {
@@ -1048,7 +1048,7 @@
fixed_in_version_name
}
- set category_defaults [list]
+ set category_defaults {}
foreach { parent_id parent_heading } [bug_tracker::category_types] {
lappend category_defaults $parent_id {}
@@ -1115,7 +1115,7 @@
bug_tracker::bug::get_list -ulevel 2
bug_tracker::bug::get_multirow
- set filter_bug_numbers [list]
+ set filter_bug_numbers {}
template::multirow foreach bugs {
lappend filter_bug_numbers $bug_number
}
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -N -r1.55 -r1.56
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 24 Apr 2018 16:13:07 -0000 1.55
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 25 Apr 2018 19:47:46 -0000 1.56
@@ -331,7 +331,7 @@
set workflow_id [bug_tracker::bug::get_instance_workflow_id -package_id $package_id]
set state_ids [workflow::fsm::get_states -workflow_id $workflow_id]
- set option_list [list]
+ set option_list {}
foreach state_id $state_ids {
workflow::state::fsm::get -state_id $state_id -array state
lappend option_list [list "$state(pretty_name)" $state(short_name)]
@@ -470,8 +470,8 @@
@return Returns the category types for this instance as an
array-list of { parent_id1 heading1 parent_id2 heading2 ... }
} {
- array set heading [list]
- set parent_ids [list]
+ array set heading {}
+ set parent_ids {}
set last_parent_id {}
foreach elm [get_keywords -package_id $package_id] {
@@ -484,7 +484,7 @@
}
}
- set result [list]
+ set result {}
foreach parent_id $parent_ids {
lappend result $parent_id $heading($parent_id)
}
@@ -533,7 +533,7 @@
@param parent_id The category type's keyword_id
@return options-list for a select widget for the given category type
} {
- set options [list]
+ set options {}
foreach elm [get_keywords -package_id $package_id] {
lassign $elm elm_child_id elm_child_heading elm_parent_id
@@ -1147,7 +1147,7 @@
Return a list of lists with the bug number in the first element and the bug
summary in the second.
} {
- set bug_list [list]
+ set bug_list {}
set package_id [ad_conn package_id]
if { $only_open_p } {
@@ -1177,7 +1177,7 @@
{-write_or_submitter_p:required}
} {
set bug_list [get_mapped_bugs -patch_number $patch_number]
- set bug_link_list [list]
+ set bug_link_list {}
if { [llength $bug_list] == 0} {
return ""
@@ -1211,7 +1211,7 @@
{-bug_id:required}
{-show_patch_status open}
} {
- set patch_list [list]
+ set patch_list {}
switch -- $show_patch_status {
open {
@@ -1452,7 +1452,7 @@
ad_proc bug_tracker::get_related_files_links {
{-bug_id:required}
} {
- set related_files_list [list]
+ set related_files_list {}
set user_id [ad_conn user_id]
set admin_p [permission::permission_p \
-party_id $user_id \
@@ -1503,7 +1503,7 @@
ad_proc bug_tracker::get_related_files_links {
{-bug_id:required}
} {
- set related_files_list [list]
+ set related_files_list {}
set user_id [ad_conn user_id]
set admin_p [permission::permission_p \
-party_id $user_id \
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl 28 Mar 2018 23:36:17 -0000 1.4
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -32,7 +32,7 @@
workflow::action::get -action_id $enabled_action(action_id) -array available_action
if {$available_action(short_name) eq "resolve"} {
set action_id $enabled_action(action_id)
- array set row [list]
+ array set row {}
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
set row($field) ""
}
@@ -52,7 +52,7 @@
workflow::action::get -action_id $enabled_action(action_id) -array available_action
if {$available_action(short_name) eq "close"} {
set action_id $enabled_action(action_id)
- array set row [list]
+ array set row {}
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
set row($field) ""
}
Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -N -r1.54 -r1.55
--- openacs-4/packages/bug-tracker/www/bug.tcl 7 Apr 2018 11:27:06 -0000 1.54
+++ openacs-4/packages/bug-tracker/www/bug.tcl 25 Apr 2018 19:47:46 -0000 1.55
@@ -258,7 +258,7 @@
# on_submit block
ad_form -extend -name bug -on_submit {
- array set row [list]
+ array set row {}
if { $enabled_action_id ne "" } {
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
Index: openacs-4/packages/bug-tracker/www/related-file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/related-file-add.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/www/related-file-add.tcl 30 Sep 2017 18:12:52 -0000 1.4
+++ openacs-4/packages/bug-tracker/www/related-file-add.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -82,7 +82,7 @@
workflow::action::get -action_id $enabled_action(action_id) -array available_action
if {$available_action(short_name) eq "comment"} {
set action_id $enabled_action(action_id)
- array set row [list]
+ array set row {}
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
set row($field) ""
}
Index: openacs-4/packages/bug-tracker/www/related-file-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/related-file-delete.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/bug-tracker/www/related-file-delete.tcl 29 May 2016 10:50:02 -0000 1.5
+++ openacs-4/packages/bug-tracker/www/related-file-delete.tcl 25 Apr 2018 19:47:46 -0000 1.6
@@ -66,7 +66,7 @@
workflow::action::get -action_id $enabled_action(action_id) -array available_action
if {$available_action(short_name) eq "comment"} {
set action_id $enabled_action(action_id)
- array set row [list]
+ array set row {}
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
set row($field) ""
}
Index: openacs-4/packages/bug-tracker/www/related-file-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/related-file-update.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/bug-tracker/www/related-file-update.tcl 30 Sep 2017 18:12:52 -0000 1.5
+++ openacs-4/packages/bug-tracker/www/related-file-update.tcl 25 Apr 2018 19:47:46 -0000 1.6
@@ -87,7 +87,7 @@
workflow::action::get -action_id $enabled_action(action_id) -array available_action
if {$available_action(short_name) eq "comment"} {
set action_id $enabled_action(action_id)
- array set row [list]
+ array set row {}
foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
set row($field) ""
}
Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 12 Apr 2018 07:47:22 -0000 1.16
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 25 Apr 2018 19:47:46 -0000 1.17
@@ -194,7 +194,7 @@
# for strings of the format {column_name} in the subject
# and message and replace them with the value of that
# column as returned by the query
- set pairs [list]
+ set pairs {}
for {set i 0} {$i < [ns_set size $recipient]} {incr i} {
lappend pairs [list \{[ns_set key $recipient $i]\} [ns_set value $recipient $i]]
}
Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl 22 Apr 2018 18:05:23 -0000 1.30
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl 25 Apr 2018 19:47:46 -0000 1.31
@@ -249,7 +249,7 @@
db_exec_plsql update_interval {}
# Update the item_type_id and calendar_id
- set colspecs [list]
+ set colspecs {}
lappend colspecs "item_type_id = :item_type_id"
if { $calendar_id ne "" } {
lappend colspecs "on_which_calendar = :calendar_id"
@@ -333,7 +333,7 @@
-cal_item_id $event_id \
-array orig_event
- set colspecs [list]
+ set colspecs {}
foreach col {name description} {
if {$orig_event($col) ne [set $col]} {
lappend colspecs "$col = :$col"
@@ -342,7 +342,7 @@
if {[llength $colspecs]} {
db_dml recurrence_events_update {}
}
- set colspecs [list]
+ set colspecs {}
lappend colspecs {item_type_id = :item_type_id}
if { $calendar_id ne "" } {
lappend colspecs {on_which_calendar = :calendar_id}
Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/categories/tcl/categories-procs.tcl 31 Jan 2018 08:23:12 -0000 1.31
+++ openacs-4/packages/categories/tcl/categories-procs.tcl 25 Apr 2018 19:47:46 -0000 1.32
@@ -379,7 +379,7 @@
@return list of names corresponding to the list of category_id's supplied.
@author Timo Hentschel (timo@timohentschel.de)
} {
- set result [list]
+ set result {}
foreach category_id $category_ids {
lappend result [category::get_name $category_id $locale]
}
Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl 7 Aug 2017 23:48:05 -0000 1.27
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 25 Apr 2018 19:47:46 -0000 1.28
@@ -32,7 +32,7 @@
returns the main categories of a given tree
} {
set locale [ad_conn locale]
- set result [list]
+ set result {}
set categories [db_list get_categories ""]
foreach category_id $categories {
lappend result $category_id
@@ -223,7 +223,7 @@
assign_single_p require_category_p
@author Timo Hentschel (timo@timohentschel.de)
} {
- set result [list]
+ set result {}
db_foreach get_mapped_trees "" {
lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p $widget]
@@ -238,7 +238,7 @@
@return Tcl list of tree_ids
@author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at)
} {
- set result [list]
+ set result {}
db_foreach get_trees "" {
lappend result $tree_id
@@ -272,7 +272,7 @@
assign_single_p require_category_p widget
@author Jade Rubick (jader@bread.com)
} {
- set result [list]
+ set result {}
db_foreach get_mapped_trees_from_object_list "" {
lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p $widget]
@@ -347,16 +347,16 @@
catch {nsv_unset category_trees}
set tree_id_old 0
set cur_level 1
- set stack [list]
+ set stack {}
set invalid_p ""
- set tree [list]
+ set tree {}
db_foreach reset_cache "" {
if {$tree_id != $tree_id_old && $tree_id_old != 0} {
nsv_set category_trees $tree_id_old $tree
set cur_level 1
- set stack [list]
+ set stack {}
set invalid_p ""
- set tree [list]
+ set tree {}
}
set tree_id_old $tree_id
lappend tree [list $category_id [ad_decode "$invalid_p$deprecated_p" "" f t] $cur_level]
@@ -386,9 +386,9 @@
@author Timo Hentschel (timo@timohentschel.de)
} {
set cur_level 1
- set stack [list]
+ set stack {}
set invalid_p ""
- set tree [list]
+ set tree {}
db_foreach flush_cache "" {
lappend tree [list $category_id [ad_decode "$invalid_p$deprecated_p" "" f t] $cur_level]
if { $right_ind - $left_ind > 1} {
@@ -574,7 +574,7 @@
&& [llength $category_counts] > 1} {
array set counts $category_counts
} else {
- array set counts [list]
+ array set counts {}
}
# If we should append, then don't create the datasource if it already exists
@@ -611,12 +611,12 @@
# given level
set size [template::multirow size $datasource]
- set rollup [list]
+ set rollup {}
for {set i $size} {$i > 0} {incr i -1} {
set level [template::multirow get $datasource $i level]
set count [template::multirow get $datasource $i count]
set j 1
- set nrollup [list]
+ set nrollup {}
foreach r $rollup {
if {$j < $level} {
lappend nrollup [expr {$r + $count}]
Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/categories/tcl/widget-procs.tcl 7 Aug 2017 23:48:05 -0000 1.24
+++ openacs-4/packages/categories/tcl/widget-procs.tcl 25 Apr 2018 19:47:46 -0000 1.25
@@ -104,7 +104,7 @@
set mapped_categories [ns_querygetall $element(id)]
# QUIRK: ns_querygetall returns a single-element list {{}} for no values
if { [string equal $mapped_categories {{}}] } {
- set mapped_categories [list]
+ set mapped_categories {}
}
}
set output {}
@@ -184,7 +184,7 @@
# author: Timo Hentschel (timo@timohentschel.de)
upvar 2 $message_ref message $value_ref values
- set invalid_values [list]
+ set invalid_values {}
foreach value $values {
if {![regexp {^[+-]?\d+$} $value]} {
@@ -261,11 +261,11 @@
if {$require_category_p == "t"} {
set trees [list [list $tree_id $subtree_id]]
} else {
- set trees [list]
+ set trees {}
}
}
- set trees_without_category [list]
+ set trees_without_category {}
foreach tree $trees {
lassign $tree tree_id subtree_id
# get categories of every tree requiring a categorization
Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl 19 Jan 2018 14:50:04 -0000 1.8
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl 25 Apr 2018 19:47:46 -0000 1.9
@@ -34,8 +34,8 @@
set last_ind [expr {($count / 5) + 1}]
set count 1
- set stack [list]
- set done_list [list]
+ set stack {}
+ set done_list {}
# put toplevel categories on stack
if {[info exists child(-1)]} {
set stack [lsort -integer -index 0 $child(-1)]
Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/chat/tcl/chat-procs.tcl 1 Feb 2018 20:47:36 -0000 1.15
+++ openacs-4/packages/chat/tcl/chat-procs.tcl 25 Apr 2018 19:47:46 -0000 1.16
@@ -634,7 +634,7 @@
# do we have to create a transcript for the room
if { $room_info(auto_transcript_p) == "t" } {
# build a list of all messages
- set contents [list]
+ set contents {}
foreach message [db_list_of_lists get_archives_messages {}] {
lassign $message msg creation_user creation_date
set user_name [expr {$creation_user > 0 ? [chat_user_name $creation_user] : "system"}]
Index: openacs-4/packages/cms/tcl/browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/browser-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/browser-procs.tcl 5 Apr 2018 14:44:08 -0000 1.4
+++ openacs-4/packages/cms/tcl/browser-procs.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -24,7 +24,7 @@
} {
- set state [list]
+ set state {}
foreach mount_point [buildMountPoints $user_id] {
lappend state [stateNodeCreate [folderAccess mount_point $mount_point] [list]]
}
@@ -44,7 +44,7 @@
} {
- set new_children [list]
+ set new_children {}
upvar $stateRef state
foreach child $children {
@@ -89,7 +89,7 @@
collapse {
# Collapse: empty the children list
ns_log debug "updateTreeStateChildren: COLLAPSING: [folderPath $user_id $mount_point $target_id]"
- set child_children [list]
+ set child_children {}
}
expand {
@@ -172,7 +172,7 @@
}
# Merge the new children, preserving the sorted order
- set child_children [list]
+ set child_children {}
foreach new_child $folder_children {
set old_child_id [stateNodeAccess id $new_child]
# If the old child exists, use it instead of the new one
@@ -222,7 +222,7 @@
# Reference the state
upvar $stateRef state
- set folderList [list]
+ set folderList {}
foreach node $state {
@@ -366,7 +366,7 @@
the folders in the process
} {
- set child_ids [list]
+ set child_ids {}
foreach subfolder $subfolder_list {
if { ![template::util::is_nil user_id] } {
cacheOneFolder $user_id $subfolder 1
Index: openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl 1 Nov 2003 08:45:38 -0000 1.3
+++ openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl 25 Apr 2018 19:47:46 -0000 1.4
@@ -24,7 +24,7 @@
set elements $opts(elements)
unset opts(elements)
} else {
- set elements [list]
+ set elements {}
}
set v_args [template::util::list_opts]
@@ -72,7 +72,7 @@
# Set defaults
set row(html) ""
set row(hidden) ""
- set row(elements) [list]
+ set row(elements) {}
# Create the checkbox
set element_code [list check -datatype text -widget checkbox \
@@ -214,7 +214,7 @@
return
}
- set header [list]
+ set header {}
foreach element_name $row(elements) {
upvar "${form_name}:${element_name}_${row_index}" element
if { ![string equal $element(widget) hidden] } {
Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/cms/tcl/form-procs.tcl 5 Apr 2018 14:44:08 -0000 1.30
+++ openacs-4/packages/cms/tcl/form-procs.tcl 25 Apr 2018 19:47:46 -0000 1.31
@@ -57,8 +57,8 @@
upvar content_type content_type
upvar opts opts
- set code_params [list]
- set html_params [list]
+ set code_params {}
+ set html_params {}
# Process the results of the query.
for { set i $start_row } { $i <= $rowcount } { incr i } {
@@ -207,8 +207,8 @@
set last_attribute_name ""
set new_section_p 1
- set code_params [list]
- set html_params [list]
+ set code_params {}
+ set html_params {}
# Perform a gigantic query to retrieve all metadata
query_form_metadata
@@ -250,8 +250,8 @@
ns_log debug "content::get_revision_form: type_label: $last_type"
eval $form_element
- set code_params [list]
- set html_params [list]
+ set code_params {}
+ set html_params {}
}
@@ -396,8 +396,8 @@
if { $i != 1 } {
content::process_revision_form_dml
}
- set columns [list]
- set values [list]
+ set columns {}
+ set values {}
}
# fetch the value of the attribute from the form
@@ -493,8 +493,8 @@
if { $i != 1 } {
content::process_insert_statement
}
- set columns [list]
- set values [list]
+ set columns {}
+ set values {}
}
# fetch the value of the attribute from the form
@@ -552,7 +552,7 @@
Assemble a passthrough list out of variables
} {
- set result [list]
+ set result {}
foreach varname $args {
upvar $varname var
lappend result [list $varname $var]
@@ -783,9 +783,9 @@
# initialize the column and value list
set columns [list item_id revision_id creation_user creation_ip]
set values [list :item_id :revision_id null null]
- set default_columns [list]
- set default_values [list]
- set missing_columns [list]
+ set default_columns {}
+ set default_values {}
+ set missing_columns {}
# query for attribute names and datatypes
foreach attribute [get_attributes $content_type attribute_name datatype default_value ancestor] {
@@ -1344,7 +1344,7 @@
set attribute_data [eval get_type_attribute_params [array names type_lookup]]
- set attribute_names [list]
+ set attribute_names {}
array set attributes_by_type $attribute_data
foreach row $attribute_list {
@@ -1754,8 +1754,8 @@
# Assemble the list of columns to query, handling dates
# correctly
- set columns [list]
- set attr_types [list]
+ set columns {}
+ set attr_types {}
foreach attr $attributes {
if { [template::element exists $form_name "$prefix$attr"] } {
set datatype [template::element get_property $form_name "$prefix$attr" datatype]
Index: openacs-4/packages/cms/tcl/module-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/module-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/cms/tcl/module-procs.tcl 5 Apr 2018 14:44:08 -0000 1.10
+++ openacs-4/packages/cms/tcl/module-procs.tcl 25 Apr 2018 19:47:46 -0000 1.11
@@ -192,7 +192,7 @@
} {
- set children [list]
+ set children {}
if { [string equal $id {}] } {
set id [getRootFolderID [ad_conn package_id]]
@@ -222,7 +222,7 @@
} {
- set children [list]
+ set children {}
if { [string equal $id {}] } {
set where_clause "k.parent_id is null"
@@ -307,7 +307,7 @@
return [list]
}
- set children [list]
+ set children {}
set module_name [namespace tail [namespace current]]
Index: openacs-4/packages/cms/www/doc/dev-guide.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/doc/dev-guide.html,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/doc/dev-guide.html 20 Apr 2001 20:51:09 -0000 1.1
+++ openacs-4/packages/cms/www/doc/dev-guide.html 25 Apr 2018 19:47:46 -0000 1.2
@@ -1903,7 +1903,7 @@
1 2 3 4
% set factor 3
3
- % set b [list]
+ % set b {}
% list_map $a {lappend b [expr $list_item * $factor]}
% set b
3 6 9 12
Index: openacs-4/packages/cms/www/doc/xml/uplevels-namespaces.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/doc/xml/uplevels-namespaces.xml,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/doc/xml/uplevels-namespaces.xml 20 Apr 2001 20:51:10 -0000 1.1
+++ openacs-4/packages/cms/www/doc/xml/uplevels-namespaces.xml 25 Apr 2018 19:47:46 -0000 1.2
@@ -964,7 +964,7 @@
1 2 3 4
% set factor 3
3
-% set b [list]
+% set b {}
% list_map $a {lappend b [expr $list_item * $factor]}
% set b
3 6 9 12
Index: openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl 13 Apr 2005 20:15:19 -0000 1.8
+++ openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl 25 Apr 2018 19:47:46 -0000 1.9
@@ -69,7 +69,7 @@
db_transaction {
- set parents [list]
+ set parents {}
foreach del_item_id $deleted_items {
set is_symlink [element get_values delete "is_symlink_$del_item_id"]
set is_folder [element get_values delete "is_folder_$del_item_id"]
Index: openacs-4/packages/cms/www/modules/users/user-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/users/user-search.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/users/user-search.tcl 20 Aug 2002 11:17:31 -0000 1.4
+++ openacs-4/packages/cms/www/modules/users/user-search.tcl 25 Apr 2018 19:47:46 -0000 1.5
@@ -54,7 +54,7 @@
set extra_url [content::url_passthrough $passthrough]
- set clauses [list]
+ set clauses {}
set search_in [element get_values user_search search_in]
set keyword [string tolower "%$keyword%"]
Index: openacs-4/packages/contacts/lib/contacts-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-master.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/contacts/lib/contacts-master.tcl 8 Feb 2008 17:13:27 -0000 1.17
+++ openacs-4/packages/contacts/lib/contacts-master.tcl 25 Apr 2018 19:47:46 -0000 1.18
@@ -98,7 +98,7 @@
if { ![exists_and_not_null title] } {
set title [ad_conn instance_name]
- set context [list]
+ set context {}
} else {
set context [list $title]
}
Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -N -r1.73 -r1.74
--- openacs-4/packages/contacts/lib/contacts.tcl 25 Jun 2007 16:25:39 -0000 1.73
+++ openacs-4/packages/contacts/lib/contacts.tcl 25 Apr 2018 19:47:46 -0000 1.74
@@ -110,7 +110,7 @@
# We clear the list when no value is submited, otherwise
# we acumulate the extend values.
if { [empty_string_p $extend_option] } {
- set extend_values [list]
+ set extend_values {}
} else {
lappend extend_values [list $extend_option]
}
@@ -546,7 +546,7 @@
}
- set party_ids [list]
+ set party_ids {}
db_multirow contacts report_contacts_select {} {
lappend party_ids $party_id
}
@@ -597,7 +597,7 @@
eval $command
- set keys [list]
+ set keys {}
template::multirow foreach contacts {
set key [list]
foreach {element details} $report_elements {
Index: openacs-4/packages/contacts/lib/email-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email-search.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/contacts/lib/email-search.tcl 17 Apr 2018 14:47:02 -0000 1.7
+++ openacs-4/packages/contacts/lib/email-search.tcl 25 Apr 2018 19:47:46 -0000 1.8
@@ -107,7 +107,7 @@
set tracking_p [apm_package_installed_p "mail-tracking"]
if { [exists_and_not_null file_ids] } {
- set files [list]
+ set files {}
foreach file $file_ids {
set file_item_id [content::revision::item_id -revision_id $file]
if {$file_item_id eq ""} {
@@ -139,7 +139,7 @@
# because if we put something like this {value $value} the value
# of the variable is not interpreted
- set element [list]
+ set element {}
lappend element "${var}:text(hidden)"
lappend element "value $var_value"
@@ -277,9 +277,9 @@
set valid_party_ids [contact::search::results -search_id $search_id -package_id $package_id]
}
- set party_ids [list]
- set invalid_party_ids [list]
- set invalid_recipients [list]
+ set party_ids {}
+ set invalid_party_ids {}
+ set invalid_recipients {}
foreach party_id $valid_party_ids {
if { [party::email -party_id $party_id] eq "" } {
# We are going to check if there is an employee relationship
@@ -331,7 +331,7 @@
set attribute_id [attribute::id -object_type "person" -attribute_name "salutation"]
# List to store know which emails received the message
- set recipients_addr [list]
+ set recipients_addr {}
set from [ad_conn user_id]
set from_addr [contact::email -party_id $from]
Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -N -r1.40 -r1.41
--- openacs-4/packages/contacts/lib/email.tcl 17 Apr 2018 14:47:02 -0000 1.40
+++ openacs-4/packages/contacts/lib/email.tcl 25 Apr 2018 19:47:46 -0000 1.41
@@ -122,7 +122,7 @@
set tracking_p [apm_package_installed_p "mail-tracking"]
if { [exists_and_not_null file_ids] } {
- set files [list]
+ set files {}
foreach file $file_ids {
set file_item_id [content::revision::item_id -revision_id $file]
if {$file_item_id eq ""} {
@@ -157,7 +157,7 @@
# because if we put something like this {value $value} the value
# of the variable is not interpreted
- set element [list]
+ set element {}
lappend element "${var}:text(hidden)"
lappend element "value $var_value"
@@ -302,7 +302,7 @@
set username [db_string user "select username from users where user_id = :party_id" -default ""]
set date [lc_time_fmt [dt_sysdate] "%q"]
- set values [list]
+ set values {}
foreach element [list first_names last_name salutation name date username] {
lappend values [list "{$element}" [set $element]]
}
Index: openacs-4/packages/contacts/lib/envelope.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/envelope.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/envelope.tcl 20 Feb 2006 09:10:12 -0000 1.1
+++ openacs-4/packages/contacts/lib/envelope.tcl 25 Apr 2018 19:47:46 -0000 1.2
@@ -53,7 +53,7 @@
-message_1 [_ contacts.lt_Generating_the_envelopes_] \
-message_2 [_ contacts.lt_Once_finished_you_get]
- set envelopes [list]
+ set envelopes {}
foreach party_id $party_ids {
set name [contact::name -party_id $party_id]
set mailing_address [contact::message::mailing_address -party_id $party_id -format "text/plain"]
Index: openacs-4/packages/contacts/lib/label.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/label.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/label.tcl 5 Oct 2006 14:15:20 -0000 1.3
+++ openacs-4/packages/contacts/lib/label.tcl 25 Apr 2018 19:47:46 -0000 1.4
@@ -51,7 +51,7 @@
-message_1 [_ contacts.lt_Generating_the_labels_] \
-message_2 [_ contacts.lt_Once_finished_you_get]
- set labels [list]
+ set labels {}
foreach party_id $party_ids {
set mailing_address [contact::message::mailing_address -party_id $party_id -format "text/plain" -with_name]
Index: openacs-4/packages/contacts/lib/letter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/letter.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/contacts/lib/letter.tcl 5 Apr 2018 14:44:08 -0000 1.12
+++ openacs-4/packages/contacts/lib/letter.tcl 25 Apr 2018 19:47:46 -0000 1.13
@@ -175,7 +175,7 @@
append letter "\n