From b216bf3a4a3e9646fb80002718b6aa1ae2687354 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 3 Mar 2016 16:39:31 -0800
Subject: [PATCH] fix contact upgrade, RT#39659

---
 FS/FS/contact.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index c1b558d6c..2f9b339e8 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -741,6 +741,12 @@ sub firstlast {
 #  $contact_class->classname;
 #}
 
+#autoloaded by FK in 4.x, but not during the upgrade
+sub contact_email {
+  my $self = shift;
+  qsearch('contact_email', { 'contactnum' => $self->contactnum } );
+}
+
 =item by_selfservice_email EMAILADDRESS
 
 Alternate search constructor (class method).  Given an email address,
-- 
2.20.1