Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.xql	1 Feb 2006 11:34:48 -0000	1.1
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.xql	6 Feb 2006 17:07:44 -0000	1.2
@@ -13,7 +13,29 @@
 		</querytext>
 	</fullquery>
 
+    <fullquery name="imsld::parse::parse_and_create_service.get_allowed_parties">
+		<querytext>
+        select aopp.party_id 
+        from acs_object_party_privilege_map aopp,
+             party_names pn 
+        where aopp.privilege='read' and 
+              aopp.party_id=pn.party_id and 
+              aopp.object_id=:acs_object_id
+		</querytext>
+	</fullquery>
 
+    <fullquery name="imsld::parse::parse_and_create_resource.get_allowed_parties">
+		<querytext>
+        select aopp.party_id 
+        from acs_object_party_privilege_map aopp,
+             party_names pn 
+        where aopp.privilege='read' and 
+              aopp.party_id=pn.party_id and 
+              aopp.object_id=:acs_object_id
+		</querytext>
+	</fullquery>
+
+
 	<fullquery name="imsld::parse::parse_and_create_service.get_component_id">
 		<querytext>
         select env.component_id