Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/contacts/www/contact-add.tcl	15 Dec 2005 22:20:49 -0000	1.38
+++ openacs-4/packages/contacts/www/contact-add.tcl	3 Feb 2006 22:53:58 -0000	1.39
@@ -48,21 +48,15 @@
 lappend form_elements {rel_type:text(hidden),optional}
 lappend form_elements {object_id_two:text(hidden),optional}
 
-set application_group_id [application_group::group_id_from_package_id -package_id [ad_conn subsite_id]]
-
 if {[lsearch $group_ids $default_group] == -1} {
     lappend group_ids $default_group
 }
 
 lappend form_elements {group_ids:text(hidden)}
 
 # Save Group Information
-if {[lsearch $group_ids $application_group_id] == -1} {
-    lappend group_ids $application_group_id
-}
-
 set group_list [contact::groups -expand "all" -privilege_required "read"]
-set group_list "{{All Contacts} $default_group 0} $group_list"
+set group_list [concat [list [list [_ contacts.All_Contacts] $default_group 0]] $group_list]
 
 
 ad_form -name party_ae \