httemplate/search/svc_phone.cgi

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