Index: openacs-4/packages/contacts/lib/contacts.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v diff -u -r1.12 -r1.13 --- openacs-4/packages/contacts/lib/contacts.tcl 20 Jun 2005 16:48:35 -0000 1.12 +++ openacs-4/packages/contacts/lib/contacts.tcl 28 Jun 2005 03:32:41 -0000 1.13 @@ -108,8 +108,17 @@ contact { label "$name_label" display_template { - @contacts.party_id@">@contacts.name@ \[[_ contacts.Edit]\] - @contacts.email@ + @contacts.name@ \[[_ contacts.Edit]\] + + + + @contacts.email@ + + + , @contacts.url@ + + + } } contact_id { @@ -166,11 +175,12 @@ } } -db_multirow -unclobber contacts contacts_select {} +db_multirow -unclobber contacts contacts_select {} { + set contact_url [contact::url -party_id $party_id] +} if { [exists_and_not_null query] && [template::multirow size contacts] == 1 } { -# ad_returnredirect -message "in '$query_name' only this contact matched your query of '$query'" [contact::url -party_id [template::multirow get contacts 1 party_id]] - + # Redirecting the user directly to the one resulted contact ad_returnredirect [contact::url -party_id [template::multirow get contacts 1 party_id]] ad_script_abort }