Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/contacts/lib/contacts.tcl 20 Oct 2005 22:52:33 -0000 1.28
+++ openacs-4/packages/contacts/lib/contacts.tcl 21 Oct 2005 10:54:12 -0000 1.29
@@ -83,12 +83,18 @@
switch $orderby {
"first_names,asc" {
set name_label "[_ contacts.Sort_by]: [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set left_join "left join persons on (parties.party_id = persons.person_id)"
+ set sort_item "lower(first_names)"
}
"last_name,asc" {
set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set left_join "left join persons on (parties.party_id = persons.person_id)"
+ set sort_item "lower(last_name)"
}
"organization,asc" {
set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set left_join "left join organizations on (parties.party_id = organizations.organization_id)"
+ set sort_item "lower(organizations.name)"
}
}