Index: openacs-4/packages/contacts/lib/contact-complaint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-form.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	11 Aug 2005 14:14:58 -0000	1.5
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	14 Sep 2005 16:37:19 -0000	1.6
@@ -44,6 +44,9 @@
     db_foreach get_users { } {
 	lappend user_options [list $fullname $user_id]
     }
+    db_foreach get_groups { } {
+	lappend user_options [list $name $group_id]
+    }
     ad_form -extend -name complaint_form -form {
 	{supplier_id:text(select)
 	    {label "[_ contacts.Supplier]"}