From: ivan <ivan>
Date: Fri, 7 Nov 2008 06:04:58 +0000 (+0000)
Subject: fix viewing of unlinked services.  wow, it has been a while
X-Git-Tag: root_of_webpay_support~262
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=fb548ac8da2cc0b87b7b3dcd7172097d930c6f4a

fix viewing of unlinked services.  wow, it has been a while
---

diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index ec22bd0bc..e87a8ee9a 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -354,7 +354,9 @@ my $svc_acct = qsearchs({
   'table'     => 'svc_acct',
   'addl_from' => $addl_from,
   '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'
+                          ),
 });
 die "Unknown svcnum" unless $svc_acct;