Index: openacs-4/packages/contacts/www/contact-groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-groups.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/contact-groups.tcl	18 May 2005 16:45:50 -0000	1.1
+++ openacs-4/packages/contacts/www/contact-groups.tcl	27 May 2005 09:35:43 -0000	1.2
@@ -36,41 +36,3 @@
     ad_return_error "Insufficient Permissions" "You do not have permission to add users to groups"
 }
 
-set form_elements {
-}
-set edit_buttons [list [list "Add to Selected Group" create]]
-
-
-
-
-ad_form -action group-parties-add \
-    -name add_to_group \
-    -edit_buttons $edit_buttons \
-    -form {
-        party_id:integer(hidden)
-        return_url:text(hidden)
-        {group_ids:text(select) {label ""} {options $groups_to_add}}
-    } -on_request {
-    } -on_submit {
-	db_transaction {
-            foreach group_id $group_ids {
-                foreach party_id $party_ids {
-                    # relation_add verifies that they aren't already in the group
-                    switch [contact::type -party_id $party_id] {
-                        person {
-                            set rel_type "membership_rel"
-                        }
-                        organization {
-                            set rel_type "organization_rel"
-                        }
-                    }
-                    relation_add -member_state "approved" $rel_type $group_id $party_id
-                }
-            }
-	}
-    } -after_submit {
-	ad_returnredirect $return_url
-	ad_script_abort
-    }
-
-