<% include( 'elements/search.html', 'title' => 'LATA Search Results', 'name_singular' => 'LATA', 'query' => { 'table' => 'phone_avail', 'hashref' => {}, 'select' => 'distinct latanum', }, 'count_query' => 'SELECT COUNT(distinct latanum) FROM phone_avail', 'header' => [ '#', 'LATA', 'Available', 'Provisioned', 'Have Usage', ], 'fields' => [ '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 { # 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 { # Have Usage my $phone_avail = shift; return '' unless $phone_avail->lata; $phone_avail->lata->have_usage; }, ], 'align' => 'rlrrr', 'links' => [ '', '', '', '', '', ], 'color' => [ '', '', '', '', '', ], 'style' => [ '', '', '', '', '', ], ) %> <%init> die "access denied" unless ( $FS::CurrentUser::CurrentUser->access_right('List inventory') && $FS::CurrentUser::CurrentUser->access_right('List services') ); # XXX: agent virtualize