% }
+% if ( $opt{radius_usage} ) {
+ <& svc_radius_usage.html,
+ 'svc' => $svc_x,
+ 'part_svc' => $part_svc,
+ 'cust_pkg' => $cust_pkg,
+ &>
+% }
+
<% mt('Service #') |h %><B><% $svcnum %></B>
% if ( $custnum ) {
% my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?';
% my $hack_strict_refs = \&{ $f->{'value_callback'} };
% $value = &$hack_strict_refs($svc_x);
% } else {
-% $value = exists($f->{'value'})
-% ? $f->{'value'}
-% : encode_entities($svc_x->$field);
+% $value = encode_entities($svc_x->$field);
% }
% } else {
% $field = $f;
$custnum = '';
}
+# attached routers
+if ( my $router = qsearchs('router', { svcnum => $svc_x->svcnum }) ) {
+ push @$fields, qw(router_routername router_block);
+ $labels->{'router_routername'} = 'Attached router';
+ $labels->{'router_block'} = 'Attached address block';
+ $svc_x->set('router_routername', $router->routername);
+ my $block = qsearchs('addr_block', { routernum => $router->routernum });
+ if ( $block ) {
+ $svc_x->set('router_block', $block->cidr);
+ } else {
+ $svc_x->set('router_block', '<i>(none)</i>');
+ }
+}
+
&{ $opt{'svc_callback'} }( $cgi, $svc_x, $part_svc, $cust_pkg, $fields, \%opt )
if $opt{'svc_callback'};
</%init>