From owner-svn-src-user@FreeBSD.ORG  Tue May 22 00:32:31 2012
Return-Path: <owner-svn-src-user@FreeBSD.ORG>
Delivered-To: svn-src-user@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id 75E99106564A;
	Tue, 22 May 2012 00:32:31 +0000 (UTC) (envelope-from des@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:4f8:fff6::2c])
	by mx1.freebsd.org (Postfix) with ESMTP id 60E108FC12;
	Tue, 22 May 2012 00:32:31 +0000 (UTC)
Received: from svn.freebsd.org (localhost [127.0.0.1])
	by svn.freebsd.org (8.14.4/8.14.4) with ESMTP id q4M0WVh4080124;
	Tue, 22 May 2012 00:32:31 GMT (envelope-from des@svn.freebsd.org)
Received: (from des@localhost)
	by svn.freebsd.org (8.14.4/8.14.4/Submit) id q4M0WU1S080122;
	Tue, 22 May 2012 00:32:30 GMT (envelope-from des@svn.freebsd.org)
Message-Id: <201205220032.q4M0WU1S080122@svn.freebsd.org>
From: Dag-Erling Smorgrav <des@FreeBSD.org>
Date: Tue, 22 May 2012 00:32:30 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-user@freebsd.org
X-SVN-Group: user
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Cc: 
Subject: svn commit: r235766 - user/des/fbce/lib/FBCE/Schema/Result
X-BeenThere: svn-src-user@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "SVN commit messages for the experimental &quot; user&quot;
	src tree" <svn-src-user.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-user>,
	<mailto:svn-src-user-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-user>
List-Post: <mailto:svn-src-user@freebsd.org>
List-Help: <mailto:svn-src-user-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-user>,
	<mailto:svn-src-user-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Tue, 22 May 2012 00:32:31 -0000

Author: des
Date: Tue May 22 00:32:30 2012
New Revision: 235766
URL: http://svn.freebsd.org/changeset/base/235766

Log:
  Add a method that returns the person's email address.

Modified:
  user/des/fbce/lib/FBCE/Schema/Result/Person.pm

Modified: user/des/fbce/lib/FBCE/Schema/Result/Person.pm
==============================================================================
--- user/des/fbce/lib/FBCE/Schema/Result/Person.pm	Tue May 22 00:24:16 2012	(r235765)
+++ user/des/fbce/lib/FBCE/Schema/Result/Person.pm	Tue May 22 00:32:30 2012	(r235766)
@@ -260,12 +260,21 @@ sub commit($) {
 }
 
 #
+# Email address
+#
+sub email($) {
+    my ($self) = @_;
+
+    return $self->login . "\@freebsd.org";
+}
+
+#
 # Gravatar URL
 #
 sub gravatar($;$) {
     my ($self, $scheme) = @_;
 
-    my $md5 = md5_hex($self->login . "\@freebsd.org");
+    my $md5 = md5_hex($self->email);
     if ($scheme eq 'https') {
 	return "https://secure.gravatar.com/avatar/$md5";
     } else {