Index: openacs-4/packages/dotlrn/www/subcommunity-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	31 May 2002 21:56:49 -0000	1.18
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	13 Jul 2002 17:59:53 -0000	1.19
@@ -28,6 +28,7 @@
 
 set user_id [ad_get_user_id]
 set parent_community_id [dotlrn_community::get_community_id]
+dotlrn::require_user_admin_community -user_id $user_id -community_id $parent_community_id
 set title "New [parameter::get -parameter subcommunity_pretty_name]"
 set portal_id [dotlrn_community::get_portal_id -community_id $parent_community_id]