Index: openacs-4/packages/acs-subsite/tcl/party-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs.tcl,v
diff -u -r1.2 -r1.2.14.1
--- openacs-4/packages/acs-subsite/tcl/party-procs.tcl	1 Sep 2001 14:54:42 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/party-procs.tcl	28 Jul 2005 08:23:02 -0000	1.2.14.1
@@ -207,5 +207,22 @@
 	}
 
     }
-
+    
+    ad_proc -public email {
+	{-party_id:required}
+    } {
+	this returns the parties email. Cached
+    } {
+	return [util_memoize [list ::contact::email_not_cached -party_id $party_id]]
+    }
+    
+    ad_proc -private email_not_cached {
+	{-party_id:required}
+    } {
+	this returns the contact's name
+    } {
+	set email [db_string get_party_email { select email from parties where party_id = :party_id } -default {}]
+	return $email
+    }
+    
 }