Index: openacs-4/packages/project-manager/tcl/project-manager-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs-postgresql.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/project-manager/tcl/project-manager-procs-postgresql.xql 27 Jul 2005 19:04:37 -0000 1.4
+++ openacs-4/packages/project-manager/tcl/project-manager-procs-postgresql.xql 14 Sep 2005 22:18:32 -0000 1.5
@@ -52,6 +52,22 @@
+
+
+ SELECT DISTINCT
+ g.group_name,
+ g.group_id
+ FROM
+ groups g,
+ acs_object_party_privilege_map ppm
+ WHERE
+ ppm.object_id = :package_id
+ and ppm.privilege = 'read'
+ and ppm.party_id = g.group_id
+ ORDER BY group_name
+
+
+
select pm_project__get_root_folder (:package_id, 'f')