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.17 -r1.18
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	29 Mar 2002 19:14:47 -0000	1.17
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	16 May 2002 13:29:15 -0000	1.18
@@ -33,21 +33,21 @@
 form create add_class_instance
 
 element create add_class_instance term \
-    -label "Term" \
+    -label Term \
     -datatype integer \
     -widget select \
     -options [db_list_of_lists select_terms_for_select_widget {}]
 
 element create add_class_instance pretty_name \
-    -label "Name" \
+    -label Name \
     -datatype text \
     -widget text \
     -html {size 60} \
     -value $class_name \
     -optional
 
 element create add_class_instance description \
-    -label "Description" \
+    -label Description \
     -datatype text \
     -widget textarea \
     -html {rows 5 cols 60 wrap soft} \
@@ -61,7 +61,7 @@
     -options {{Open open} {"Needs Approval" "needs approval"} {Closed closed}}
 
 element create add_class_instance class_key \
-    -label "[ad_parameter classes_pretty_name] Key" \
+    -label "[dotlrn::parameter classes_pretty_name] Key" \
     -datatype text \
     -widget hidden \
     -value $class_key
@@ -74,7 +74,7 @@
     -value 1
 
 element create add_class_instance referer \
-    -label "Referer" \
+    -label Referer \
     -datatype text \
     -widget hidden \
     -value $referer
@@ -104,11 +104,11 @@
     ad_script_abort
 }
 
-set class_instances_pretty_name [ad_parameter "class_instances_pretty_name"]
+set class_instances_pretty_name [dotlrn::parameter class_instances_pretty_name]
 
 set context_bar [list \
     {classes Classes} \
-    [list "class?class_key=$class_key" "$class_name"] \
+    [list "class?class_key=$class_key" $class_name] \
     [list New $class_instances_pretty_name] \
 ]