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.11 -r1.12
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	10 Apr 2002 23:28:30 -0000	1.11
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	6 May 2002 23:55:02 -0000	1.12
@@ -29,8 +29,7 @@
 set user_id [ad_get_user_id]
 set parent_community_id [dotlrn_community::get_community_id]
 set title "New [ad_parameter subcommunity_pretty_name]"
-set admin_portal_id \
-        [dotlrn_community::get_portal_template_id $parent_community_id]
+set portal_id [dotlrn_community::get_portal_id -community_id $parent_community_id]
 
 form create add_subcomm