Index: openacs-4/packages/contacts/www/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.vuh,v diff -u -r1.11 -r1.12 --- openacs-4/packages/contacts/www/index.vuh 14 Dec 2005 17:29:44 -0000 1.11 +++ openacs-4/packages/contacts/www/index.vuh 1 Feb 2006 01:09:38 -0000 1.12 @@ -5,6 +5,7 @@ # @creation-date 2005-05-24 # @cvs-id $Id$ + set package_url [ad_conn package_url] set file_url [ad_conn path_info] set file_list [split $file_url "/"] @@ -18,13 +19,19 @@ set action [lindex $file_list 1] +callback contacts::redirect -party_id $party_id -action $action + + + if { $party_is_contact_p } { if { [llength $file_list] == "1" } { # we need to redirect the user to their "correct" summary page otherwise # sub links will not work correctly ad_returnredirect "[ad_conn package_url]${party_id}/" ad_script_abort } + + set valid_pages [list "" edit files groups relationships comments message history changes mail-tracking create-club] if { [lsearch $valid_pages $action] >= 0 && [llength $file_list] == "2" } {