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]
+    }
     
 }