Index: openacs-4/packages/contacts/lib/comments.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/comments.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/contacts/lib/comments.adp 28 May 2005 15:43:52 -0000 1.5 +++ openacs-4/packages/contacts/lib/comments.adp 31 May 2005 17:08:41 -0000 1.6 @@ -7,8 +7,8 @@
-
@comments.comment_number@. #contacts.lt_commentspretty_date_a# @comments.author@ -
@comments.comment_html;noquote@
+
@comments.comment_number@. #contacts.lt_commentspretty_date_a# @comments.author@ +
@comments.comment_html;noquote@
Index: openacs-4/packages/contacts/lib/comments.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/comments.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/contacts/lib/comments.tcl 27 May 2005 09:02:14 -0000 1.3 +++ openacs-4/packages/contacts/lib/comments.tcl 31 May 2005 17:08:41 -0000 1.4 @@ -101,8 +101,6 @@ incr result_number } - - ad_form -name comment_add \ -action "[ad_conn package_url]comment-add" \ -form " @@ -120,7 +118,4 @@ - - - set user_id [ad_conn user_id] Index: openacs-4/packages/contacts/www/contact.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/contacts/www/contact.adp 28 May 2005 15:44:06 -0000 1.5 +++ openacs-4/packages/contacts/www/contact.adp 31 May 2005 17:08:41 -0000 1.6 @@ -40,23 +40,19 @@ - - +
@project_id@ @base_url@

#contacts.PROJECT# - - - -

#contacts.lt_Last_updated_update_d#

- +

#contacts.lt_Last_updated_update_d#

+ Index: openacs-4/packages/contacts/www/contact.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/contacts/www/contact.tcl 28 May 2005 15:44:06 -0000 1.6 +++ openacs-4/packages/contacts/www/contact.tcl 31 May 2005 17:08:41 -0000 1.7 @@ -89,19 +89,24 @@ set tasks_enabled_p 0 } -# Get the linked projekt_id to display the subprojects +# Get the linked projekt_id to display the subprojects if projects is installed -set project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"] +if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } { -if {$project_id > 0} { - set package_id [acs_object::get_element -object_id $project_id -element package_id] - set base_url [apm_package_url_from_id $package_id] - set project_url [export_vars -base $base_url {{project_item_id $project_id}}] + set project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"] + + if {$project_id > 0} { + set package_id [acs_object::get_element -object_id $project_id -element package_id] + set base_url [apm_package_url_from_id $package_id] + set project_url [export_vars -base $base_url {{project_item_id $project_id}}] + } else { + set project_url "" + } + + set projects_enabled_p 1 } else { - set project_url "" + set projects_enabled_p 0 } - - ad_return_template