Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/ams/tcl/ams-procs.tcl	20 Feb 2006 10:43:52 -0000	1.42
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	12 Mar 2006 14:45:23 -0000	1.43
@@ -118,6 +118,10 @@
 } {
     return the attribute_id for the specified attribute
 } {
+    # Special case for emails
+    if {$attribute_name eq "email"} {
+	set object_type "party"
+    }
     return [db_string get_attribute_id {} -default {}]
 }