improve performance of DID provisioning status report, RT10988

[freeside.git] / httemplate / search / phone_inventory_provisioned.html

diff --git a/httemplate/search/phone_inventory_provisioned.html b/httemplate/search/phone_inventory_provisioned.html
index c3de38f..52657e7 100644 (file)
--- a/httemplate/search/phone_inventory_provisioned.html
+++ b/httemplate/search/phone_inventory_provisioned.html
@@ -1,66 +1,73 @@
 <% include( 'elements/search.html',
-              'title'         => 'Phone Number (DID) Search Results',
-              'name_singular' => 'phone number',
+              'title'         => 'LATA Search Results',
+              'name_singular' => 'LATA',
               'query'         => {
                                    'table'   => 'phone_avail',
                                    'hashref' => {},
-                                   'select'  => 'distinct npa||nxx as npanxx'
+                                   'select'  => 'distinct latanum',
                                  },
-              'count_query'   => 'SELECT COUNT(distinct npa||nxx) FROM phone_avail',
-              'header'        => [ 'NPANXX',
+              'count_query'   => 'SELECT COUNT(distinct latanum) FROM phone_avail',
+              'header'        => [ 
+                    'LATA #',
+                    'LATA Description',
                                   'Available',
                                   'Provisioned',
                                   'Have Usage',
                                  ],
               'fields'        => [
-                'npanxx',
-               sub {
-                   my $npanxx = shift->npanxx;
-                   my @dids = qsearch('phone_avail',
-                                       { 'svcnum' => '',
-                                         'npa' => substr($npanxx,0,3),
-                                         'nxx' => substr($npanxx,3,3),
-                                       }
-                                     );
-                   return scalar(@dids);
+                'latanum',
+        sub { # LATA Description
+            my $phone_avail = shift;
+            return '' unless $phone_avail->lata;
+            $phone_avail->lata->description;
+        },
+               sub { # Available
+                   my $latanum = shift->latanum;
+                   my $cnt = qsearchs({ 'table'    => 'phone_avail',
+                                 'hashref'  => 
+                                    { 'svcnum' => '',
+                                      'latanum' => $latanum,
+                                    },
+                                 'select'   => 'count(1) as cnt',
+                          });
+                   ($cnt) ? $cnt->cnt : '';
                },
-               sub {
-                   my $npanxx = shift->npanxx;
-                   my @dids = provisioned_dids($npanxx);
-                   return scalar(@dids);
+               sub { # Provisioned
+                   my $latanum = shift->latanum;
+            my $cnt = qsearchs({   'table'     => 'phone_avail',
+                        'hashref'   => { 'latanum' => $latanum,
+                                         'svcnum' => { op => '>',
+                                                        value => '0'
+                                                     },
+                                        },
+                        'select'    => 'count(1) as cnt'
+                    });
+                   ($cnt) ? $cnt->cnt : '';
                },
-               sub {
-                   my $npanxx = shift->npanxx;
-                   my @dids = provisioned_dids($npanxx);
-                   my $count = 0;
-                   foreach my $did ( @dids ) {
-                       next unless $did->cust_svc;
-                       my $svc_phone = $did->cust_svc->svc_x;
-                       next unless $svc_phone;
-                       my @cdrs = $svc_phone->get_cdrs;
-                       $count++ if scalar(@cdrs);
-                   }
-                   $count;
+               sub { # Have Usage
+            my $phone_avail = shift;
+            return '' unless $phone_avail->lata;
+            $phone_avail->lata->have_usage;
                },
               ],
               'align'         => 'lccc',
               'links'         => [
                 '',
-               '',
-               '',
-               '',
+                '',
+                '',
+                '',
               ],
               'color' => [ 
                            '',
-                          '',
-                          '',
-                          '',
+                           '',
+                           '',
+                           '',
                          ],
               'style' => [ 
                            '',
-                          '',
-                          '',
-                          '',
+                           '',
+                           '',
+                           '',
                          ],
       )
 %>
@@ -73,15 +80,4 @@ die "access denied"
 
 # XXX: agent virtualize
 
-sub provisioned_dids {
-    my $npanxx = shift;
-    qsearch({ 'table' => 'phone_avail',
-             'hashref' => { 
-               'npa' => substr($npanxx,0,3),
-               'nxx' => substr($npanxx,3,3),
-             },
-             'extra_sql' => ' and svcnum is not null ',
-         });
-}
-
 </%init>