link new tax report to cust_credit_bill_pkg for credits, RT#12332
[freeside.git] / httemplate / search / cust_main-zip.html
1 <% include( 'elements/search.html',
2                  'title'       => 'Zip code Search Results',
3                  'name'        => 'zip codes',
4                  'query'       => $sql_query,
5                  'count_query' => $count_sql,
6                  'header'      => [ 'Zip code', 'Customers', ],
7                  #'fields'      => [ 'zip', 'num_cust', ],
8                  'links'       => [ '', sub { 'somewhere'; }  ],
9              )
10 %>
11 <%init>
12
13 die "access denied"
14   unless $FS::CurrentUser::CurrentUser->access_right('List zip codes');
15
16 # XXX link to customers
17
18 my @where = ();
19
20 # select status
21
22 if ( $cgi->param('status') =~ /^(prospect|uncancel|active|susp|cancel)$/ ) {
23   my $method = $1.'_sql';
24   push @where, FS::cust_main->$method();
25 }
26
27 # select agent
28 # XXX this needs to be virtualized by agent too (like lots of stuff)
29
30 my $agentnum = '';
31 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
32   $agentnum = $1;
33   push @where, "cust_main.agentnum = $agentnum";
34 }
35
36 # select svcdb
37
38 if ( $cgi->param('svcdb') =~ /^(\w+)$/ ) {
39   my $svcdb = $1;
40   push @where, "EXISTS( SELECT 1 FROM $svcdb LEFT JOIN cust_svc USING ( svcnum )
41                                              LEFT JOIN cust_pkg USING ( pkgnum )
42                           WHERE cust_pkg.custnum = cust_main.custnum
43                       )";
44 }
45
46 my $where = scalar(@where) ? 'WHERE '. join(' AND ', @where) : '';
47
48 # bill zip vs ship zip
49
50 sub fieldorempty {
51   my $field = shift;
52   "CASE WHEN $field IS NULL THEN '' ELSE $field END";
53 }
54
55 sub strip_plus4 {
56   my $field = shift;
57   "CASE WHEN $field is NULL
58     THEN ''
59     ELSE CASE WHEN $field LIKE '_____-____'
60            THEN SUBSTRING($field FROM 1 FOR 5)
61            ELSE $field
62          END
63   END";
64 }
65
66 my( $zip, $czip);
67 if ( $cgi->param('column') eq 'ship_zip' ) {
68
69   my $casewhen_noship =
70     "CASE WHEN ( ship_last IS NULL OR ship_last = '' ) THEN ";
71
72   $czip = "$casewhen_noship zip ELSE ship_zip END";
73
74   if ( $cgi->param('ignore_plus4') ) {
75     $zip = $casewhen_noship. strip_plus4('zip').
76                    " ELSE ". strip_plus4('ship_zip'). ' END';
77
78   } else {
79     $zip = $casewhen_noship. fieldorempty('zip').
80                    " ELSE ". fieldorempty('ship_zip'). ' END';
81   }
82
83 } else {
84
85   $czip = 'zip';
86
87   if ( $cgi->param('ignore_plus4') ) {
88     $zip = strip_plus4('zip');
89   } else {
90     $zip = fieldorempty('zip');
91   }
92
93 }
94
95 # construct the queries and send 'em off
96
97 my $sql_query = 
98   "SELECT $zip AS zipcode,
99           COUNT(*) AS num_cust
100      FROM cust_main
101      $where
102      GROUP BY zipcode
103      ORDER BY num_cust DESC
104   ";
105
106 my $count_sql = "select count(distinct $czip) from cust_main $where";
107
108 # XXX should link...
109
110 </%init>