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.191 -r1.192
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	5 Mar 2005 00:28:01 -0000	1.191
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jun 2005 17:32:05 -0000	1.192
@@ -226,6 +226,7 @@
             -parent_community_id $parent_community_id
 
         set package_id [dotlrn::get_package_id]
+	set dotlrn_package_id $package_id
 
         # Set up extra vars
         if {[empty_string_p $extra_vars]} {
@@ -322,31 +323,33 @@
             # 2. the the list of default applets for this type
             if {[string equal $community_type dotlrn_class_instance]} {
                 set default_applets [parameter::get \
-                    -package_id $package_id \
+                    -package_id $dotlrn_package_id \
                     -parameter default_class_instance_applets \
                 ]
             } elseif {[string equal $community_type dotlrn_club]} {
                 set default_applets [parameter::get \
-                    -package_id $package_id \
+                    -package_id $dotlrn_package_id \
                     -parameter default_club_applets \
                 ]
             } elseif {[string equal $community_type user]} {
                 set default_applets [parameter::get \
-                    -package_id $package_id \
+                    -package_id $dotlrn_package_id \
                     -parameter default_user_portal_applets \
                 ]
             } else {
                 set default_applets [parameter::get \
-                    -package_id $package_id \
+                    -package_id $dotlrn_package_id \
                     -parameter default_subcomm_applets \
                 ]
             }
 
             set default_applets_list [string trim [split $default_applets {,}]]
 
+	    ad_return_error "$community_type" "$default_applets_list"
             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
+		    ns_log Notice "Added applet:::: $applet_key"
                 }
             }
 
@@ -2267,5 +2270,4 @@
             -list_args [list $community_id $event $old_value $new_value]
     }
 
-}
-
+}
\ No newline at end of file