show account services in address block list too, RT#79825

diff --git a/httemplate/browse/addr_block.cgi b/httemplate/browse/addr_block.cgi
index ba40bfd..9e7ef2a 100644 (file)
--- a/httemplate/browse/addr_block.cgi
+++ b/httemplate/browse/addr_block.cgi
@@ -17,12 +17,13 @@
                           '',
                         ],
      'fields'        => [ 'NetAddr',
                           '',
                         ],
      'fields'        => [ 'NetAddr',

-                          sub { my $block = shift;
-                                my $router = $block->router;
+                          sub { my $b = shift;
+                                my $router = $b->router;

                                 my $result = '';
                                 if ($router) {
                                 my $result = '';
                                 if ($router) {

-                                  $result .= $router->routername. ' (';
-                                  $result .= scalar($block->svc_broadband). ' services)';
+                                  $result .= $router->routername. ' ('.
+                                    scalar($b->svc_broadband). ' broadband, '.
+                                    scalar($b->svc_acct). ' account services)';

                                 }
                                 $result;
                               },
                                 }
                                 $result;
                               },