Index: openacs-4/packages/contacts/lib/contact-relationships.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-relationships.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/lib/contact-relationships.adp 3 Feb 2006 02:45:34 -0000 1.5
+++ openacs-4/packages/contacts/lib/contact-relationships.adp 4 Apr 2006 13:33:16 -0000 1.6
@@ -18,7 +18,8 @@
-
#contacts.lt_Add_new_relsrelations#
+
+ #contacts.lt_Add_new_relsrelations#
Index: openacs-4/packages/contacts/lib/contact-relationships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-relationships.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/lib/contact-relationships.tcl 20 Feb 2006 22:01:02 -0000 1.7
+++ openacs-4/packages/contacts/lib/contact-relationships.tcl 4 Apr 2006 13:33:16 -0000 1.8
@@ -23,8 +23,10 @@
}
multirow create rels relationship relation_url contact contact_url attribute value
+
set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id and group_id > 0}]
lappend groups_belonging_to [contacts::default_group]
+
db_foreach get_relationships {} {
if { [contact::visible_p -party_id $other_party_id] } {
set contact_url [contact::url -party_id $other_party_id]
@@ -33,7 +35,12 @@
} else {
set other_object_type "person"
}
- set relation_url [export_vars -base "[ad_conn package_url]add/$other_object_type" -url {{group_ids $groups_belonging_to} {object_id_two "$party_id"} rel_type}]
+ if {[string eq $rel_type "contact_rels_employment"]} {
+ set relation_url [export_vars -base "[ad_conn package_url]add/$other_object_type" -url {{group_ids $groups_belonging_to} {object_id_two "$party_id"} rel_type}]
+ } else {
+ set relation_url ""
+ }
+
set role_singular [lang::util::localize $role_singular]
multirow append rels $role_singular $relation_url $other_name $contact_url {} {}