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.25.2.11 -r1.25.2.12
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	14 Dec 2005 17:15:59 -0000	1.25.2.11
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	22 May 2006 10:04:44 -0000	1.25.2.12
@@ -707,3 +707,25 @@
 } {
     return [group::get_element -group_id $group_id -element "title"]
 }
+
+ad_proc -private group::group_p {
+    {-group_id ""}
+} {
+    Get the title of a group, not cached
+
+    @param group_id The group_id of the group
+} {
+    return [util_memoize [list group::group_p_not_cached -group_id $group_id]]
+}
+
+
+ad_proc -private group::group_p_not_cached {
+    {-group_id ""}
+} {
+    Get the title of a group, not cached
+
+    @param group_id The group_id of the group
+} {
+    return [db_string group "select 1 from groups where group_id = :group_id" -default 0]
+}
+