Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	2 Aug 2007 11:35:19 -0000	1.32
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	25 Apr 2018 19:47:47 -0000	1.33
@@ -111,7 +111,7 @@
         set union_clause ""
     }
 
-    set keys [list]
+    set keys {}
 
     db_foreach get_dependency_tasks { } {
         set options($task_title) $item_id
@@ -253,7 +253,7 @@
         set union_clause ""
     }
 
-    set keys [list]
+    set keys {}
 
     db_foreach get_dependency_tasks { } {
         set options($task_title) $item_id
@@ -414,7 +414,7 @@
 
     if {$loop_limit > 0} {
 
-        set dep_list [list]
+        set dep_list {}
         db_foreach get_dependencies { } {
             lappend dep_list d-$dep_task-$dep_task_parent
         }
@@ -1177,7 +1177,7 @@
 
 ad_proc -public pm::task::email_status {} {
 
-    set package_ids [list]
+    set package_ids {}
     foreach package_id [apm_package_ids_from_key -package_key "project-manager" -mounted] { 
         if { [parameter::get -package_id $package_id -parameter SendDailyEmail -default "0"] } {
 	    lappend package_ids $package_id
@@ -1197,7 +1197,7 @@
         return
     }
 
-    set parties [list]
+    set parties {}
 
     # what if the person assigned is no longer a part of the subsite?
     # right now, we still email them.
@@ -1310,9 +1310,9 @@
         set subject "[ad_system_name]: [_ project-manager.Daily_task_status_report]"
         set address [db_string get_email "select email from parties where party_id = :party" -default "jade-errors@bread.com"]
 
-        set overdue [list]
-        set pressing [list]
-        set longterm [list]
+        set overdue {}
+        set pressing {}
+        set longterm {}
 
         foreach task $task_list($party) {
 
@@ -1398,7 +1398,7 @@
 
 ad_proc -public pm::task::email_status_not_lead {} {
 
-    set package_ids [list]
+    set package_ids {}
     foreach package_id [apm_package_ids_from_key -package_key "project-manager" -mounted] { 
         if { [parameter::get -package_id $package_id -parameter SendDailyEmail -default "0"] } {
 	    lappend package_ids $package_id
@@ -1418,7 +1418,7 @@
         return
     }
 
-    set parties [list]
+    set parties {}
 
     # what if the person assigned is no longer a part of the subsite?
     # right now, we still email them.
@@ -1531,9 +1531,9 @@
         set subject "[ad_system_name]: [_ project-manager.Weekly_task_status_report]"
         set address [db_string get_email "select email from parties where party_id = :party" -default "jade-errors@bread.com"]
 
-        set overdue [list]
-        set pressing [list]
-        set longterm [list]
+        set overdue {}
+        set pressing {}
+        set longterm {}
 
         foreach task $task_list($party) {
 
@@ -2581,7 +2581,7 @@
 
     
     # get the new task values
-    set tasks_item_id [list]
+    set tasks_item_id {}
     foreach num $number {
         lappend tasks_item_id $task_item_id($num)
     }