Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	7 Mar 2002 22:22:44 -0000	1.24
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	14 Mar 2002 06:47:58 -0000	1.25
@@ -60,7 +60,8 @@
     } {
         dotlrn_community::init \
             -community_type [community_type] \
-            -community_type_url_part [get_url_part]
+            -community_type_url_part [get_url_part] \
+            -pretty_name [ad_parameter -package_id [dotlrn::get_package_id] classes_pretty_plural]
     }
 
     ad_proc -public new {
Index: openacs-4/packages/dotlrn/tcl/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/club-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	11 Mar 2002 23:43:08 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	14 Mar 2002 06:47:58 -0000	1.8
@@ -44,7 +44,8 @@
     } {
         dotlrn_community::init \
             -community_type [community_type] \
-            -community_type_url_part [get_url_part]
+            -community_type_url_part [get_url_part] \
+            -pretty_name [ad_parameter -package_id [dotlrn::get_package_id] clubs_pretty_plural]
     }
 
     ad_proc -public new {
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
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	19 Feb 2002 19:34:45 -0000	1.36
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	14 Mar 2002 06:47:58 -0000	1.37
@@ -139,6 +139,7 @@
         {-package_key:required}
         {-url:required}
         {-directory_p:required}
+        {-pretty_name ""}
     } {
         mount a package under dotlrn
     } {
@@ -165,7 +166,11 @@
                 end;
             }]
 
-            set package_id [site_node_create_package_instance $node_id $package_key $parent_package_id $package_key]
+                if {[empty_string_p $pretty_name]} {
+                    set pretty_name $package_key
+                }
+
+            set package_id [site_node_create_package_instance $node_id $pretty_name $parent_package_id $package_key]
         }
 
         return $package_id
Index: openacs-4/packages/dotlrn/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/index.adp	6 Mar 2002 22:35:15 -0000	1.16
+++ openacs-4/packages/dotlrn/www/index.adp	14 Mar 2002 06:47:58 -0000	1.17
@@ -5,3 +5,5 @@
 <p></p>
 
 @rendered_page@
+
+