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.20 -r1.21
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	9 Aug 2002 18:39:27 -0000	1.20
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	23 Oct 2002 12:38:40 -0000	1.21
@@ -33,48 +33,48 @@
 form create add_class_instance
 
 element create add_class_instance term \
-    -label Term \
+    -label [_ dotlrn.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 [_ dotlrn.Name] \
     -datatype text \
     -widget text \
     -html {size 60} \
     -value $class_name \
     -optional
 
 element create add_class_instance description \
-    -label Description \
+    -label [_ dotlrn.Description] \
     -datatype text \
     -widget textarea \
     -html {rows 5 cols 60 wrap soft} \
     -value $class_description \
     -optional
 
 element create add_class_instance join_policy \
-    -label "Join Policy" \
+    -label "[_ dotlrn.Join_Policy]" \
     -datatype text \
     -widget select \
-    -options {{Open open} {"Needs Approval" "needs approval"} {Closed closed}}
+    -options [list [list [_ dotlrn.Open] open] [list "[_ dotlrn.Needs_Approval]" "needs approval"] [list [_ dotlrn.Closed] closed]]
 
 element create add_class_instance class_key \
-    -label "[parameter::get -parameter classes_pretty_name] Key" \
+    -label "[parameter::get -localize -parameter classes_pretty_name] [_ dotlrn.Key]" \
     -datatype text \
     -widget hidden \
     -value $class_key
 
 element create add_class_instance add_instructor \
-    -label "Add Professor" \
+    -label "[_ dotlrn.Add_Professor]" \
     -datatype text \
     -widget radio \
-    -options {{Yes 1} {No 0}} \
+    -options [list [list [_ dotlrn.Yes] 1] [list [_ dotlrn.No] 0]] \
     -value 1
 
 element create add_class_instance referer \
-    -label Referer \
+    -label [_ dotlrn.Referer] \
     -datatype text \
     -widget hidden \
     -value $referer
@@ -104,12 +104,13 @@
     ad_script_abort
 }
 
-set class_instances_pretty_name [parameter::get -parameter class_instances_pretty_name]
+set class_instances_pretty_name [parameter::get -localize -parameter class_instances_pretty_name]
 
 set context_bar [list \
-    {classes Classes} \
+    [list classes [_ dotlrn.Classes]] \
     [list "class?class_key=$class_key" $class_name] \
-    [list New $class_instances_pretty_name] \
+    [list [_ dotlrn.New] $class_instances_pretty_name] \
 ]
 
 ad_return_template
+