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 -r1.4 -r1.5
--- openacs-4/packages/contacts/www/contact-rels.tcl	27 May 2005 09:02:14 -0000	1.4
+++ openacs-4/packages/contacts/www/contact-rels.tcl	4 Jun 2005 12:36:45 -0000	1.5
@@ -192,19 +192,15 @@
     set map_url [export_vars -base "${package_url}relationship-add" -url {{party_one $original_party_id} {party_two $party_id} {role_two $role_two}}]
 }
 
+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 rel_options [db_list_of_lists get_rels {}]
-
-set rel_options "{{-Select One-} {}} $rel_options"
-
-
-
-
-
-
 ad_form -name "search" -method "GET" -export {party_id} -form {
     {role_two:text(select) {label "Add: "} {options $rel_options}}
     {query:text(text) {label ""} {html {size 24}}}
@@ -216,15 +212,6 @@
 } -after_submit {
 }
 
-
-
-
-
-
-
-
-
-
 template::list::create \
     -html {width 100%} \
     -name "relationships" \