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.3 -r1.183.2.3.4.4
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	17 Jun 2004 01:58:07 -0000	1.183.2.3.4.3
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	29 Jun 2004 19:34:48 -0000	1.183.2.3.4.4
@@ -217,15 +217,11 @@
                 where object_id = :community_id
             }
 
+	    ReturnHeaders
+
             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 \
@@ -235,6 +231,7 @@
                 $user_id \
             ]
 
+
             # Create the comm's admin page
             set admin_portal_id [portal::create \
                 -name "$pretty_name Administration Portal" \
@@ -246,6 +243,7 @@
             # 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]
@@ -261,6 +259,10 @@
                 -context_id $community_id \
             ]
 
+	ns_write "<P> You are here <p>" 
+
+
+
             # 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
@@ -298,6 +300,8 @@
 
             set default_applets_list [string trim [split $default_applets {,}]]
 
+	ns_write "default applets list $default_applets_list <br>"
+
             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
@@ -1508,6 +1512,7 @@
     } {
         Adds an applet to the community
     } {
+	ns_write "add applet to community $applet_key <br>"
         db_transaction {
             set package_id [applet_call \
                 $applet_key \
@@ -1948,6 +1953,7 @@
     } {
         call a particular applet op
     } {
+	ns_write "applet call is $applet_key <br>"
         acs_sc_call dotlrn_applet $op $list_args $applet_key
     }