Index: openacs-4/packages/dotlrn/www/subcommunity-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.adp,v
diff -u -r1.10 -r1.10.6.1
--- openacs-4/packages/dotlrn/www/subcommunity-new.adp	15 Jun 2003 01:24:00 -0000	1.10
+++ openacs-4/packages/dotlrn/www/subcommunity-new.adp	1 Jul 2004 13:48:31 -0000	1.10.6.1
@@ -19,11 +19,10 @@
 %>
 
 <master>
-<property name="title">@title@</property>
+  <property name="title">@title;noquote@</property>
+  <property name="focus">add_subcomm.pretty_name</property>
+  <property name="context">@context;noquote@</property>
 
-
-
-
 <formtemplate id="add_subcomm"></formtemplate>
 
 
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.22 -r1.22.6.1
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	23 Oct 2002 12:38:39 -0000	1.22
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	1 Jul 2004 13:48:31 -0000	1.22.6.1
@@ -30,6 +30,7 @@
 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 "[_ dotlrn.New] [parameter::get -localize -parameter subcommunities_pretty_name]"
+set context [list [list "one-community-admin" [_ dotlrn.Admin]] $title]
 set portal_id [dotlrn_community::get_portal_id -community_id $parent_community_id]
 
 # set the join policy widget to default to