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.19 -r1.20
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	17 Dec 2001 23:02:55 -0000	1.19
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	10 Jan 2002 19:30:17 -0000	1.20
@@ -89,9 +89,10 @@
     }
 
     ad_proc -public new_instance {
-        {-description ""}
         {-class_type:required}
         {-term_id:required}
+        {-pretty_name ""}
+        {-description ""}
         {-join_policy "needs approval"}
     } {
         Creates a new instance of a class for a particular term and year,
@@ -107,7 +108,9 @@
         ns_set put $extra_vars class_key $class_type
         ns_set put $extra_vars join_policy $join_policy
 
-        set pretty_name "[dotlrn_community::get_community_type_name $class_type]; $term $year"
+        if {[empty_string_p $pretty_name]} {
+            set pretty_name "[dotlrn_community::get_community_type_name $class_type]; $term $year"
+        }
 
         db_transaction {
             # Create the community