From 08b845d637fc6a54a88b019ed586bccdf0334b38 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 2 Dec 2009 20:51:43 +0000
Subject: fix viewing unlinked forwards, domains, broadband/external/www
 services, RT#6794

---
 httemplate/view/svc_external.cgi | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'httemplate/view/svc_external.cgi')

diff --git a/httemplate/view/svc_external.cgi b/httemplate/view/svc_external.cgi
index 222f36a85..77679d81c 100644
--- a/httemplate/view/svc_external.cgi
+++ b/httemplate/view/svc_external.cgi
@@ -41,7 +41,9 @@ my $svc_external = qsearchs({
                  ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
                  ' LEFT JOIN cust_main USING ( custnum ) ',
   'hashref'   => { 'svcnum' => $svcnum },
-  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
+  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
+                            'null_right' => 'View/link unlinked services'
+                          ),
 }) or die "svc_external: Unknown svcnum $svcnum";
 
 my $conf = new FS::Conf;
-- 
cgit v1.2.1