clean attachment filenames, #13843
[freeside.git] / httemplate / search / cust_svc.html
1 <% include( 'elements/search.html',
2               'title'       => 'Service search results',
3               'name'        => 'services',
4               'query'       => $sql_query,
5               'count_query' => $count_query,
6               'redirect'    => $link,
7               'header'      => [ '#',
8                                  'Service',
9                                  # package?
10                                  FS::UI::Web::cust_header(),
11                                ],
12               'fields'      => [ 'svcnum',
13                                  sub { 
14                                    #$_[0]->svc. ': '. $_[0]->label;
15                                    my($label, $value, $svcdb) = $_[0]->label;
16                                    "$label: $value";
17                                  },
18                                  # package?
19                                  \&FS::UI::Web::cust_fields,
20                                ],
21               'links'       => [ $link,
22                                  $link,
23                                  # package?
24                                  ( map { $_ ne 'Cust. Status' ? $link_cust : '' }
25                                        FS::UI::Web::cust_header()
26                                  ),
27                                ],
28               'align' => 'rl'. FS::UI::Web::cust_aligns(),
29               'color' => [ 
30                            '',
31                            '',
32                            FS::UI::Web::cust_colors(),
33                          ],
34               'style' => [ 
35                            '',
36                            '',
37                            FS::UI::Web::cust_styles(),
38                          ],
39           )
40 %>
41 <%init>
42
43 die "access denied"
44   unless $FS::CurrentUser::CurrentUser->access_right('List services');
45
46 my $addl_from = ' LEFT JOIN part_svc  USING ( svcpart ) '.
47                 ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
48                 ' LEFT JOIN cust_main USING ( custnum ) ';
49
50 my @extra_sql = ();
51 my $orderby = 'ORDER BY svcnum'; #has to be ordered by something
52                                  #for pagination to work
53 if ( length( $cgi->param('search_svc') ) ) {
54
55   my $string = $cgi->param('search_svc');
56   $string =~ s/(^\s+|\s+$)//; #trim leading & trailing whitespace
57
58   # implement fuzzy searching in subclasses too at some point?
59   # service searching maybe shouldn't be fuzzy...
60
61   push @extra_sql,
62     ' ( '. join(' OR ',
63       map { my $table = $_;
64             my $search_sql = "FS::$table"->search_sql($string);
65             " ( svcdb = '$table'
66                 AND 0 < ( SELECT COUNT(*) FROM $table
67                             WHERE $table.svcnum = cust_svc.svcnum
68                               AND $search_sql
69                         )
70               ) ";
71           }
72       FS::part_svc->svc_tables
73     ). ' ) ';
74
75 } elsif ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
76
77   $cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unknown svcdb";
78   push @extra_sql, "svcdb = '$1'";
79
80   push @extra_sql, 'pkgnum IS NULL'
81     if $cgi->param('magic') eq 'unlinked';
82
83   if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
84     my $sortby = $1;
85     $orderby = "ORDER BY $sortby";
86   }
87
88 } elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
89
90   push @extra_sql, "svcpart = $1";
91
92 } else {
93   errorpage("No search term specified");
94 }
95
96 #here is the agent virtualization
97 push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( 
98                    'null_right' => 'View/link unlinked services'
99                  );
100
101 my $extra_sql = ' WHERE '. join(' AND ', @extra_sql );
102
103 my $sql_query = {
104   'select'     => join(', ',
105                     'cust_svc.*',
106                     'part_svc.*',
107                     'cust_main.custnum',
108                     FS::UI::Web::cust_sql_fields(),
109                   ),
110   'table'      => 'cust_svc',
111   'addl_from'  => $addl_from,
112   'hashref'    => {},
113   'extra_sql'  => $extra_sql,
114   'order_by'   => $orderby,
115 };
116
117 my $count_query = "SELECT COUNT(*) FROM cust_svc $addl_from $extra_sql";
118
119 my $link = sub {
120   my $cust_svc = shift;
121   my $url = svc_url(
122     'm'        => $m,
123     'action'   => 'view',
124     #'part_svc' => $cust_svc->part_svc,
125     'svcdb'    => $cust_svc->svcdb, #we have it from the joined search
126     #'svc'      => $cust_svc, #redundant
127     'query'     => '',
128   );
129   [ $url, 'svcnum' ];
130 };
131
132 my $link_cust = sub {
133   my $cust_svc = shift;
134   if ( $cust_svc->custnum ) {
135     [ "${p}view/cust_main.cgi?", 'custnum' ];
136   } else {
137     '';
138   }
139 };
140
141 </%init>