Index: openacs-4/packages/contacts/lib/contact-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/lib/contact-master.adp 28 Jun 2005 04:02:56 -0000 1.4
+++ openacs-4/packages/contacts/lib/contact-master.adp 2 Apr 2006 22:10:28 -0000 1.5
@@ -22,8 +22,8 @@
@party_id@
+ @title;noquote@
+ @context;noquote@
-
-
Index: openacs-4/packages/contacts/lib/contact-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/lib/contact-master.tcl 4 Mar 2006 22:58:41 -0000 1.16
+++ openacs-4/packages/contacts/lib/contact-master.tcl 2 Apr 2006 22:10:28 -0000 1.17
@@ -2,10 +2,10 @@
# @creation-date 2005-05-09
# @cvs-id $Id$
-
set contact_master_template [parameter::get_from_package_key -package_key "contacts" -parameter "ContactMaster" -default "/packages/contacts/lib/contact-master"]
if { $contact_master_template != "/packages/contacts/lib/contact-master" } {
ad_return_template
+ return
}
# Set up links in the navbar that the user has access to
Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/contacts/www/contact-add.tcl 27 Feb 2006 03:46:17 -0000 1.44
+++ openacs-4/packages/contacts/www/contact-add.tcl 2 Apr 2006 22:10:29 -0000 1.45
@@ -311,6 +311,7 @@
}
callback contact::${object_type}_new_rel -object_id_two $object_id_two -rel_type $rel_type -party_id $party_id
+ contact::flush -party_id $object_id_two
}
# Add the user to the
Index: openacs-4/packages/contacts/www/relationship-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-add.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/www/relationship-add.tcl 15 Feb 2006 10:06:36 -0000 1.8
+++ openacs-4/packages/contacts/www/relationship-add.tcl 2 Apr 2006 22:10:29 -0000 1.9
@@ -46,13 +46,19 @@
set contact_type_one "person"
util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $party_id *"
util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $party_id"
+} else {
+ contact::flush -party_id $party_id
}
+
set contact_type_two [contact::type -party_id $party_two]
if { $contact_type_two == "user" } {
set contact_type_two "person"
util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $party_two *"
util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $party_two"
+} else {
+ contact::flush -party_id $party_two
}
+
set secondary_role_pretty [lang::util::localize [db_string get_secondary_role_pretty {}]]
if { ![exists_and_not_null rel_type] } {
set options_list [db_list_of_lists get_rel_types {}]