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.18 -r1.19
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	16 May 2002 13:29:15 -0000	1.18
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	21 May 2002 17:30:02 -0000	1.19
@@ -61,7 +61,7 @@
     -options {{Open open} {"Needs Approval" "needs approval"} {Closed closed}}
 
 element create add_class_instance class_key \
-    -label "[dotlrn::parameter classes_pretty_name] Key" \
+    -label "[parameter::get -parameter classes_pretty_name] Key" \
     -datatype text \
     -widget hidden \
     -value $class_key
@@ -104,7 +104,7 @@
     ad_script_abort
 }
 
-set class_instances_pretty_name [dotlrn::parameter class_instances_pretty_name]
+set class_instances_pretty_name [parameter::get -parameter class_instances_pretty_name]
 
 set context_bar [list \
     {classes Classes} \