Index: openacs-4/contrib/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v
diff -u -r1.13.2.13 -r1.13.2.14
--- openacs-4/contrib/packages/project-manager/www/index.tcl	2 May 2005 18:30:11 -0000	1.13.2.13
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	3 May 2005 09:01:28 -0000	1.13.2.14
@@ -66,12 +66,14 @@
 
 # Projects, using list-builder ---------------------------------
 
-# set default values
+# Set status
 if {![exists_and_not_null status_id]} {
-    set status_id [pm::project::default_status_open]
+    set status_where_clause ""
+    set status_id ""
+} else {
+    set status_where_clause {p.status_id = :status_id}
 }
 
-
 # We want to set up a filter for each category tree.
 
 set export_vars [export_vars -form {status_id orderby}]
@@ -165,7 +167,7 @@
         status_id {
             label "[_ project-manager.Status_1]" 
             values {[pm::status::project_status_select]}
-            where_clause {s.status_id = :status_id}
+            where_clause {$status_where_clause}
         }
         assignee_id {
             label "[_ project-manager.Assignee]"