name_singular => 'contact',
query => {
select => join(', ', @select),
- table => 'contact',
+ table => $link,
addl_from => $addl_from,
- hashref => {}, #\%hash,
+ hashref => {},
extra_sql => "WHERE $extra_sql",
order_by => "ORDER BY contact_last,contact_first,contact_email_emailaddress"
},
count_query => "
SELECT COUNT(*)
- FROM contact
+ FROM $link
$addl_from
WHERE $extra_sql
",
fields => \@fields,
links => \@links,
html_init => $send_email_link,
-# agent_virt => 1, # Not supported unless table is cust_main/prospect_main
+ agent_virt => 1,
+ agent_pos => 11,
&>
<%init>
# Catch destination values from dest multi-checkbox, default to message
# irrelevant to prospect contacts
my @dest = grep{ /^(message|invoice)$/ } $cgi->param('dest');
-@dest = ('message') unless @dest;
-
# Cache the contact_class table
my %classname =
contact => [qw/first last title contactnum/],
contact_email => [qw/emailaddress/],
},
- joinsql => "
- LEFT JOIN contact_email
- ON (contact.contactnum = contact_email.contactnum)
- ",
+ joinsql => "",
},
# These are included if we're viewing customer records
- customer => {
+ cust_main => {
cols => {
cust_main => [qw/first last company/],
cust_contact => [qw/
},
joinsql => "
LEFT JOIN cust_contact
- ON (contact.contactnum = cust_contact.contactnum)
- LEFT JOIN cust_main
- ON (cust_contact.custnum = cust_main.custnum)
+ ON (cust_main.custnum = cust_contact.custnum)
+ LEFT JOIN contact
+ on (cust_contact.contactnum = contact.contactnum)
+ LEFT JOIN contact_email
+ ON (cust_contact.contactnum = contact_email.contactnum)
",
},
# These are included if we're viewing prospect records
- prospect => {
+ prospect_main => {
cols => {
prospect_main => [qw/company/],
prospect_contact => [qw/prospectnum classnum comment/],
},
joinsql => "
LEFT JOIN prospect_contact
- ON (contact.contactnum = prospect_contact.contactnum)
- LEFT JOIN prospect_main
- ON (prospect_contact.prospectnum = prospect_main.prospectnum)
+ ON (prospect_main.prospectnum = prospect_contact.prospectnum)
+ LEFT JOIN contact
+ on (prospect_contact.contactnum = contact.contactnum)
+ LEFT JOIN contact_email
+ ON (prospect_contact.contactnum = contact_email.contactnum)
",
},
);
my $addl_from;
my $extra_sql;
my $hashref;
-my $link = $cgi->param('link'); # cust_main, prospect_main or both
+my $link = $cgi->param('link'); # cust_main or prospect_main
+
+push @select,'agentnum';
-my @rectypes = ('common');
-push @rectypes,'customer' if $link eq 'cust_main' || $link eq 'both';
-push @rectypes,'prospect' if $link eq 'prospect_main' || $link eq 'both';
+# this shouldn't happen without funny-busines
+die "Invalid \$link type ($link)"
+ unless $link eq 'cust_main' || $link eq 'prospect_main';
# Build @select and $addl_from
-for my $key (@rectypes) {
+for my $key ('common', $link) {
$addl_from .= $colmap{$key}->{joinsql};
my $cols = $colmap{$key}->{cols};
for my $tbl (keys %{$cols}) {
}
}
-# Filter for custnum/prospectnum
-$extra_sql .= ' (';
-$extra_sql .= "cust_contact.custnum IS NOT NULL"
- if $link eq 'cust_main' || $link eq 'both';
-$extra_sql .= " OR " if $link eq 'both';
-$extra_sql .= "prospect_contact.prospectnum IS NOT NULL"
- if $link eq 'prospect_main' || $link eq 'both';
-$extra_sql .= ') ';
-
# Filter for Contact Type
if (@classnum || $classnum_null) {
my @stm;
-
- push @stm, 'cust_contact.classnum IN ('.join(',',@classnum).')'
- if @classnum && ($link eq 'cust_main' || $link eq 'both');
-
- push @stm, 'prospect_contact.classnum IN ('.join(',',@classnum).')'
- if @classnum && ($link eq 'prospect_main' || $link eq 'both');
-
- push @stm, 'cust_contact.classnum IS NULL'
- if $classnum_null && ($link eq 'cust_main' || $link eq 'both');
-
- push @stm, 'prospect_contact.classnum IS NULL'
- if $classnum_null && ($link eq 'prospect_main' || $link eq 'both');
-
- $extra_sql .= "\nAND (" . join(' OR ',@stm) . ') ';
+ my $tbl = $link eq 'cust_main' ? 'cust_contact' : 'prospect_contact';
+ push @stm, "${tbl}.classnum IN (".join(',',@classnum).')' if @classnum;
+ push @stm, "${tbl}.classnum IS NULL" if $classnum_null;
+ $extra_sql .= " (" . join(' OR ',@stm) . ') ';
}
# Filter for destination
-if (@dest && ($link eq 'cust_main' || $link eq 'both')) {
+if (@dest && $link eq 'cust_main') {
my @stm;
push @stm, "cust_contact.${_}_dest IS NOT NULL" for @dest;
- push @stm, "prospect_contact.prospectnum IS NOT NULL" if $link eq 'both';
- $extra_sql .= "\nAND (".join(' OR ',@stm).') ';
+ $extra_sql .= "\nAND (".join(' AND ',@stm).') ';
}
if ($DEBUG) {
print "select \n";
print join ",\n",@select;
print "\n";
- print "from contact \n";
+ print "from $link \n";
print "$addl_from\n";
print "WHERE \n $extra_sql\n";
print "</pre>\n";
}
# Prepare to display phone numbers
-my %phonetype = (qw/1 Work 2 Home 3 Mobile 4 Fax/);
-my %phoneid = (qw/Work 1 Home 2 Mobile 3 Fax 4/);
+# adds 3 additional queries per table record :-(
my $get_phone_sub = sub {
my $type = shift;
return sub {
my $rec = shift;
my @p = qsearch('contact_phone', {
contactnum => $rec->contact_contactnum,
- phonetypenum => $phoneid{$type}
+ phonetypenum => $type,
});
- @p ? (join ', ',map{$_->phonenum} @p) : undef;
+ @p ? (join ', ',map{$_->phonenum_pretty} @p) : undef;
};
};
+my @phones;
+foreach my $phone_type ( qsearch({table=>'phone_type', order_by=>'weight'}) ) {
+ push @phones, { label => $phone_type->typename.' Phone', field => $get_phone_sub->($phone_type->phonetypenum), };
+}
+
# Cache contact types
my %classname =
map {$_->classnum => $_->classname}
# And now for something completly different:
my @report = (
- { label => 'First', field => sub { shift->contact_first }},
- { label => 'Last', field => sub { shift->contact_last }},
- { label => 'Title', field => sub { shift->contact_title }},
- { label => 'E-Mail', field => sub { shift->contact_email_emailaddress }},
- { label => 'Work Phone', field => $get_phone_sub->('Work') },
- { label => 'Mobile Phone', field => $get_phone_sub->('Mobile') },
- { label => 'Home Phone', field => $get_phone_sub->('Home') },
+ { label => 'First', field => 'contact_first' },
+ { label => 'Last', field => 'contact_last' },
+ { label => 'Title', field => 'contact_title' },
+ { label => 'E-Mail', field => 'contact_email_emailaddress' },
+ @phones,
{ label => 'Type',
field => sub {
my $rec = shift;
$rec->cust_contact_message_dest ? 'Y' : 'N';
}},
{ label => 'Customer',
- link => sub {
- my $rec = shift;
- $rec->prospect_contact_prospectnum
- ? ["${p}view/prospect_main.html?", 'prospect_contact_prospectnum' ]
- : ["${p}view/cust_main.cgi?", 'cust_contact_custnum' ];
- },
+ link => [
+ "${fsurl}view/",
+ sub {
+ my $row = shift;
+ $row->cust_contact_custnum
+ ? 'cust_main.cgi?'.$row->cust_contact_custnum
+ : 'prospect_main.html?'.$row->prospect_contact_prospectnum
+ }
+ ],
field => sub {
my $rec = shift;
if ($rec->prospect_contact_prospectnum) {
- return $rec->contact_company
- || $rec->contact_last.' '.$rec->contact_first;
+ return encode_entities(
+ $rec->contact_company
+ || $rec->contact_last.' '.$rec->contact_first
+ );
}
- $rec->cust_main_company || $rec->cust_main_last.' '.$rec->cust_main_first;
+ encode_entities(
+ $rec->cust_main_company
+ || $rec->cust_main_last.' '.$rec->cust_main_first
+ );
}},
{ label => 'Self-service',
field => sub {
{ label => 'Comment',
field => sub {
my $rec = shift;
- $rec->prospect_contact_prospectnum
- ? $rec->prospect_contact_comment
- : $rec->cust_contact_comment;
+ encode_entities(
+ $rec->prospect_contact_prospectnum
+ ? $rec->prospect_contact_comment
+ : $rec->cust_contact_comment
+ );
}},
);
my $classnum_url_part;
if (@classnum) {
- $classnum_url_part = join '', map{ "&classnums=$_" } @classnum, @dest;
+ $classnum_url_part = join '', map{ "&classnums=$_" } @classnum;
$classnum_url_part .= '&classnums=0' if $classnum_null;
}
-# E-mail pipeline doesn't support mixing prospects and customers in one go
+my $dest_url_part;
+if (@dest) {
+ $dest_url_part = join '', map{ "&dest=$_" } @dest;
+}
+
+# E-mail pipeline, from email-customers.html through to email queue job,
+# doesn't support cust_prospect table
my $send_email_link = undef;
if ($link eq 'cust_main') {
$send_email_link =
"<a href=\"${fsurl}misc/email-customers.html?".
'table=cust_main'.
+ '&agentnum='.$cgi->param('agentnum').
'&POST=on'.
'&all_pkg_classnums=0'.
'&all_tags=0'.
'&refnum=1'.
'&with_email=on'.
$classnum_url_part.
+ $dest_url_part.
"\">Email a notice to these customers</a>";
}
projects / freeside.git / blobdiff