From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 4 Mar 2016 00:39:31 +0000 (-0800)
Subject: fix contact upgrade, RT#39659
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b216bf3a4a3e9646fb80002718b6aa1ae2687354;p=freeside.git

fix contact upgrade, RT#39659
---

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,