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.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	10 Nov 2001 18:03:23 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	29 Nov 2001 06:05:37 -0000	1.3
@@ -36,5 +36,12 @@
     return
 }
 
+set class_name [dotlrn_community::get_community_type_name $class_key]
+
+set context_bar [list \
+	{classes Classes} \
+	[list "one-class?class_key=$class_key" "$class_name"] \
+	{New Instance}]
+
 ad_return_template