Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.adp	15 Jan 2002 20:47:01 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.adp	13 Mar 2002 18:06:32 -0000	1.6
@@ -1,5 +1,5 @@
 <master src="master">
-<property name="title">New Instance of @class_name@</property>
+<property name="title">New @class_instances_pretty_name@ of type @class_name@</property>
 <property name="context_bar">@context_bar@</property>
 
 <formtemplate id="add_class_instance"></formtemplate>
Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	8 Mar 2002 00:27:05 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Mar 2002 18:06:32 -0000	1.16
@@ -88,10 +88,12 @@
     ad_script_abort
 }
 
+set class_instances_pretty_name [ad_parameter "class_instances_pretty_name"]
+
 set context_bar [list \
     {classes Classes} \
     [list "class?class_key=$class_key" "$class_name"] \
-    {New Instance} \
+    [list New $class_instances_pretty_name] \
 ]
 
 ad_return_template