[freeside-commits] branch FREESIDE_4_BRANCH updated. 51904a584f61eb0963c202963b203016e7db2225

[Ivan]

The branch, FREESIDE_4_BRANCH has been updated
       via  51904a584f61eb0963c202963b203016e7db2225 (commit)
      from  fb5f43d6b49ac83268a651bbae40b6fe4169a75c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 51904a584f61eb0963c202963b203016e7db2225
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Fri Jun 3 18:26:17 2016 -0700

    add email to contact report

diff --git a/httemplate/search/contact.html b/httemplate/search/contact.html
index c3667df..44c864c 100644
--- a/httemplate/search/contact.html
+++ b/httemplate/search/contact.html
@@ -22,6 +22,12 @@ push @select, map "contact.$_", qw( first last title );
 my %hash = ();
 my $addl_from = '';
 
+my $email_sub = sub {
+  my $contact = shift;
+  my @contact_email = $contact->contact_email;
+  join(', ', map $_->emailaddress, @contact_email);
+};
+
 my $link; #for closure in this sub, we'll define it later
 my $contact_classname_sub = sub {
   my $contact = shift;
@@ -37,9 +43,9 @@ my $contact_classname_sub = sub {
   $X_contact->contact_classname;
 };
 
-my @header = ( 'First', 'Last', 'Title', 'Type' );
-my @fields = ( 'first', 'last', 'title', $contact_classname_sub );
-my @links = ( '', '', '', '', );
+my @header = ( 'First', 'Last', 'Title', 'Email', 'Type' );
+my @fields = ( 'first', 'last', 'title', $email_sub, $contact_classname_sub );
+my @links = ( '', '', '', '', '', );
 
 my $company_link = '';
 

-----------------------------------------------------------------------

Summary of changes:
 httemplate/search/contact.html |   12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)