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.74 -r1.75
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Mar 2002 06:12:00 -0000	1.74
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Mar 2002 06:47:58 -0000	1.75
@@ -29,6 +29,7 @@
     ad_proc -public init {
         {-community_type:required}
         {-community_type_url_part:required}
+        {-pretty_name ""}
     } {
         create base community_type for dotlrn_community type
     } {
@@ -37,6 +38,7 @@
                 set package_id [dotlrn::mount_package \
                     -package_key [dotlrn::package_key] \
                     -url $community_type_url_part \
+                    -pretty_name $pretty_name \
                     -directory_p "t"]
 
                 dotlrn_community::set_type_package_id $community_type $package_id