Index: openacs-4/packages/contacts/www/create-club.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/create-club.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/create-club.tcl	14 Dec 2005 17:59:40 -0000	1.1
+++ openacs-4/packages/contacts/www/create-club.tcl	15 Feb 2006 10:06:36 -0000	1.2
@@ -11,11 +11,12 @@
 	}
     }
 }
+contact::require_visiblity -party_id $party_id
 
 
 ad_progress_bar_begin -title "[_ contacts.Creating_Club]" -message_1 "[_ contacts.lt_We_are_creating_the_c]" -message_2 "[_ contacts.lt_We_will_continue_auto]"
 
 set group_id [group::get_id -group_name "Customers"]
 callback contact::organization_new_group -organization_id $party_id -group_id $group_id
 
-ad_progress_bar_end -url  "/contacts/$party_id"
\ No newline at end of file
+ad_progress_bar_end -url  "/contacts/$party_id"