Index: openacs-4/packages/contacts/contacts.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/contacts.info,v
diff -u -r1.80 -r1.81
--- openacs-4/packages/contacts/contacts.info	16 Nov 2006 18:56:14 -0000	1.80
+++ openacs-4/packages/contacts/contacts.info	5 Dec 2006 04:16:49 -0000	1.81
@@ -7,14 +7,14 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="1.2b19" url="http://openacs.org/repository/download/apm/contacts-1.2b19.apm">
+    <version name="1.2b20" url="http://openacs.org/repository/download/apm/contacts-1.2b20.apm">
         <owner url="mailto:openacs@geddert.com">Matthew Geddert</owner>
         <summary>This application lets you collaboratively view, edit and categorize contacts.</summary>
         <release-date>2006-06-25</release-date>
         <description format="text/plain">Contacts is an application for managing all those people and or organization you need to keep track of. It has a complete UI for storing and categorizing contacts. Each contact can have an arbitrary number of custom attributes associated with it, including other contacts (i.e. a certain contact &quot;belongs&quot; to a certain organization). It also functions as a service contract provider for attributes related to users in your system</description>
         <maturity>0</maturity>
 
-        <provides url="contacts" version="1.2b19"/>
+        <provides url="contacts" version="1.2b20"/>
         <requires url="acs-datetime" version="4.1"/>
         <requires url="acs-events" version="0.5d3"/>
         <requires url="acs-tcl" version="5.3.0d2"/>
Index: openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml,v
diff -u -r1.89 -r1.90
--- openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	8 Nov 2006 18:33:44 -0000	1.89
+++ openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	5 Dec 2006 04:16:49 -0000	1.90
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="contacts" package_version="1.2b16" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="contacts" package_version="1.2b19" locale="en_US" charset="ISO-8859-1">
 
   <msg key="--_select_a_group_--">-- select a group --</msg>
   <msg key="--add_column--">-- add column --</msg>
@@ -534,6 +534,8 @@
   <msg key="New">New</msg>
   <msg key="Next">Next</msg>
   <msg key="No_Lists">No Lists</msg>
+  <msg key="No_valid_parties">No valid parties</msg>
+  <msg key="No_valid_parties_lt">No valid parties where selected. Please go back and select some parties.</msg>
   <msg key="none">(none)</msg>
   <msg key="Normal_Searches">Normal Searches</msg>
   <msg key="Not_Configured">Not Configured</msg>
Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/contacts/www/contact.tcl	28 Nov 2006 17:33:41 -0000	1.35
+++ openacs-4/packages/contacts/www/contact.tcl	5 Dec 2006 04:16:50 -0000	1.36
@@ -49,7 +49,7 @@
 
 if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } {
 
-    #set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
+    set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
     set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "dotlrn_club"] 0]
 
     if {$project_id > 0 && $dotlrn_club_id <1} {
Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/contacts/www/message.tcl	28 Nov 2006 17:33:41 -0000	1.35
+++ openacs-4/packages/contacts/www/message.tcl	5 Dec 2006 04:16:50 -0000	1.36
@@ -72,6 +72,12 @@
 set context [list $title]
 
 set recipients  [list]
+
+if {![exists_and_not_null valid_party_ids]} {
+    ad_return_error "[_ contacts.No_valid_parties]" "[_ contacts.No_valid_parties_lt]"
+    ad_script_abort
+}
+
 foreach party_id $valid_party_ids {
     set contact_name   [contact::name -party_id $party_id]
     set contact_url    [contact::url -party_id $party_id]