Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	28 Aug 2003 09:41:39 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	21 Sep 2003 19:31:35 -0000	1.6
@@ -329,3 +329,18 @@
     return $rel_types
 }
 
+ad_proc -public group::admin_p {
+    {-group_id:required}
+    {-user_id:required}
+} {
+    set admin_rel_id [relation::get_id \
+                          -object_id_one $group_id \
+                          -object_id_two $user_id \
+                          -rel_type "admin_rel"]
+
+    # The party is an admin if the call above returned something non-empty
+    return [expr ![empty_string_p $admin_rel_id]]
+}
+
+
+