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.9 -r1.10 --- openacs-4/packages/contacts/www/contact-rels.tcl 7 Jun 2005 19:01:26 -0000 1.9 +++ openacs-4/packages/contacts/www/contact-rels.tcl 7 Jun 2005 19:59:27 -0000 1.10 @@ -120,7 +120,6 @@ } } -<<<<<<< contact-rels.tcl set search_clause [join $search_clause "\n"] #ad_return_error "Error" $search_clause @@ -168,119 +167,47 @@ } -filters { } -orderby { first_names { - label "First Name" + label "[_ contacts.First_Name]" orderby_asc "lower(contact__name(party_id,'f')) asc" orderby_desc "lower(contact__name(party_id,'f')) asc" -======= -set search_clause [join $search_clause "\n"] -#ad_return_error "Error" $search_clause - - -set primary_party $party_id - -template::list::create \ - -html {width 100%} \ - -name "contacts" \ - -multirow "contacts" \ - -row_pretty_plural "[_ contacts.lt_pretty_plural_list_na]" \ - -checkbox_name checkbox \ - -selected_format ${format} \ - -orderby_name "order_search" \ - -key party_id \ - -elements { - type { - label {} - display_template { - ->>>>>>> 1.8 } -<<<<<<< contact-rels.tcl last_name { - label "Last Name" + label "[_ contacts.Last_Name]" orderby_asc "lower(contact__name(party_id,'t')) asc" orderby_desc "lower(contact__name(party_id,'t')) asc" -======= - } - contact { - label {} - display_template { - @contacts.party_id@">@contacts.name@ \[[_ contacts.Select]\] - @contacts.email@ ->>>>>>> 1.8 } -<<<<<<< contact-rels.tcl default_value first_names,asc } -formats { normal { - label "Table" + label "[_ contacts.Table]" layout table row { contact {} } -======= - } - contact_id { - display_col party_id - } - first_names { - display_col first_names - } - last_name { - display_col last_name - } - organization { - display_col organization - } - email { - display_col email - } - } -filters { - } -orderby { - first_names { - label "[_ contacts.First_Name]" - orderby_asc "lower(contact__name(party_id,'f')) asc" - orderby_desc "lower(contact__name(party_id,'f')) asc" - } - last_name { - label "[_ contacts.Last_Name]" - orderby_asc "lower(contact__name(party_id,'t')) asc" - orderby_desc "lower(contact__name(party_id,'t')) asc" - } - default_value first_names,asc - } -formats { - normal { - label "[_ contacts.Table]" - layout table - row { - contact {} ->>>>>>> 1.8 } } - + set original_party_id $party_id db_multirow -extend {map_url} -unclobber contacts dbqd.contacts.www.index.contacts_select {} { 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--]" ""]] -<<<<<<< contact-rels.tcl set rel_options [db_list_of_lists get_rels {}] set rel_options "{{-Select One-} {}} $rel_options" -======= db_foreach get_rels {} { set pretty_name [lang::util::localize $pretty_name] lappend rel_options [list $pretty_name $role] } ->>>>>>> 1.8 ad_form -name "search" -method "GET" -export {party_id} -form {