summaryrefslogtreecommitdiff
path: root/httemplate/search/phone_avail.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/search/phone_avail.html')
-rw-r--r--httemplate/search/phone_avail.html131
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 9f28762..0000000
--- 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>