'Router',
@tower_header,
'IP Address',
+ 'Attached Router',
FS::UI::Web::cust_header($cgi->param('cust_fields')),
],
'fields' => [ 'svcnum',
},
@tower_fields,
'ip_addr',
+ sub {
+ my $svc = shift;
+ my $router = qsearchs('router', { svcnum => $svc->svcnum });
+ return $router ? $router->routername : '';
+ },
\&FS::UI::Web::cust_fields,
],
'links' => [ $link,
'', #$link_router,
(map '', @tower_fields),
$link,
+ '',
( map { $_ ne 'Cust. Status' ? $link_cust : '' }
FS::UI::Web::cust_header($cgi->param('cust_fields'))
),
],
- 'align' => 'rll'.('r' x @tower_fields).'r'.
+ 'align' => 'rll'.('r' x @tower_fields).'rl'.
FS::UI::Web::cust_aligns(),
'color' => [
'',
'',
(map '', @tower_fields),
'',
+ '',
FS::UI::Web::cust_colors(),
],
'style' => [
'',
(map '', @tower_fields),
'',
+ '',
FS::UI::Web::cust_styles(),
],
my %search_hash;
if ( $cgi->param('magic') eq 'unlinked' ) {
%search_hash = ( 'unlinked' => 1 );
-}
-else {
- foreach (qw(custnum agentnum svcpart)) {
+} else {
+ foreach (qw( custnum agentnum svcpart cust_fields )) {
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
}
foreach (qw(pkgpart routernum towernum sectornum)) {