diff options
Diffstat (limited to 'httemplate/search/phone_avail.html')
-rw-r--r-- | httemplate/search/phone_avail.html | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/httemplate/search/phone_avail.html b/httemplate/search/phone_avail.html deleted file mode 100644 index 9f287625a..000000000 --- a/httemplate/search/phone_avail.html +++ /dev/null @@ -1,131 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Phone Number (DID) Search Results', - 'name_singular' => 'phone number', - 'query' => { - 'table' => 'phone_avail', - 'hashref' => {}, - 'select' => join(', ', - 'phone_avail.*', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $search, - 'addl_from' => $addl_from, - }, - 'count_query' => $count_query, - 'header' => [ '#', - 'State', - 'Phone Number', - 'Rate Center', - 'Batch', - 'Export', - 'Service', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - 'availnum', - 'state', - sub { my $pn = shift; - '+'. $pn->countrycode. ' '. - $pn->npa. ' '. $pn->nxx. '-'. $pn->station; - }, - sub { shift->get('name') }, - 'availbatch', - 'exportnum', #XXX - #sub { }, - 'svcnum', #XXX - \&FS::UI::Web::cust_fields, - ], - 'align' => 'rllllll'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - '', - '', - '', - '', - '', #XXX #$export_link - '', #XXX #$svc_link - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Import'); - -my @search = (); - -push @search, "availbatch = '$1'" - if ( $cgi->param('availbatch') =~ /^([\w\d \/\:\-\.]+)$/ ); - -push @search, "countrycode = '$1'" - if ( $cgi->param('countrycode') =~ /^(\d{1,3})$/ ); - -push @search, "phone_avail.state = '$1'" - if ( $cgi->param('state') =~ /^(\w{2})$/ ); - -# i know that the regexps match more than NPA/NXX, but this is good enough now -push @search, "npa = '$1'" - if ( $cgi->param('npa') =~ /^(\d{3})$/ ); -push @search, "nxx = '$1'" - if ( $cgi->param('npa') =~ /^\d{3}$/ && $cgi->param('nxx') =~ /^(\d{3})$/ ); - -push @search, "name = '$1'" - if ( $cgi->param('ratecenter') =~ /^([\w \-\.]+)$/ ); - -push @search, "svcnum is null" - if ( $cgi->param('avail_status') eq 'AVAIL' ); -push @search, "svcnum is not null" - if ( $cgi->param('avail_status') eq 'UNAVAIL' ); - -# #here is the agent virtualization -# push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $search = scalar(@search) - ? ' WHERE '. join(' AND ', @search) - : ''; - - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - #' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -my $count_query = "SELECT COUNT(*) FROM phone_avail $search"; #$addl_from? - -my $link_cust = sub { - my $phone_avail = shift; - if ( $phone_avail->svcnum ) { - my $cust_svc = $phone_avail->cust_svc; - if ( $cust_svc->pkgnum ) { - #my $cust_main = $cust_svc->cust_pkg->cust_main; - return [ "${p}view/cust_main.cgi?", 'custnum' ]; - } - } - ''; -}; - -</%init> |