httemplate/search/phone_inventory_provisioned.html

   1 <% include( 'elements/search.html',
   2               'title'         => 'Phone Number (DID) Search Results',
   3               'name_singular' => 'phone number',
   4               'query'         => {
   5                                    'table'   => 'phone_avail',
   6                                    'hashref' => {},
   7                                    'select'  => 'distinct latanum',
   8                                  },
   9               'count_query'   => 'SELECT COUNT(distinct latanum) FROM phone_avail',
  10               'header'        => [ 'LATA #',
  11                                    'Available',
  12                                    'Provisioned',
  13                                    'Have Usage',
  14                                  ],
  15               'fields'        => [
  16                 'latanum',
  17                 sub {
  18                     my $latanum = shift->latanum;
  19                     my @dids = qsearch('phone_avail',
  20                                         { 'svcnum' => '',
  21                                           'latanum' => $latanum,
  22                                         }
  23                                       );
  24                     return scalar(@dids);
  25                 },
  26                 sub {
  27                     my $latanum = shift->latanum;
  28                     my @dids = provisioned_dids($latanum);
  29                     return scalar(@dids);
  30                 },
  31                 sub {
  32                     my $latanum = shift->latanum;
  33                     my @dids = provisioned_dids($latanum);
  34                     my $count = 0;
  35                     foreach my $did ( @dids ) {
  36                         next unless $did->cust_svc;
  37                         my $svc_phone = $did->cust_svc->svc_x;
  38                         next unless $svc_phone;
  39                         my @cdrs = $svc_phone->get_cdrs;
  40                         $count++ if scalar(@cdrs);
  41                     }
  42                     $count;
  43                 },
  44               ],
  45               'align'         => 'lccc',
  46               'links'         => [
  47                 '',
  48                 '',
  49                 '',
  50                 '',
  51               ],
  52               'color' => [
  53                            '',
  54                            '',
  55                            '',
  56                            '',
  57                          ],
  58               'style' => [
  59                            '',
  60                            '',
  61                            '',
  62                            '',
  63                          ],
  64       )
  65 %>
  66 <%init>
  67
  68 die "access denied"
  69   unless ( $FS::CurrentUser::CurrentUser->access_right('List inventory')
  70          && $FS::CurrentUser::CurrentUser->access_right('List services')
  71          );
  72
  73 # XXX: agent virtualize
  74
  75 sub provisioned_dids {
  76     my $latanum = shift;
  77     qsearch({ 'table' => 'phone_avail',
  78               'hashref' => {
  79                 'latanum' => $latanum,
  80               },
  81               'extra_sql' => ' and svcnum is not null ',
  82           });
  83 }
  84
  85 </%init>