Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/acs-subsite/acs-subsite.info	15 Dec 2006 00:09:29 -0000	1.86
+++ openacs-4/packages/acs-subsite/acs-subsite.info	29 Jan 2007 12:27:00 -0000	1.87
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="5.4.0d1" url="http://openacs.org/repository/download/apm/acs-subsite-5.4.0d1.apm">
+    <version name="5.4.0d2" url="http://openacs.org/repository/download/apm/acs-subsite-5.4.0d2.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Subsite</summary>
         <release-date>2006-11-19</release-date>
@@ -16,11 +16,11 @@
         <license>GPL</license>
         <maturity>3</maturity>
 
-        <provides url="acs-subsite" version="5.4.0d1"/>
+        <provides url="acs-subsite" version="5.4.0d2"/>
         <requires url="acs-authentication" version="5.3.0d1"/>
         <requires url="acs-content-repository" version="5.3.0d1"/>
         <requires url="acs-kernel" version="5.3.0d1"/>
-        <requires url="acs-tcl" version="5.3.0d1"/>
+        <requires url="acs-tcl" version="5.4.0d1"/>
         <requires url="acs-lang" version="5.3.0d1"/>
 
         <callbacks>
Index: openacs-4/packages/acs-subsite/tcl/party-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/party-procs.tcl	10 Jan 2007 21:22:06 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/party-procs.tcl	29 Jan 2007 12:27:02 -0000	1.5
@@ -270,5 +270,18 @@
 	return $name
     }
 
+    ad_proc -public party_p {
+	-object_id:required
+    } {
+	
+	@author Malte Sussdorff
+	@creation-date 2007-01-26
+	
+	@param object_id object_id which is checked if it is a party
+	@return true if object_id is a party
+	
+    } {
+	return [db_string party_p {} -default 0]
+    }
     
 }
Index: openacs-4/packages/acs-subsite/tcl/party-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/party-procs.xql	4 Jun 2006 00:45:42 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/party-procs.xql	29 Jan 2007 12:27:02 -0000	1.4
@@ -43,5 +43,16 @@
 		party_id = :party_id
     </querytext>
 </fullquery>
+
+<fullquery name="party::party_p.party_p">
+    <querytext>
+	select
+		1
+	from 
+		parties
+	where
+		party_id = :object_id
+    </querytext>
+</fullquery>
  
 </queryset>