From f35818a77c0b825df553618f09c728c95cf3dc29 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Fri, 3 Jun 2016 18:25:59 -0700 Subject: [PATCH] add email to contact report --- httemplate/search/contact.html | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/httemplate/search/contact.html b/httemplate/search/contact.html index c3667df98..44c864c16 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 = ''; -- 2.11.0