Index: openacs-4/packages/contacts/www/contact-rels.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-rels.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/contacts/www/contact-rels.tcl	4 Jun 2005 12:36:45 -0000	1.5
+++ openacs-4/packages/contacts/www/contact-rels.tcl	5 Jun 2005 19:21:59 -0000	1.6
@@ -195,9 +195,8 @@
 set rel_options [list [list "[_ contacts.--select_one--]" ""]]
 
 db_foreach get_rels {} {
-	regsub -all {(\#([-a-zA-Z0-9_:\.]+)\#)} $pretty_name {[template::expand_percentage_signs [lang::message::lookup [ad_conn locale] {\2} {TRANSLATION MISSING} {} -1]]} pretty_name
-	
-	lappend rel_options [list [subst $pretty_name] $role]
+	set pretty_name [lang::util::convert_from_hash -hashed_key $pretty_name]
+	lappend rel_options [list $pretty_name $role]
     }