Index: openacs-4/packages/project-manager/www/task-select-project-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-select-project-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/task-select-project-postgresql.xql	29 Apr 2005 17:43:38 -0000	1.1
+++ openacs-4/packages/project-manager/www/task-select-project-postgresql.xql	26 May 2005 09:34:29 -0000	1.2
@@ -21,6 +21,10 @@
         WHERE p.project_id = i.live_revision and
         p.parent_id = :root_folder and
         p.status_id = s.status_id 
+        and exists (select 1 from acs_object_party_privilege_map ppm
+                    where ppm.object_id = p.project_id
+                    and ppm.privilege = 'create'
+                    and ppm.party_id = :user_id)
         [template::list::filter_where_clauses -and -name projects]
         [template::list::orderby_clause -orderby -name projects]
     </querytext>