<% include( 'elements/search.html', 'title' => 'Phone Number (DID) Search Results', 'name_singular' => 'phone number', 'query' => { 'table' => 'phone_avail', 'hashref' => $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', sub { my $pa = shift; return '' unless $pa->part_export; $pa->part_export->exportname; }, sub { my $pa = shift; return '' unless $pa->cust_svc; my($label,$value) = $pa->cust_svc->label; $label . ": " . $value; }, \&FS::UI::Web::cust_fields, '', ], 'align' => 'rllllllc'.FS::UI::Web::cust_aligns(), 'links' => [ '', '', '', '', '', '', #XXX #$export_link - to what exactly? $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('List inventory') ); 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 $hashref = {}; $hashref->{'ordernum'} = $1 if $cgi->param('ordernum') =~ /^(\d+)$/; 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' ]; } } ''; }; my $svc_link = sub { my $phone_avail = shift; my $cust_svc = $phone_avail->cust_svc; if ( $cust_svc ) { return [ "${p}view/svc_phone.cgi?", 'svcnum']; } ''; };