Index: openacs-4/packages/dotlrn/tcl/department-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/department-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn/tcl/department-procs.tcl 14 Aug 2002 19:16:12 -0000 1.8 +++ openacs-4/packages/dotlrn/tcl/department-procs.tcl 23 Oct 2002 12:38:38 -0000 1.9 @@ -39,8 +39,7 @@ -department_key $department_key]} { ad_return_complaint \ 1 \ - "The name $pretty_name is already in use. \n - Please select a different name." + [_ [ad_conn locale] dotlrn.department_name_already_in_use "" [list department_pretty_name $pretty_name]] ad_script_abort } @@ -90,8 +89,9 @@ } { # check that it's empty if {![count_classes -department_key $department_key] == 0} { - ad_return_complaint 1 "Error: [parameter::get -parameter departments_pretty_name] - must be empty to be deleted" + set msg_subst_list [list departments_pretty_name [parameter::get -localize -parameter departments_pretty_name]] + ad_return_complaint 1 [_ [ad_conn locale] dotlrn.department_must_be_empty_to_be_deleted "" $msg_subst_list] + ad_script_abort } @@ -106,3 +106,4 @@ } } +