-my $extra_sql = '';
-$link = $cgi->param('link');
-if ( $link ) {
-
- my $as = ') AS prospect_or_customer';
-
- if ( $link eq 'cust_main' ) {
- push @header, 'Customer';
- push @select,
- "COALESCE( cust_main.company, cust_main.first||' '||cust_main.last $as",
- map "cust_contact.$_", qw( custnum classnum comment selfservice_access );
- $addl_from =
- ' LEFT JOIN cust_contact USING ( contactnum ) '.
- ' LEFT JOIN cust_main ON ( cust_contact.custnum = cust_main.custnum )';
- $extra_sql = ' cust_contact.custnum IS NOT NULL ';
- if (@classnum || $classnum_null) {
- $extra_sql .= ' AND ( ';
- $extra_sql .= ' cust_contact.classnum IN ('.join(',',@classnum).') '
- if @classnum;
- $extra_sql .= ' OR ' if $classnum_null && @classnum;
- $extra_sql .= ' cust_contact.classnum IS NULL ' if $classnum_null;
- $extra_sql .= ' ) ';
- }
- $company_link = [ $p.'view/cust_main.cgi?', 'custnum' ];
- } elsif ( $link eq 'prospect_main' ) {
- push @header, 'Prospect';
- push @select,
- "COALESCE( prospect_main.company, contact.first||' '||contact.last $as",
- map "prospect_contact.$_", qw( prospectnum classnum comment );
- $addl_from =
- ' LEFT JOIN prospect_contact USING ( contactnum ) '.
- ' LEFT JOIN prospect_main ON ( prospect_contact.prospectnum = prospect_main.prospectnum )';
- $extra_sql = ' prospect_contact.prospectnum IS NOT NULL ';
- if (@classnum || $classnum_null) {
- $extra_sql .= ' AND ( ';
- $extra_sql .= ' prospect_contact.classnum IN ('.join(',',@classnum).') '
- if @classnum;
- $extra_sql .= ' OR ' if $classnum_null && @classnum;
- $extra_sql .= ' prospect_contact.classnum IS NULL ' if $classnum_null;
- $extra_sql .= ' ) ';
- }
- $company_link = [ $p.'view/prospect_main.html?', 'prospectnum' ];
- } else {
- die "don't know how to report on contacts linked to specified table";
- }