diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-06-03 18:26:17 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-06-03 18:26:17 -0700 |
commit | 51904a584f61eb0963c202963b203016e7db2225 (patch) | |
tree | acf4f70d82b41801e574afefd6e26ccc220f344e /httemplate/search | |
parent | fb5f43d6b49ac83268a651bbae40b6fe4169a75c (diff) |
add email to contact report
Diffstat (limited to 'httemplate/search')
-rw-r--r-- | httemplate/search/contact.html | 12 |
1 files 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 = ''; |