Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	12 Jun 2005 19:30:14 -0000	1.13
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	14 Jun 2005 11:29:27 -0000	1.14
@@ -245,6 +245,7 @@
     {-privilege_required "read"}
     {-output "list"}
     {-all:boolean}
+    {-no_member_count:boolean}
 } {
 } {
     set user_id [ad_conn user_id]
@@ -267,7 +268,11 @@
         list {
             set list_output [list]
             foreach group $group_list {
-                lappend list_output [list [lindex $group 0] [lindex $group 1] [lindex $group 2]]
+		if {$no_member_count_p} {
+		    lappend list_output [list [lindex $group 0] [lindex $group 1]]
+		} else {
+		    lappend list_output [list [lindex $group 0] [lindex $group 1] [lindex $group 2]]
+		}
             }
             return $list_output
         }