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 + } + }