svn commit: r235766 - user/des/fbce/lib/FBCE/Schema/Result

[Dag-Erling Smorgrav]

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 {