httemplate/search/svc_phone.cgi

   1 %
   2 %
   3 %my $conf = new FS::Conf;
   4 %
   5 %my($query)=$cgi->keywords;
   6 %$query ||= ''; #to avoid use of unitialized value errors
   7 %
   8 %my $orderby = 'ORDER BY svcnum';
   9 %my %svc_phone = ();
  10 %my @extra_sql = ();
  11 %if ( $query eq 'svcnum' ) {
  12 %  #$orderby = 'ORDER BY svcnum';
  13 %} elsif ( $query eq 'phonenum' ) {
  14 %  $orderby = 'ORDER BY phonenum';
  15 %} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
  16 %  #$orderby = 'ORDER BY svcnum';
  17 %  push @extra_sql, "svcpart = $1";
  18 %} else {
  19 %  $cgi->param('phonenum') =~ /^([\d\- ]+)$/;
  20 %  ( $svc_phone{'phonenum'} = $1 ) =~ s/\D//g;
  21 %}
  22 %
  23 %my $addl_from = ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
  24 %                ' LEFT JOIN part_svc  USING ( svcpart ) '.
  25 %                ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
  26 %                ' LEFT JOIN cust_main USING ( custnum ) ';
  27 %
  28 %#here is the agent virtualization
  29 %push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql;
  30 %
  31 %my $extra_sql = '';
  32 %if ( @extra_sql ) {
  33 %  $extra_sql = ( keys(%svc_phone) ? ' AND ' : ' WHERE ' ).
  34 %               join(' AND ', @extra_sql );
  35 %}
  36 %
  37 %my $count_query = "SELECT COUNT(*) FROM svc_phone $addl_from ";
  38 %if ( keys %svc_phone ) {
  39 %  $count_query .= ' WHERE '.
  40 %                    join(' AND ', map "$_ = ". dbh->quote($svc_phone{$_}),
  41 %                                      keys %svc_phone
  42 %                        );
  43 %}
  44 %$count_query .= $extra_sql;
  45 %
  46 %my $sql_query = {
  47 %  'table'     => 'svc_phone',
  48 %  'hashref'   => \%svc_phone,
  49 %  'select'    => join(', ',
  50 %                   'svc_phone.*',
  51 %                   'part_svc.svc',
  52 %                    'cust_main.custnum',
  53 %                    FS::UI::Web::cust_sql_fields(),
  54 %                 ),
  55 %  'extra_sql' => "$extra_sql $orderby",
  56 %  'addl_from' => $addl_from,
  57 %};
  58 %
  59 %my $link = [ "${p}view/svc_phone.cgi?", 'svcnum' ];
  60 %
  61 %#smaller false laziness w/svc_*.cgi here
  62 %my $link_cust = sub {
  63 %  my $svc_x = shift;
  64 %  $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : '';
  65 %};
  66 %
  67 %
  68 <% include( 'elements/search.html',
  69                  'title'             => "Phone number search results",
  70                  'name'              => 'phone numbers',
  71                  'query'             => $sql_query,
  72                  'count_query'       => $count_query,
  73                  'redirect'          => $link,
  74                  'header'            => [ '#',
  75                                           'Service',
  76                                           'Country code',
  77                                           'Phone number',
  78                                           FS::UI::Web::cust_header(),
  79                                         ],
  80                  'fields'            => [ 'svcnum',
  81                                           'svc',
  82                                           'countrycode',
  83                                           'phonenum',
  84                                           \&FS::UI::Web::cust_fields,
  85                                         ],
  86                  'links'             => [ $link,
  87                                           $link,
  88                                           $link,
  89                                           $link,
  90                                           ( map { $link_cust }
  91                                                 FS::UI::Web::cust_header()
  92                                           ),
  93                                         ],
  94               )
  95 %>