Revert "RT# 39340 - configured the minimal selfservice to get mac address from radius...
[freeside.git] / httemplate / search / cust_main-zip.html
1 <& 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                  'links'       => [ '', $link  ],
8 &>
9 <%init>
10
11 die "access denied"
12   unless $FS::CurrentUser::CurrentUser->access_right('List zip codes');
13
14 # XXX link to customers
15
16 my @where = ();
17
18 # select status
19
20 if ( $cgi->param('status') =~ /^(prospect|uncancel|active|susp|cancel)$/ ) {
21   my $method = $1.'_sql';
22   push @where, FS::cust_main->$method();
23 }
24
25 # select agent
26 # XXX this needs to be virtualized by agent too (like lots of stuff)
27
28 my $agentnum = '';
29 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
30   $agentnum = $1;
31   push @where, "cust_main.agentnum = $agentnum";
32 }
33
34 # select svcdb
35
36 if ( $cgi->param('svcdb') =~ /^(\w+)$/ ) {
37   my $svcdb = $1;
38   push @where, "EXISTS( SELECT 1 FROM $svcdb LEFT JOIN cust_svc USING ( svcnum )
39                                              LEFT JOIN cust_pkg USING ( pkgnum )
40                           WHERE cust_pkg.custnum = cust_main.custnum
41                       )";
42 }
43
44 my $where = scalar(@where) ? 'WHERE '. join(' AND ', @where) : '';
45
46 # bill zip vs ship zip
47
48 sub fieldorempty {
49   my $field = shift;
50   "CASE WHEN $field IS NULL THEN '' ELSE $field END";
51 }
52
53 sub strip_plus4 {
54   my $field = shift;
55   "CASE WHEN $field is NULL
56     THEN ''
57     ELSE CASE WHEN $field LIKE '_____-____'
58            THEN SUBSTRING($field FROM 1 FOR 5)
59            ELSE $field
60          END
61   END";
62 }
63
64 $cgi->param('column') =~ /^(bill|ship)$/;
65 my $location = $1 || 'bill';
66 $location .= '_locationnum';
67
68 my $zip;
69 if ( $cgi->param('ignore_plus4') ) {
70   $zip = strip_plus4('cust_location.zip');
71 } else {
72   $zip = fieldorempty('cust_location.zip');
73 }
74
75 # construct the queries and send 'em off
76
77 my $join = "JOIN cust_location ON (cust_main.$location = cust_location.locationnum)";
78
79 my $sql_query = 
80   "SELECT $zip AS zipcode,
81           COUNT(*) AS num_cust
82      FROM cust_main
83      $join
84      $where
85      GROUP BY zipcode
86      ORDER BY num_cust DESC, $zip ASC
87   ";
88
89 my $count_sql = 
90   "SELECT COUNT(DISTINCT cust_location.zip)
91     FROM cust_main $join $where";
92
93 my $link = [ $p.'search/cust_main.html?zip=', 
94              sub { $_[0]->[0] } ];
95
96 </%init>