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.6 -r1.7
--- openacs-4/packages/contacts/www/contact-add.tcl	9 Jun 2005 16:05:59 -0000	1.6
+++ openacs-4/packages/contacts/www/contact-add.tcl	10 Jun 2005 06:40:49 -0000	1.7
@@ -39,6 +39,9 @@
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_id [lindex $group 1]
     if { [lsearch $groups $group_id] >= 0 } {
+
+	# Setup CATEGORY entry widgets in here
+	set category_elements ""
         lappend ams_forms "${package_id}__${group_id}"
     }
 }
@@ -62,6 +65,13 @@
     set title "[_ contacts.Add_an_Organization]"
 }
 
+# Append the category Elements at the end. In the long run we should
+# change this so you could mix/match category elements with the
+# elements in AMS, but we are not there.
+if {![empty_string_p $category_elements]} {
+    lappend form_elements $category_elements
+}
+
 set user_id [ad_conn user_id]
 set peeraddr [ad_conn peeraddr]
 set context [list $title]