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.13 -r1.183.2.3.4.14
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 Mar 2005 17:54:32 -0000	1.183.2.3.4.13
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jun 2005 20:47:00 -0000	1.183.2.3.4.14
@@ -185,7 +185,7 @@
             -community_key $community_key \
             -parent_community_id $parent_community_id
 
-        set package_id [dotlrn::get_package_id]
+        set dotlrn_package_id [dotlrn::get_package_id]
 
         # Set up extra vars
         if {[empty_string_p $extra_vars]} {
@@ -198,7 +198,7 @@
         ns_set put $extra_vars pretty_name $pretty_name
         ns_set put $extra_vars pretty_plural $pretty_name
         ns_set put $extra_vars description $description
-        ns_set put $extra_vars context_id $package_id
+        ns_set put $extra_vars context_id $dotlrn_package_id
 
         db_transaction {
             set user_id [ad_conn user_id]
@@ -276,22 +276,22 @@
             # 2. the the list of default applets for this type
             if {[string equal $community_type dotlrn_community]} {
                 set default_applets [parameter::get \
-                    -package_id $package_id \
+                    -package_id $dotlrn_package_id \
                     -parameter default_subcomm_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_class_instance_applets \
                 ]
             }