Index: openacs-4/packages/project-manager-portlet/lib/projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/lib/projects.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/project-manager-portlet/lib/projects.tcl	15 Sep 2005 22:43:53 -0000	1.6
+++ openacs-4/packages/project-manager-portlet/lib/projects.tcl	3 Oct 2005 20:22:02 -0000	1.7
@@ -60,6 +60,7 @@
 set exporting_vars { status_id category_id assignee_id format }
 set hidden_vars [export_vars -form $exporting_vars]
 
+
 # set up context bar
 set context [list]
 
@@ -78,10 +79,11 @@
 
 # Set status
 if {![exists_and_not_null status_id]} {
-    set status_where_clause ""
+    set default_closed [pm::project::default_status_closed]
+    set status_where_clause {proj.status_id <> :default_closed}
     set status_id ""
 } else {
-    set status_where_clause {p.status_id = :status_id}
+    set status_where_clause {proj.status_id = :status_id}
 }
 
 # We want to set up a filter for each category tree.