Index: openacs-4/packages/contacts/www/contact.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/www/contact.adp 16 Jun 2005 07:47:28 -0000 1.14
+++ openacs-4/packages/contacts/www/contact.adp 17 Jun 2005 11:30:30 -0000 1.15
@@ -58,6 +58,9 @@
#contacts.Visit_Club#
+
+
+
Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/www/contact.tcl 17 Jun 2005 08:47:01 -0000 1.14
+++ openacs-4/packages/contacts/www/contact.tcl 17 Jun 2005 11:30:30 -0000 1.15
@@ -7,6 +7,7 @@
} {
{party_id:integer,notnull}
+ {orderby ""}
} -validate {
contact_exists -requires {party_id} {
if { ![contact::exists_p -party_id $party_id] } {
@@ -18,6 +19,7 @@
set object_type [contact::type -party_id $party_id]
set user_id [ad_conn user_id]
set package_id [ad_conn package_id]
+set pm_package_id ""
# I don't think it is wise to rely on the "title" attribute to be
# displayed by the master template. Sadly there is no quick way to do
@@ -117,7 +119,8 @@
if {$dotlrn_club_id > 0} {
set club_url [dotlrn_community::get_community_url $dotlrn_club_id]
set dotlrn_club_enabled_p 1
-
+ set pm_package_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]
+ set base_url [apm_package_url_from_id $pm_package_id]
} else {
set dotlrn_club_enabled_p 0
}