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.52 -r1.53 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 23 Jan 2002 06:45:57 -0000 1.52 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 24 Jan 2002 22:32:30 -0000 1.53 @@ -198,8 +198,13 @@ # Set up the node dotlrn_community::set_package_id $community_id $package_id - # Add the basic dotlrn applet (we can't do without) - dotlrn_community::add_applet_to_community $community_id dotlrn_dotlrn + # Add the applets specified as default applets for a community as + # specified by the DefaultCommunityApplets ad_parameter + foreach applet_key [string trim [split [ad_parameter DefaultCommunityApplets] {,}]] { + if {[dotlrn_applet::applet_exists_p -applet_key $applet_key]} { + dotlrn_community::add_applet_to_community $community_id $applet_key + } + } } return $community_id @@ -685,7 +690,6 @@ return [db_string select {} -default ""] } - ad_proc -public add_applet_to_community { community_id applet_key