Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	3 Jun 2004 21:32:13 -0000	1.34
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	4 Jun 2004 00:04:31 -0000	1.35
@@ -772,6 +772,26 @@
                                      -number $number \
                                      -current_number $i]
 
+
+    # if the current project is closed, we need to append it to the
+    # list of open projects
+    if {![pm::project::open_p -project_item_id "$project_item_id_arr($i)"]} {
+        set project_options_plus [db_list_of_lists get_closed_project "
+            SELECT 
+            case when o.name is null then p.title || ' -- Closed' else o.name || ' - ' || p.title || ' -- Closed' end as title,
+            p.item_id
+            FROM
+            pm_projectsx p LEFT JOIN
+            organizations o ON p.customer_id = o.organization_id
+            WHERE
+            p.item_id = $project_item_id_arr($i)
+        "]
+
+        set project_options_plus [concat $project_options_plus $project_options]
+    } else {
+        set project_options_plus $project_options
+    }
+
     ad_form -extend \
         -name add_edit \
         -form \
@@ -784,7 +804,7 @@
              ] \
              [list project_item_ids.$i:text(select) \
                   {label "Project"} \
-                  {options $project_options} \
+                  {options $project_options_plus} \
                   {value {$project_item_id_arr($i)}} \
                  ] \
              [list task_item_id.$i:text(hidden) \