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.49 -r1.50
--- openacs-4/packages/ams/tcl/ams-procs.tcl	26 Apr 2006 06:24:55 -0000	1.49
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	8 Aug 2006 09:35:17 -0000	1.50
@@ -126,6 +126,10 @@
     return the attribute_id for the specified attribute, this proc checks
     all parent attributes as well
 } {
+    # Special case for emails
+    if {$attribute_name eq "email"} {
+	set object_type "party"
+    }
     return [db_string get_attribute_id {} -default {}]
 }