Index: openacs-4/packages/acs-subsite/www/admin/rel-types/roles/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/roles/one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/roles/one.tcl	6 Sep 2002 21:50:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/roles/one.tcl	5 Dec 2002 13:11:11 -0000	1.4
@@ -31,6 +31,11 @@
     ad_script_abort
 }
 
+# The role pretty names can be message catalog keys that need
+# to be localized before they are displayed
+set role_props(pretty_name) [lang::util::localize $role_props(pretty_name)]
+set role_props(pretty_plural) [lang::util::localize $role_props(pretty_plural)]
+
 db_multirow rels select_rel_types_one {
     select r.rel_type as role, t.pretty_name, r.rel_type,
            decode(r.role_one,:role,'Side one', 'Side two') as side