projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d22baa4
)
add email to contact report
author
Ivan Kohler
<ivan@freeside.biz>
Sat, 4 Jun 2016 01:25:59 +0000
(18:25 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Sat, 4 Jun 2016 01:25:59 +0000
(18:25 -0700)
httemplate/search/contact.html
patch
|
blob
|
history
diff --git
a/httemplate/search/contact.html
b/httemplate/search/contact.html
index
c3667df
..
44c864c
100644
(file)
--- 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 %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;
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;
};
$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 = '';
my $company_link = '';