Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.183.2.3.4.6 -r1.183.2.3.4.7
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Jun 2004 21:58:33 -0000	1.183.2.3.4.6
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2004 21:19:31 -0000	1.183.2.3.4.7
@@ -218,8 +218,14 @@
             }
 
             set template_id [dotlrn::get_portal_id_from_type -type $object_type]
-	    set portal_id [dotlrn::get_portal_id_from_type -type $object_type]
 
+            # Create comm's portal page
+            set portal_id [portal::create \
+                -template_id $template_id \
+                -name "$pretty_name Portal" \
+                -context_id $community_id \
+                $user_id \
+            ]
 
             # Create the comm's non-member page
             set non_member_portal_id [portal::create \
@@ -229,7 +235,6 @@
                 $user_id \
             ]
 
-
             # Create the comm's admin page
             set admin_portal_id [portal::create \
                 -name "$pretty_name Administration Portal" \
@@ -241,7 +246,6 @@
             # Set up the rel segments
             dotlrn_community::create_rel_segments -community_id $community_id
 
-
             # Set up the node
             if {[empty_string_p $parent_community_id]} {
                 set parent_node_id [get_type_node_id $community_type]
@@ -257,7 +261,6 @@
                 -context_id $community_id \
             ]
 
-
             # Set the right parameters
             ad_parameter -package_id $package_id -set 0 dotlrn_level_p
             ad_parameter -package_id $package_id -set 0 community_type_level_p
@@ -295,7 +298,6 @@
 
             set default_applets_list [string trim [split $default_applets {,}]]
 
-
             foreach applet_key $default_applets_list {
                 if {[dotlrn_applet::applet_exists_p -applet_key $applet_key]} {
                     dotlrn_community::add_applet_to_community $community_id $applet_key
@@ -1506,7 +1508,6 @@
     } {
         Adds an applet to the community
     } {
-
         db_transaction {
             set package_id [applet_call \
                 $applet_key \
@@ -1947,7 +1948,6 @@
     } {
         call a particular applet op
     } {
-
         acs_sc_call dotlrn_applet $op $list_args $applet_key
     }